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本 书 详细 地 介绍 了 Excel VBA 编程 的 知识 、 技 术 与 实际 应 


内 容 简 介 











。 全 书包 括 23 章 和 3 个 附录 ,对 Excel VBA 


语言 元 素 、Application 对 象 、Workbook 对 象 、Worksheet 对 象 、Range 对 象 Name 对 象 、Sort 对 象 、AutoFilter 


对 象 、Shape 对 象 、Chart 对 象 、ChartObject 对 象 、PivotTable 对 象 、 创 建 与 使 用 
使 用 Excel 对 话 框 、 创 建 用 户 窗 体 和 控件 、 定 制 命令 栏 和 RibbonX 功能 区 、 包 
FSO 对 象 模型 和 VBA 内 置 语句 处 理 文件 、 与 
表 、 操 作 VBE、 创 建 和 使 

































































其 他 Office 应 用 程序 交互 、 使 用 ADO 访问 数据 、 操 作 注 几 
加 载 项 、 开 发 Excel 实用 程序 等 内 容 进 行 了 详细 讲解 。 为 了 帮助 读者 更 好 地 理 



































类 模块 、 编 写 事件 过 程 、 
建 用 户 自 定义 函数 、 使 























解 Excel VBA 编程 涉及 的 知识 与 技术 ， 本 书 提供 了 400 个 案例 , 读者 可 以 在 学 习 的 过 程 中 多 加 练习 , 不 断 


积累 实战 经 验 ， 快 速 提高 自己 的 编程 水 平 。 本 书 最 后 的 3 个 附 





VBA 错误 代码 速 查 ， 方 便 读者 在 编写 代码 的 过 程 中 过 到 问题 时 随时 查阅 。 


本 书 提供 了 大 量 


微 视频 、 本 书 配套 教学 视频 、 本 二 


式 与 函数 电子 书 、Exc' 


本 书 内 容 全 面 、 案 例 丰 富 ， 
习 Excel VBA 的 自学 用 书 ， 又 马 








录 分 别 是 VBA 函数 速 查 、VBA 语句 速 查 、 


的 附 赠 资源 ， 包 括 本 书 400 个 案例 素材 源 文件 、 本 书 配套 PPT 课件 、 本 书 配 套 二 维 码 


重点 案例 教学 视频 、Excel 专题 教学 视频 、Windows 10 教学 视频 、Excel 公 


el 数据 透视 表 电 子 书 、Excel 图 表 电 子 书 、Excel 文档 模板 ， 在 线 答疑 等 。 





适合 所 有 从 事 或 希望 学 习 Excel VBA 开发 的 用 户 阅读 。 本 书 既 可 作为 学 

















作为 Excel VBA 案例 应 用 的 速 查 手 册 。 
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山 


前 


与 Excel 中 的 其 他 技术 相 比 ，Excel VBA 编程 可 能 是 较 难 学 习 和 掌握 的 技术 。 有 的 读者 可 
能 发 现 ， 即 使 花费 了 大 量 的 时 间 和 精力 学 习 Excel VBA 编程 ， 也 很 难 编写 出 自己 满意 的 程序 。 

Excel 是 一 个 操作 性 很 强 的 软件 ， 而 学 习 Excel VBA 编程 则 更 需要 大 量 的 动手 练习 和 操作 实践 。 
在 掌握 了 Excel VBA 编程 的 基本 概念 和 语法 知识 后 ， 只 有 通过 不 断 练习 和 经 验 积累 ， 才 能 提高 


编程 水 平 。 即 使 是 Excel VBA 编程 高 手 ， 也 需要 经 历 这 样 的 过 程 。 

















本 书 的 目的 是 为 了 帮助 读者 尽快 掌握 Excel VBA 编程 的 核心 知识 与 技术 ， 并 降低 学 习 
Excel VBA 编程 的 难度 。 本 书 通 过 大 量 的 案例 帮助 读者 更 好 地 理解 Excel VBA 编程 涉及 的 知 
识 与 技术 ， 同 时 加 强 读者 的 编程 实践 练习 ， 从 而 让 读者 在 最 短 的 时 间 掌 握 Excel VBA 编程 技 


术 ， 并 能 在 实际 工作 中 运用 























自如 。 本 书包 括 23 章 和 3 个 附录 ， 共 有 400 个 案例 ， 各 章 的 具体 
















































































情况 见 表 0-1。 
表 0-1 全 书 各 章 的 具体 情况 
章 名 简介 案 例 数 

介绍 了 宏 的 录制 、 使 用 与 设置 ， 以 及 VBE 窗口 

第 1 章 VBA 编程 概述 的 组 成 与 使 用 方法 ， 还 介绍 了 Excel 应 用 程序 的 / 
开发 流程 

第 2 章 掌握 VBA 编程 语言 介绍 了 VBA 编程 语言 的 基本 概念 、 结 构 及 其 包 46 
含 的 语言 元 素 

第 3 章 ， 对 象 编程 基础 介绍 了 对 象 编程 的 基本 概念 和 技术 5 

第 4 章 使 用 Application 对 象 处 理 Excel | 介绍 了 使 用 Application 对 象 处 理 Excel 应 用 程序 语 

程序 范围 的 选项 设置 和 操作 方法 

第 5 章 使 用 Workbook 对 象 处 理工 作 短 介绍 了 使 用 Workbook 对 象 处 理工 作 短 的 方法 11 

第 6 章 使 用 Worksheet 对 象 处 理工 作 表 介绍 了 使 用 Worksheet 对 象 处 理工 作 表 的 方法 14 
介绍 了 使 用 Range 对 象 处 理 单元 格 区 域 的 方法 ， 

第 7 章 使 用 Range 对 象 处 理 单元 格 区 域 | 还 介绍 了 使 用 Name 对 象 处 理 名 称 、 使 用 Sort 25 
对 象 和 AutoFilter 对 象 处 理 排序 和 名 选 的 方法 

第 8 章 使 用 Shape 对 象 处 理 图 形 对 象 介绍 了 使 用 Shape 对 象 处 理 图 形 对象 的 方法 15 

到 使 用 Chart 和 ChartObjeet 对 象 处 | 介绍 了 在 VBA 中 操作 图 表 的 方法 22 

0 章 使 用 PivotTable 对 象 处 理 数据 透 介绍 了 在 VBA 中 操作 数据 透视 表 的 方法 9 





Excel VBA 编程 实战 宝典 





章 名 





简介 
介绍 了 如 何 使 用 类 模块 创建 新 对 象 及 其 











属性 的 







































































第 11 章 “使 用 类 模块 创建 新 的 对 象 方法 ， 还 介绍 了 在 VBA 中 使 用 类 模块 创建 新 对 | 4 
象 的 方法 
_ 介绍 了 在 VBA 中 编写 事件 代码 所 需 了 解 的 知识 ， 以 
第 12 章 使 用 事件 编号 自动 交互 的 程序 。 | 及 Excel 中 的 不 同 对 象 所 包含 的 事件 及 其 具体 应 用 罗 
第 13 章 使 用 Excel 对 话 杠 介绍 了 在 VBA 中 创建 与 使 用 Excel 对 话 框 的 方法 8 
介绍 了 在 VBA 中 通过 用 户 窗 体 和 控件 构建 自 定 
第 14 章 “创建 用 户 窗 休 和 控件 人 53 
介绍 了 定制 传统 的 菜单 栏 和 工具 栏 ， 以 及 使 用 
第 15 意 定制 Excel 界面 环境 RibbonX 定制 功能 区 的 方法 , 还 介绍 了 同时 适用 | ”36 
于 Excel 各 个 版 本 的 快捷 菜单 的 定制 方法 
介绍 了 创建 包含 不 同类 型 参数 的 Function 过 各 
第 16 章 开发 用 户 自 定义 函数 的 方法 ， 以 及 使 用 VBA 开发 的 用 户 自 定义 函数 | 26 
的 大 量 案例 
介绍 使 用 FSO 对 象 模型 与 VBA 内 置 语句 和 函数 
加 17 轩 处 更 广 什 操作 文件 和 文件 夹 的 方法 多 
介绍 了 在 Excel 中 使 用 VBA 控制 其 他 Office 应 
第 全 其 亿 06ipe 由 用 程序 安 忆 用 程序 涉及 的 基本 概念 、 通 用 方法 以 及 具体 应 用 | 7 
介绍 了 数据 库 和 结构 化 查询 语言 的 基本 概念 以 
第 19 章 使 用 ADO 访问 数据 及 SQL 语句 的 基本 用 法 , 还 介绍 了 通过 ADO 编 | 。 15 
程 访问 Excel 外 部 数据 的 方法 
二 介绍 了 注册 表 的 基础 知识 和 基本 操作 ,以 及 使 用 
人 VBA 操作 注册 表 的 方法 
第 21 章 操作 VBE 介绍 了 使 用 VBA 编程 操作 VBE 的 方法 19 
ee 介绍 了 创建 和 管理 加 载 项 的 方法 , 还 介绍 了 使 用 
第 22 章 “创建 和 使 用 加 载 项 lp a ont 8 
介绍 了 使 用 VBA 开发 Excel 实用 程序 的 两 个 典 
第 23 章 开发 Excel 实用 程序 型 案例 ， 一 个 案例 是 开发 通用 插件 ， 另 一 个 案例 | ”2 


是 开发 一 个 人 事 管理 系统 











附录 A VBA 函数 速 查 


附录 B VBA 语句 速 查 


列 出 了 VBA 中 的 所 有 内 部 函数 
列 出 了 VBA 中 的 所 有 内 部 语句 





附录 C VBA 错误 代码 速 查 
本 书 适合 有 以 下 需求 的 读者 学 习 和 阅读 : 
口 专门 从 事 Excel 二 次 开发 。 
口 希望 提高 日 常 工作 的 效率 。 





“I. 











列 出 了 VBA 中 的 所 有 错误 代码 的 编号 和 说 明 





Es 
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对 Excel VBA 感 兴趣 。 

希望 根据 个 人 需求 ， 扩 展 Excel 功能 。 
希望 自由 定制 Excel 界面 。 
需要 在 Office 不 同 组 件 之 间 进 行 数据 互 访 。 

发 Excel 加 载 项 供 自己 或 他 人 使 用 。 

所 包含 以 下 配套 资源 : 

本 书 400 个 案例 素材 源 文件 。 

本 书 配套 PPT 课件 。 

本 书 配套 二 维 码 微 视频 。 

本 书 配套 教学 视频 。 

本 书 重点 案例 教学 视频 。 

Excel 专题 教学 视频 。 

Windows 10 教学 视频 。 

Excel 公式 与 函数 电子 书 。 

Excel 数据 透视 表 电 子 书 。 

Excel 图 表 电 子 书 。 

Excel 文档 模板 。 

在 线 答疑 。 

本 书 由 尚 品 科技 编著 ， 参 与 本 书 资料 收集 、 整 理 和 编写 工作 的 有 杜 真 民 、 刘 淑 平 、 康 玉兰 、 
张 宏 君 、 佟 英 春 、 徐 艳 荣 、 王 玲 、 即 宝 霞 、 徐 海 彬 、 王 建 梅 、 韩 庆 龙 、 肖 成 云 、 尤 完 明 、 刘 海 
上 舟 、 屈 娟 、 杨 晶 晶 、 谷 朝 辉 、 徐 海军 、 张 志 忠 、 姜 晓 艳 等 人 。 如 果 在 使 用 本 书 的 过 程 中 遇 到 问 
题 ， 或 对 本 书 的 编写 有 什么 意见 或 建议 ， 欢 迎 随时 加 入 专 为 本 书 建立 的 QQ 技术 交流 群 
(238202373) 进行 在 线 交 流 ， 加 群 时 请 注 明 “读者 ”或 书 名 以 验证 身份 。 
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第 1 章 
1.1 
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1.4 


VBA 编程 概述 … 








1.1.1 VBA 发 展 历程 简 述 
1.1.2 VBA 的 应 用 场合 … 
1.1.3 VBA 的 特点 … 

Excel 文件 格式 … 
宏 的 安全 性 设置 
1.3.1 临时 允许 或 禁止 运行 宏 
1.3.2 ”允许 运行 特定 文件 夹 中 的 宏 … 
1.3.3 ”允许 运行 所 有 宏 
1.3.4 禁止 他 人 随意 修改 宏 . 
录制 与 使 用 宏 
1.4.1 显示 “开发 工具 ”选项 卡 … 
1.4.2 录制 宏 、 
1.4.3 保存 宏 .… 
1.4.4 运行 宏 的 多 种 方式 … 
1.4.5 绝对 录制 和 相对 录制 
1.4.6 
使 用 VBE 窗口 
1.5.1 打开 VBE 窗 口 … 
.5.2 ”工程 资源 管理 器 … 
1.5.3 ”属性 窗口 … 
.5.4 代码 窗口 … 
.5.5 管理 代码 模块 
Excel 应 用 程序 开发 流 
.6.1 优秀 Excel 应 用 程序 的 标 ; 
.6.2 ”确定 用 户 类 型 
.6.3 ”确定 用 户 需求 
.6.4 设计 用 户 界面 
.6.5 
1.6.6 ”测试 应 用 程序 
.6.7 修复 错误 …- 
.6.8 发布 应 用 程序 








































































第 2 章 
2.1 


22 


2.3 
2.4 


2.5 


2.6 


2.7 


2.8 


2.9 
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掌握 VBA 编程 语言 …………… 22 
与 VBA 进行 简单 





“22 
22 
25 
数据 类 型 、 变 量 和 常量 ‘26 
2.2.1 VBA 中 的 数据 类 型 … 26 
2.2.2 ”声明 变量 pe 27 
2.2.3 变量 的 命名 规则 29 
2.2.4 ”变量 的 作用 域 和 生存 期 30 
2.2.5 使 用 常量 …: 32 
表达 式 和 运算 符 ‘32 
创建 Sub 过 程 …: 34 
2.4.1 声明 Sub 过 程 
2.4.2 Sub 过程 的 作用 域 … 
2.4.3 在 VBA 中 调用 Sub 过 程 … 
2.4.4 ”向 Sub 过 程 传递 参数 … 
2.4.5 Sub 过 程 的 递归 
创建 Function 过 程 
2.5.1 ”Function 过 程 与 Sub 过 程 的 区 别 
2.5.2 ”声明 Function 过 程 
2.5.3 ”调用 Function 过 程 
2.5.4 使 用 VBA 内 置 函 数 … 
控制 程序 的 运行 流程 
2.6.1 If Then 判 断 结构 2DOD 人 DD 
2.6.2 ”Select Case 判 断 结构 … 
2.6.3 For Next 循 环 结 构 
2.6.4 ”Do Loop 循 环 结构 
使 用 
2.7.1 数组 的 维 数 
2.7.2 ”声明 一 维 数组 
2.7.3 声明 二 维 数组 
2.7.4 为 数组 赋值 
2.7.5 使 用 动态 数组 eeeeeeeseoseseoossooosossossosossssssosssssssssosssassssaaasssaadsiaaaadiaadassasseeeaeeeeee a7 
错误 处 理 
2.8.1 错误 类 型 . 
2.8.2 ”调试 代码 .pp 60 
2.8.3 ”处 理 运 行 时 错误 
规范 化 编写 代码 
2.9.1 强制 变量 声明 63 
2.9.2 使 用 缩 进 格式 easecsssosssor sass is 63 
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3.4 


第 4 章 
4.1 
4.2 


4.3 


2.9.3 将 长 代码 分 成 多 行 … 
2.9.4 为 代码 添加 注释 
对 象 编程 基础 
理解 类 、 对 象 与 集合 
3.1.1 Excel 对象 模型 … 
3.1.2 类 与 对 象 
3.1.3 使 用 对 象 浏览 器 查看 类 和 对 象 的 相关 信息 67 
3.1.4 引用 集合 中 的 对 象 
3.1.5 父 对 象 与 子 对 象 及 其 定位 方法 …… 
对 象 的 属性 
3.2.1 引用 对 象 的 属性 
3.2.2 设置 属性 的 值 .ee ee ee se 
3.23， 可 返 画 对 象 的 属性 :ee 



































3.3.1 方法 的 参数 
3.3.2 使 用 命名 参数 … 
3.3.3 ”可 返回 对 象 的 方法 72 
对 象 编程 技巧 
3.4.1 使 用 对 象 变量 … 
3.4.2 使 用 With 结 构 
3.4.3 使 用 For Each 结构 … 
























理解 Application 对 象 和 全 ， 
获取 Excel 程序 的 相关 信息 RO OR RR RR RN RR 生生 和 全 78 
4.2.1 获取 Excel 程 序 的 版 本 号 
4.2.2 ”获取 在 Excel 程 序 中 设置 的 用 户 名 …- 
4.2.3 ”获取 Excel 安 装 路 径 、 启 动 文件 夹 路 径 和 工作 簿 模板 路 径 ………… 79 
设置 Excel 程序 的 界面 环境 与 操作 方式 
4.3.1 设置 Excel 程 序 的 可 见 性 ……… 
4.3.2 ”设置 Excel 程 序 窗口 是 否 全 屏 显示 - 
4.3.3 ”设置 Excel 程 序 窗口 的 状态 
4.3.4 ”设置 Excel 程 序 窗口 的 尺寸 和 位 置 
4.3.5 设置 Excel 程 序 窗口 标题 栏 中 显示 的 名 称 
4.3.6 设置 编辑 栏 、 浮 动工 具 栏 和 “开发 工具 ”选项 卡 的 显示 
4.3.7 设置 状态 栏 中 显示 的 信息 - 
4.3.8 设置 警告 信息 的 显示 方式 
4.3.9 设置 新 工作 簿 中 默认 包含 的 工作 表 数 量 
4.3.10 ”设置 工作 簿 的 默认 字体 和 字号 
4.3.11 设置 打开 文件 时 的 默认 路 径 Ss ali 86 
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4.3.12 ”控制 屏幕 刷新 
使 用 Excel 程序 
4.4.1 定时 自动 运行 VBA 过 程 … 
4.4.2 ”为 VBA 过 程 指定 快捷 键 

4.4.3 ”向 其 他 程序 发 送 按键 信息 - 
4.4.4 ”计算 字符 囊 表达 式 
4.4.5 在 VBA 中 使 用 Excel 工 作 表 函数 


使 用 Workbook 对 象 处 理工 作 簿 
理解 Workbooks 集合 与 Workbook 对 象 
5.1.1 Workbooks 集 合 的 常用 属性 和 方法 … 
5.1.2 Workbook 对 象 的 常用 属性 和 方法 …… 
5.1.3 ”引用 工作 竹 s 95 
新 建 了 
5.2.1 
522 
打开 了 
5.3.1 打开 一 个 工作 簿 nn 97 
5.3.2 ”打开 多 个 工作 短 ……………… 
5.3.3 ”获取 工作 簿 的 路 径 和 名 称 : 
保存 工作 簿 
5.4.1 保存 和 另存 工作 簿 
5.4.2 覆盖 现 有 工作 簿 ……… 
关闭 了 
5.5.1 关闭 一 个 工作 簿 
5.5.2 关闭 多 个 工作 簿 ………………… 
5.5.3 关闭 多 余 的 工作 簿 窗口 
保护 了 
5.6.1 为 工作 簿 设置 打开 密码 … 
5.6.2 ”清除 工作 簿 中 的 密码 


使 用 Worksheet 对 象 处 理工 作 表 
理解 Worksheets 集合 与 Worksheet 对 象 
6.1.1 Worksheets 集 合 的 常用 属性 和 方法 … 
6.1.2 ”Worksheet 对 象 的 常用 属性 和 方法 : 
6.1.3 ”Worksheets 集 合 与 Sheets 集 合 
6.1.4 引用 工作 表 
获取 工作 表 的 相关 信息 
6.2.1 获取 工作 表 的 类 型 
6.2.2 获取 工作 簿 结构 的 保护 状态 
6.2.3 ”获取 工作 表 的 保护 状态 … 
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选择 与 激活 了 
重 命名 工作 表 
移动 和 复制 了 
6.6.1 
6.6.2 
隐藏 工 
删除 工 
将 工作 簿 中 的 所 有 工作 表 导 出 为 独立 的 工作 簿 和 115 


使 用 Range 对 象 处 理 单元 格 区 域 ET rr OM Re .4F 
理解 Range 对 象 
7.1.1 Range 对 象 的 常用 属性 和 方法 …………… 
7.1.2 ”选择 与 激活 单元 格 
引用 单元 格 和 单元 格 区 域 
7.2.1 引 
7.2.2 引用 连续 或 不 连续 的 单元 格 区 域 
7.2.3 ”处理 多 个 单元 格 区 域 
7.2.4 ”引用 多 个 区 域 的 重 怡 部 分 
7.2.5 引用 一 行 或 多 行 …… :123 
7.2.6 引用 一 列 或 多 列 … 
7.2.7 [A1] 引 用 方式 
7.2.8 引用 当前 包含 数据 的 独立 区 域 
7.2.9 引用 工作 表 中 的 已 用 区 域 
7.2.10 通过 偏 移 引 用 单元 格 或 单元 格 区 域 
7.2.11 调整 单元 格 区 域 的 引用 范围 
在 单元 格 区 域 中 定位 与 查找 …… 
7.3.1 定位 单元 格 区 域 的 边界 … 
7.3.2 定位 包含 指定 类 型 内 容 的 单元 格 
7.3.3 查找 包含 特定 信息 的 单元 格 
读 取 和 写 入 单元 格 区 域 中 的 数据 
7.4.1 通过 循环 遍历 每 个 单元 格 读 写 数据 
7.4.2 ”使 用 数组 与 单元 格 区 域 交 找 数据 
7.4.3 使 用 选择 性 粘贴 
创建 与 使 用 名 称 ES TF 
7.5.1 Excel 中 的 预定 义 名 称 … 
7.5.2 命名 单元 格 区 域 
7.5.3 ”Name 对 象 和 Name 属 性 …… 
7.5.4 
7.5.5 
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7.5.6 在 名 称 中 存储 公式 …… 
7.5.7 在 名 称 中 存储 数组 …… 
7.5.8 ”隐藏 名 称 … 
7.5.9 删除 名 称 … 
排序 和 信和 近 数据 恒利 
7.6.1 排序 数据 
7.6.2 自动 筛选 
7.6.3 高 级 得 秆 Ne 149 
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8.1.1 ”Shapes 集 合 的 常用 属性 和 方法 和 PP 
8.1.2 Shape 对 象 的 常用 属性 和 方法 AWARDS 
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8.2.2 获取 图 形 对 象 的 类 型 
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插入 与 删除 图 形 对 象 
8.3.1 插入 自选 图 形 … 
8.3.2 插入 图 片 … 
8.3.3 选择 特定 类 型 的 图 形 对 象 
8.3.4 删除 工作 表 中 的 所 有 图 形 对 象 
8.3.5 删除 特定 类 型 的 图 形 对 象 
设置 图 形 对 象 的 格式 

8.4.1 设置 图 形 对 象 的 填充 格式 
8.4.2 设置 图 形 对 象 的 边框 格式 
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3 图 表 的 Excel 对 象 模型 … 
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9.2.2 ”创建 图 表 工作 表 
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2.3.4 Change 事 件 和 228 
2.3.5 SelectionChange 事 件 … 
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12.4 ”使 用 图 表 工 作 表 事件 ， 和 PP 
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13.1.2 使 用 InputBox 方 法 输入 指定 类 型 的 内 容 … 
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FileDialog 对 象 的 常用 属性 和 方法 ………… 
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在 对 话 框 中 选择 一 个 或 多 个 文件 … 
对 所 选 文件 执行 操作 
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控件 工具 箱 与 控件 类 型 
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使 用 变量 引用 特定 的 用 户 窗 体 
创建 特定 用 户 窗 体 的 多 个 实例 
编写 用 户 窗 体 的 事件 代码 
禁用 用 户 窗 体 中 的 关闭 按钮 
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14.3.5 
4.3.6 
4.3.7 
14.3.8 








户 窗 体 中 使 
在 用 户 窗 体 中 添加 控件 … 
设置 控件 的 属性 
设置 控件 的 大 小 eeoeeeesssseeess 
设置 控件 的 位 置 和 对 齐 方式 
设置 控件 的 Tab 键 顺序 
引用 用 户 窗 体 中 的 控件 … 
编写 控件 的 事件 代码 
使 用 同一 个 事件 过 程 处 理 多 个 控件 
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14.5.2 ”创建 登录 窗口 ， 
14.5.3 ”创建 颜色 选择 器 
14.5.4 创建 可 改变 大 小 的 对 话 框 EO TR RR 303 
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定制 菜单 栏 ET 
15.1.1 命令 栏 和 控件 的 类 型 
15.1.2 创建 命令 栏 和 控件 的 通用 方法 ……………… 
15.1.3 ”Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 
15.1.4 引用 特定 的 菜单 栏 314 
15.1.5 引用 菜单 栏 中 的 菜单 
15.1.6 在 内 置 菜单 栏 中 添加 菜单 
15.1.7 在 菜单 中 添加 菜单 项 
15.1.8 ”使 用 Parameter 属 性 传递 参数 值 
15.1.9 ”禁用 菜单 或 菜单 项 
15.1.10 ”隐藏 菜单 或 菜单 项 … 
15.1.11 重 置 菜单 

15.1.12 ”删除 菜单 或 菜单 项 … 
15.1.13 ”创建 新 的 菜单 栏 ……… 
定制 工具 栏 vedo a 上】 上】 i 330 
15.2.1 Excel 中 的 所 有 工具 栏 及 其 包含 的 控件 
5.2.2 工具 栏 控件 的 常用 属性 
5.2.3 引用 特定 的 工具 栏 和 控件 
15.2.4 创建 新 的 工具 栏 pp 
5.2.5 在 内 置 工具 栏 中 添加 控件 
15.2.6 ”禁用 工具 栏 中 的 控件 … 
15.2.7 重 置 工具 栏 ppp 
5.2.8 删除 工具 栏 中 的 控件 和 工具 栏 
定制 快捷 菜单 
15.3.1 Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 339 
5.3.2 在 内 置 快捷 菜单 中 添加 子 菜单 和 菜单 项 
5.3.3 
5.3.4 
5.3.5 本 
功能 区 开发 基础 
5.4.1 ”Excel 文件 的 内 部 结构 … 
15.4.2 功能 区 的 组 成 结构 
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开发 用 户 自 定义 函数 


定制 功能 区 的 一 般 流程 和 工具 
功能 区 定制 中 的 控件 类 型 
控件 属性 
控件 回调 
使 用 VBA 可 以 对 功能 区 进行 的 操作 















创建 实现 控件 功能 的 VBA 过 程 
编写 定制 功能 区 的 RibbonX 代 码 …: 
将 定制 功能 区 的 工作 簿 更 改 为 压缩 文件 … 
在 压缩 文件 中 创建 customUI 文 件 夹 

将 customUI.xml 文 件 移入 customUI 文 件 夹 - 
建立 RibbonX 代 码 与 工作 簿 之 间 的 关联 … 
测试 定制 后 的 功能 区 
定制 功能 区 时 可 能 遇 到 的 问题 
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创建 包含 两 个 参数 的 函数 … 
创建 包含 可 选 参数 的 函数 
创建 包含 不 定数 量 参数 的 函数 
创建 返回 数组 的 函数 
创建 返回 错误 值 的 函数 
为 用 户 自 定义 函数 添加 帮助 信息 
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8-7 ”隔行 批量 插入 多 个 图 片 161 
8-8 选择 活动 工作 表 中 的 所 有 图 片 …………eeeeeeeeeeeeeeeee 162 
8-9 使 用 For Each 循环 结构 删除 所 有 图 形 对 象 163 
8-10 使 用 SelectAll 方法 删除 所 有 图 形 对 和 象 163 
8-11 删除 活动 工作 表 中 的 所 有 自选 图 形 和 163 
8-12 为 自选 图 形 设置 纯色 填充 .pp 164 
8-13 ”为 自选 图 形 设置 双色 渐变 填充 站 165 
8-14 ”为 自选 图 形 设置 图 片 填充 ……… 于 nn 165 
&15 .设置 自选 图 形 的 边框 属 式 6seoiesrrsdinseisorm i 166 

使 用 Chart 和 ChartObject 对 象 处 理 图 表 ………………… 167 
9-1 使 用 AddChart 方法 创建 嵌入 式 图 表 174 
9-2 ”使 用 SetSourceData 方法 为 图 表 设 置 数据 源 175 
9-3 ”使 用 AddChart2 方法 创建 嵌入 式 图 表 175 


案 人 


第 10 章 


第 11 章 


名 
全 


案 人 


第 12 章 
案 人 
案 人 


















































































































































































9-4 ”使 用 Charts 集合 的 Add 方法 创建 图 表 工 作 表 pp 176 
9-5 “将 对 入 式 图 表 转 换 为 图 表 工作 表 pp 178 
056 将 图 雪 示 作 表 其 换 为 导 大 起 国 表 下 生生 全 和 ae 179 
9-7 “将 所 有 嵌入 式 图 表 批量 转 换 为 图 表 工 作 表 PN 179 
9-8 ”为 图 表 设 置 Excel 预 置 的 图 表 布 局 PR 180 
9-9 ”将 图 例 移动 到 图 表 标题 下 方 …………… 182 
9-10 ”使 用 Excel 预 置 的 图 表 样 式 格式 化 图 表 ee 183 
9-11 “将 绘图 区 的 背景 设置 为 灰色 .pt 184 
9-12 ”将 图 片 设 置 为 绘图 区 的 背景 185 
9-13 “设置 绘图 区 的 边框 185 
9-14 “使 用 不 连续 的 数据 区 域 创 建 图 表 .PP 186 
9-15 ”使 用 Series 对 象 删除 图 表 中 的 多 个 数据 系列 “187 
9-16 ”删除 编号 无 规律 的 多 个 数据 系列 … 187 
9-17” 自 定义 图 表 的 数据 标签 ……………… “188 
9-18 ”将 所 有 嵌入 式 图 表 设 置 为 相同 大 小 ……………… “189 
9-19 ”将 所 有 绕 入 式 图 表 的 大 小 设置 为 与 活动 图 表 等 大 … 190 
9-20 ”删除 工作 簿 中 的 所 有 骨 入 式 图 下 PP 190 
9-21 将 活动 的 代 入 式 图 表 转 换 为 图 片 怕 py 191 
9-22 ”将 所 有 嵌入 式 图 表 批 量 保存 为 图 片 尼 pp 191 
使 用 PivotTable 对 象 处 理 数据 透视 表 和 PP 193 
10-1 ”创建 数据 透视 表 缓存 和 数据 透视 表 … … 201 
10-2 ”对 数据 透视 表 中 的 字段 进行 布 尼 nn 202 
10-3 “更改 数据 透视 表 中 的 字段 布局 203 
10-4 ” 重 命名 字段 … 204 
10-5 ”设置 数据 透视 表 的 报表 布局 ……… 205 
10-6 “不 显示 数据 透视 表 中 的 行 总 计 和 列 总 计 205 
10-7 ”使 用 货币 格式 显示 销售 额 生 7 206 
10-8 “将 销售 额 的 汇总 方式 设置 为 求 最 大 值 207 
10-9 设置 数据 的 计算 方式 症 PP 207 
使 用 类 模块 创建 新 的 对 象 ooseaosessesseeeseseeseseseeesosseseeseiesseseeseesesesesieeesesassesseeei 209 
1, “创建 其 米 的 类 并 为 共 命 各 esa 210 
11-2 使 用 Public 关键 字 为 类 创建 简单 的 可 读 写 属性 .pp 210 
11-3 使 用 Property 过 程 创 建 类 的 属性 212 
4 创建 一 个 计算 员 诺 薪 求 的 类 呈 oonsssevengeovr er iD 213 
使 用 事件 编写 自动 交互 的 程序 .pp 215 
12-1 使 用 包含 参数 的 事件 过 程 217 
12-2 ”使 用 事件 过 程 中 的 Cancel 参数 PP 2 地 
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12-3 ”不同 对 象 的 同一 个 事件 的 触发 顺序 .0 218 
12-4 ”使 用 工作 簿 的 Open 事件 显示 欢迎 信息 220 
12-5 ”使 用 工作 簿 的 Open 事件 设置 用 户 的 操作 权限 和 220 
12-6 ”使 用 工作 簿 的 Activate 事件 设置 工作 得 的 界面 显示 环境 和 pp 221 
12-7 ”使 用 工作 簿 的 Deactivate 事件 pp 221 
12-8 ”使 用 BeforeClose 事件 过 程控 制 工作 敌 的 关闭 方式 和 221 
12-9 ”禁止 另存 工作 簿 和 yp 
12-10 禁止 保存 工作 敌 MR 222 
1%11 禁止 保存 和 另存 工作 敌 A WG a A 生 科 于 全 全 风 下 和 222 
12-12 ”打印 前 检查 数据 区 域 的 标题 是 否 填写 完整 223 
12-13 “显示 激活 的 工作 表 中 的 数据 区 域 的 地 二 ee 223 
12-14 ”显示 失去 焦点 的 工作 表 的 名 称 …………… ‘224 
12-15 ”新 建 工 作 表 时 显示 工作 秒 中 的 工作 表 总 数 … “225 
12-16 ”为 新 建 的 工作 表 自 动 命 名 ……………… .225 
12-17 显示 编辑 的 单元 格 的 地 址 及 其 工作 表 名 称 … “225 
12-18 自动 为 选区 所 在 的 整 行 和 整 列 设置 背景 色 … … 226 
12-19” 右 击 单元 格 时 显示 自 定义 快捷 菜单 pp 227 
12-20 ”双击 单元 格 时 自动 删除 单元 格 中 的 内 容 和 格式 …………eeeeeeeeoeeenenss 227 
12-21 在 指定 工作 表 的 状态 栏 中 显示 选区 地 址 pp 229 
12-22 ”在 指定 区 域内 右 击 时 显示 自 定义 快捷 菜单 pp 229 
12-23 ”通过 双击 控制 图 表 元 素 的 显示 状态 PP 230 
12-24 ”捕获 并 使 用 应 用 程序 事件 pp 233 
12-25 关闭 任意 一 个 工作 短 时 删除 其 中 的 空 工作 表 ee 234 
12-26 ”捕获 并 使 用 嵌入 式 图 表 事 件 和 235 
使 用 Excel 对 话 框 237 
13-1 检查 是 否 单 击 了 “取消 ”按钮 和 238 
13-2 “计算 非 空 单元 格 的 数量 .pp 238 
13-3 “显示 用 于 打开 文件 的 对 话 框 .，. 让 240 
13-4 “在 打开 文件 的 对 话 框 中 选择 多 个 文件 240 
13-5 “显示 用 于 保存 文件 的 对 话 框 六 0 242 
13-6 “设置 对 话 框 中 的 文件 筛选 器 .7 244 
13-7 “将 所 选 文件 的 路 径 和 名 称 添 加 到 单元 格 区域 中 pp 245 
13-8 ”在 Excel 中 打开 所 选择 的 文件 246 
创建 用 户 窗 体 和 控件 ee 248 
14-1 ”处理 Controls 集合 中 特定 类 型 的 控件 251 
14-2 ”使 用 变量 引 户 窗 体 ……… ESD A 255 
14-3 ”向 UserForms 集合 中 批量 添加 用 户 窗 体 pp 255 
14-4 从 UserForms 集合 中 引用 用 户 窗 体 .pp 256 
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14-5 ”为 同一 个 用 户 窗 体 设置 3 种 不 同 的 标题 pp 256 
14-6 ”让 用 户 窗 体 响 应 用 户 的 操作 -pp 259 
14-7 ”禁用 用 户 窗 体 右 上 角 的 关闭 按钮 260 
14-8 证 控 件 唤 应 用 户 的 操作 3 和 aaaann aa 265 
14-9 让 多 个 按钮 共享 同一 个 事件 过 程 266 
14-10 ”为 用 户 窗 体 指定 默认 的 确定 按钮 和 取消 按钮 pp 268 
14-11 单 击 按钮 时 自动 修改 其 上 显示 的 标题 ……………… 于 ee 268 
14-12 ”创建 密码 文本 框 并 限制 可 输入 的 字符 数 和 PR 270 
14-13 ”创建 显示 多 行文 本 的 文本 框 ……………… 270 
14-14 ”将 文本 框 中 的 内 容 添 加 到 工作 表 中 pp pa 
14-15 “验证 在 文本 框 中 输入 的 每 一 个 字符 272 
14-16 ”使 用 数值 调节 钮 设置 文本 框 中 的 值 : 272 
14-17 ”使 用 滚动 条 放大 字体 的 显示 比例 … :274 
14-18 ”使 用 选项 按钮 实现 单项 选择 功能 ………… “275 
14-19 ”使 用 多 组 选项 按钮 实现 多 组 选项 设置 功能 ………… “275 
14-20 ”使 用 GroupName 属性 代替 框架 控件 将 选项 按钮 分 组 … … 276 
14-21 ”使 用 复 选 框 实现 多 项 选择 功能 .pp 277 
14-22 ”使 用 RowSource 属性 将 活动 工作 表 中 的 单列 数据 添加 到 列表 框 中 ……………… 278 
14-23 ”使 用 RowSource 属性 将 特定 工作 表 中 的 单列 数据 添加 到 列表 框 中 ……………… 279 
14-24 ”使 用 RowSource 属性 将 工作 表 中 的 多 列 数据 添加 到 列表 框 中 …………………… 280 
14-25 ”使 用 AddItem 方法 将 无 规律 的 项 目 逐 一 添加 到 列表 框 中 ………………………… 280 
14-26 ”使 用 AddItem 方法 将 连续 的 数字 编号 批量 添加 到 列表 框 中 …………………… 281 
14-27 ”使 用 AddItem 方法 将 单元 格 区 域 中 的 数据 批量 添加 到 列表 框 中 ……………… 281 
14-28 ”使 用 List 属性 将 多 个 项 目 一 次 性 添加 到 列表 框 中 282 
14-29 ”使 用 List 属性 将 工作 表 中 的 一 列 数据 添加 到 列表 框 中 282 
14-30 ”将 单元 格 区 域 中 的 不 重复 数据 添加 到 列表 框 中 ……………… 282 
14-31 ”在 列表 框 中 动态 添加 单元 格 区 域 中 的 所 有 数据 pp 283 
14-32 ”将 在 文本 框 中 输入 的 内 容 添加 到 列表 框 中 

14-33 ”将 列表 框 中 选中 的 项 目 显示 在 文本 框 中 

14-34 ”对 列表 框 中 选中 的 项 目 进行 修改 玖 nn 
14-35 ”创建 可 选择 多 个 项 目的 列表 框 …… 

14-36 ”在 两 个 列表 框 之 间 移动 和 删除 项 目 

14-37 ”在 两 个 列表 框 之 间 移动 和 删除 不 重复 的 项 目 … 

14-38 ”在 列表 框 中 移动 项 目的 位 置 ……… 

14-39 ”将 列表 框 中 选中 的 项 目 写 入 工作 到 

14-40 ”将 列表 框 中 的 所 有 项 目 写 入 由 用 

14-41 ”将 列表 框 中 选中 的 所 有 项 目 写 入 由 用 户 指 定 的 单元 格 区 域 ………… 290 
14-42 ”使 用 AddItem 方法 将 无 规律 的 项 目 逐 一 添加 到 组 合 框 中 ……………… 292 
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14-43 ”使 用 RowSource 属性 将 工作 表 中 的 数据 添加 到 组 合 框 中 …………………… 293 
14-44 ”使 用 List 属性 将 工作 表 中 的 一 列 数 据 添 加 到 组 合 框 中 ppp 293 
14-45 ”将 单元 格 区 域 中 的 不 重复 数据 添加 到 组 合 框 中 ppp 293 
14-46 ”在 组 合 框 中 动态 添加 单元 格 区 域 中 的 所 有 数据 站 pp 294 
14-47 ”在 图 像 控 件 显示 指定 的 图 片 pp 294 
14-48 ”由 用 户 灵 活 指定 显示 在 图 像 控 件 中 的 图 片 pp 295 
14-49 ”在 图 像 控 件 中 随机 显示 不 同 的 图 片 pp 295 
14-50 “创建 应 用 程序 欢迎 界面 和 296 
14-51 ”创建 用 户 登 录 窗 口 298 
14-52 ”创建 带 有 预览 效果 的 颜色 选择 器 PR 300 
14-53 ”创建 可 显示 隐藏 选项 的 对 话 框 pp 304 
定制 Excel 界面 环境 ……… 于 nn 
15-1 ”获取 Excel 内 置 的 所 有 命令 栏 ………… 

15-2 ”获取 Excel 中 的 所 有 内 置 控件 的 FaceId 和 图 像 站 310 
15-3 ”获取 Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 pp 313 
15-4 ”获取 工作 表 菜 单 栏 中 第 一 个 菜单 包含 的 命令 的 相关 信息 ……… 315 
15-5 ”获取 工作 表 菜 单 栏 中 所 有 菜单 包含 的 命令 的 相关 信息 … … 316 
15-6 ”在 内 置 菜单 栏 中 创建 新 的 菜单 ………… i 
15-7 ”将 菜单 添加 到 内 置 菜单 栏 中 的 指定 位 置 “317 
15-8 ”在 内 置 菜单 中 添加 菜单 项 ……………… 318 
15-9 ”在 自 定义 菜单 中 添加 菜单 项 …………… 319 
15-10 ”在 自 定义 菜单 中 添加 子 菜单 及 其 菜单 项 pp 320 
和 的 个 贡 涩 单 申 的 散记 大 从 组 oi 321 
15-12 ”共享 同一 个 VBA 过 程 但 实现 不 同 功 能 的 菜单 项 pp 322 
15-13 ”只 在 包含 自 定义 控件 时 重 置 菜单 栏 326 
15-14 ”定制 菜单 和 菜单 项 时 的 防 错 设置 PP 327 
15-15 ”使 用 事件 过 程 自 动 添加 和 删除 菜单 和 菜单 项 pp 327 
15-16 ”创建 包含 两 个 菜单 的 菜单 栏 ee 328 
15-17 ”获取 Excel 中 的 所 有 工具 栏 及 其 包含 的 控件 330 
15-18 “创建 包含 3 个 按钮 的 工具 栏 333 
15-19 ”让 工具 栏 中 的 控件 以 图 像 显示 334 
15-20 ”创建 包含 下 拉 列 表 的 工具 栏 335 
15-21 在 内 置 工具 栏 中 添加 自 定义 控件 pp 337 
15-22 ”删除 特定 工具 栏 中 的 所 有 自 定义 控件 下 ee 338 
15-23 除 所 有 工具 栏 中 的 所 有 自 定义 控件 …………… 338 
15-24 ”定制 工具 栏 时 的 防 错 设置 …………… 2 338 
15-25 ”获取 Excel 中 的 所 有 快捷 菜单 的 相关 信息 …… “339 
15-26 ”获取 Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 和 pp 340 
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15-27 “在 内 置 快捷 菜单 中 添加 菜单 项 341 
15-28 ”在 内 置 快捷 菜单 中 添加 “转换 大 小 写 ” 子 菜单 及 其 菜单 项 ………………… 342 
15-29 ”禁用 Excel 中 的 所 有 快捷 菜单 

15-30 ”禁用 所 有 包含 自 定义 菜单 项 的 快捷 菜单 ppp 344 
15-31 ”删除 特定 快捷 菜单 中 的 所 有 自 定义 菜单 项 ppp 345 
15-32 ”定制 快捷 菜单 和 菜单 项 时 的 防 错 设置 pp 345 
15-33 “创建 自 定义 快 捷 菜 单 站 346 
15-34 ”使 用 ExecuteMso 方法 执行 功能 区 中 的 控件 356 
15-35 ”使 用 GetImageMso 方法 获取 控件 的 图 像 和 Ne 357 
15$-36 ” 自 定 义 功 能 区 357 
开发 用 户 自 定义 函数 和 366 
16-1 “创建 返回 单元 格 所 在 工作 表 的 名 称 的 函数 PN 367 
16-2 ”创建 可 自动 更 新 的 函数 368 
16-3 “创建 计算 数字 平方 根 的 函 郑 Ne 368 
16-4 “创建 进行 四 则 运算 的 函 妆 站 369 
16-5 “创建 包含 指定 默认 值 的 可 选 参数 的 函数 PP 370 
16-6 “创建 包含 未 指定 默认 值 的 可 选 参数 的 函数 371 
16-7 ”创建 计算 不 定数 量 的 参数 总 和 的 函数 … .371 
16-8 ”使 用 Array 函数 创建 返回 数组 的 函数 …… a “372 
16-9 通过 循环 结构 为 数组 赋值 来 创建 返回 数组 的 函数 …… 393 
16-10 ”创建 可 检查 错误 并 返回 错误 值 的 函数 ………… 374 
16-11 为 用 户 自 定义 函数 分 类 并 添加 帮助 信息 pp 376 
16-12 ”创建 从 文本 左 侧 提 取 连 续 数 字 的 函数 378 
16-13 ”创建 将 数字 中 的 每 一 位 输入 到 连续 多 个 单元 格 中 的 函数 ………… 379 
16-14 ”创建 返回 区 域 中 第 一 个 非 空 单元 格 地 址 的 函数 pp 380 
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第 1 章 VBA 编程 概述 





本 章 主要 介绍 VBA 的 一 些 背景 知识 、 宏 的 安全 性 设置 、 录 制 与 使 用 宏 、 使 用 Excel VBA 








进行 编程 的 界面 




















具 VBE 窗 


的 组 成 等 内 容 ， 最 后 还 介绍 了 开发 Excel 应 用 程序 的 一 般 流 程 。 


1.1 VBA 简介 





本 节 对 Excel VBA 的 发 展 历程 进行 了 简要 介绍 ， 还 介绍 了 使 用 Excel VBA 的 原因 ， 以 及 


Excel VBA 所 提供 的 主要 功能 。 


1.1.1 VBA 发 展 历程 简 述 


VisiCalc 是 世界 上 最 早出 现 的 电子 表格 软件 。 虽然 以 现在 的 标准 看 ，VisiCalc 存在 着 很 多 不 
完善 的 地 方 ， 但 是 它 为 之 后 的 电子 表格 软件 的 设计 方向 葛 定 了 基础 。 在 VisiCalc 之 后 出 现 的 是 
Lotus 1-2-3， 它 是 当时 非常 成 功 的 电子 表格 软件 。Lotus 1-2-3 中 的 宏 直接 输入 到 表格 的 单元 格 





破坏 ， 进 而 导致 频繁 出 错 。 
与 VisiCalc 类 似 的 是 Microsoft 公司 开发 的 Multiplan， 该 软件 是 Excel 的 前 身 , 但 其 并 未 取 
得 成 功 。1985 年 在 Macintosh 操作 系统 中 第 一 次 看 到 了 Excel， 它 使 用 了 图 形 化 的 界面 。1987 








中 ， 由 于 当时 还 不 存在 包含 多 个 工作 表 的 工作 短 ， 因 此 宏 的 完整 性 及 其 功能 很 容易 受到 用 户 的 


























年 Microsoft 发 布 了 适用 于 Windows 操作 系统 的 第 一 个 Excel 版 本 ， 版 本 号 为 Excel 2.0。 随 后 


Microsoft 又 发 布 了 Excel 3.0、Excel 4.0 和 Excel 5.0， 在 Excel 4.0 中 提供 了 功能 强大 的 XLM 宏 
语言 。XLM 宏 语 言 是 由 保存 在 工作 表 中 的 几 百 个 函数 调用 组 成 的 ， 这 些 函 数 提供 了 Excel 的 所 


有 功能 ， 并 人 允许 对 Excel 进行 编程 控制 ， 但 是 增加 了 学 习 和 使 用 的 难度 。 

















Microsoft 在 1993 年 发 布 的 Excel 5.0 中 首次 加 入 了 VBA， 随 后 其 被 陆续 添加 到 Word、 
PowerPoint、Access 等 其 他 Office 组 件 中 。 通 过 编写 VBA 代码 ， 能 够 实现 在 不 同 的 Office 组 件 
之 间 访 问 数据 。Microsoft 在 后 来 发 布 的 Excel 版 本 中 对 VBA 进行 了 不 同 程度 的 改进 ,比如 增加 





了 大 量 的 事件 ， 通 过 编写 : 























库 ， 从 而 允许 





























件 代 码 可 以 自动 响应 用 户 的 操作 。 此 外 ， 还 为 VBA 提供 了 一 个 扩 


户 通过 编程 来 自 定 义 VBE 环境 (Visual Basic Editor，VBE) 。 


的 版 本 。 由 于 Excel 2007 使 用 


程 定制 Excel 界面 环境 的 方法 
似 ， 虽 然 在 功能 区 界面 环境 方 








也 


Excel 2007 是 Excel 发 展 历程 中 一 个 具有 重大 意义 的 版 本 ， 它 是 自 Excel 97 以 来 发 生 最 大 变化 
了 功能 区 界面 代替 早期 Excel 版 本 中 的 菜单 栏 和 工具 栏 ， 因 此 通过 编 
与 以 前 大 不 相同 。 Excel 2016/2013/2010 等 后 续 版 本 与 Excel 2007 类 
































下 





存在 一 些 区 别 ， 但 是 没有 本 质 上 的 改变 。 本 书 以 Excel 2016 为 操作 





环境 来 讲解 Excel VBA 知识 ， 但 是 书 中 内 容 同样 适用 于 Excel 2016 之 前 的 Excel 版 本 。 
提示 :“ 宏 ”通常 指 的 是 一 组 VBA 代码 . 在 Excel 中 将 录制 VBA 代码 的 操作 称 为 “录制 宏 ”。 
本 书 会 介绍 很 多 VBA 术语 ， 





也 会 使 用 “ 宏 ” 这 个 术语 作为 表示 任何 VBA 代码 的 一 般 方式 。 
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1.1.2 VBA 的 应 用 场合 


于 本 书 的 主题 是 Excel VBA, 因此 本 节 介 绍 的 VBA 的 应 用 场合 主要 是 指 在 Excel 环境 下 ， 
但 是 列举 的 这 些 应 用 场合 也 同样 适用 于 其 他 支持 VBA 的 Office 组 件 。 虽然 Excel 已 经 提供 了 非 
常 丰富 的 功能 ， 以 满足 日 常 应 用 所 需 ， 但 是 仍然 有 很 多 原因 需要 使 用 VBA， 下 面 列 举 了 需要 使 
VBA 的 应 用 场合 。 


1. 简化 操作 ， 批 量 完成 任务 

使 用 VBA 或 者 说 录制 宏 的 一 个 原因 是 可 以 将 多 步 操作 简化 为 一 步 。 例 如, 可 能 需要 对 单元 
格 设置 多 种 格式 ， 包 括 字体 、 字 号 、 字 体 颜色 、 数 字 格 式 等 。 常 规 方法 是 在 操作 界面 中 逐一 找 
到 设置 项 并 依次 设置 这 些 格式 ， 或 者 通过 预先 定制 单元 格 样式 ， 然 后 再 一 次 性 将 样式 应 用 到 指 
定 的 单元 格 中 。 使 用 VBA 则 可 以 瞬间 完成 以 上 操作 ， 并 可 重复 使 用 ， 便 捷 高 效 。 

对 于 需要 输入 复杂 公式 的 情况 , 可 以 通过 使 用 VBA 编写 自 定 义 函 数 来 简化 公式 的 输入 , 即 
使 对 函数 语法 不 熟悉 的 用 户 ， 也 可 以 轻松 使 用 自 定义 函数 完成 数据 的 计算 任务 。 

2. 轻松 处 理 专业 数据 

很 多 普通 用 户 可 能 很 难 使 用 Excel 处 理 自己 不 擅长 的 专业 领域 中 的 数据 。 我 们 通过 使 用 VBA 
预先 编制 数据 处 理 和 分 析 程 序 ， 或 者 更 复杂 的 人 事 管理 系统 、 财 务 管理 系统 等 专业 化 程序 ， 从 而 使 
非 专业 人 员 只 需 单 击 几 下 鼠标 就 可 以 轻松 处 理 专业 数据 ， 而 无 须 浪 费时 间 学 习 相 关 专 业 知识 。 


3. 扩展 程序 功能 

虽然 Excel 自身 已 经 提供 了 大 量 丰富 的 功能 ， 但 是 永远 也 跟 不 上 来 自 各 方面 的 日 新 月 异 的 
使 用 需求 。 使 用 VBA 可 以 根据 应 用 需求 编写 量 身 定制 的 程序 ， 从 而 完成 Excel 内 置 功能 无 法 实 
现 的 特定 任务 。 例 如 ， 当 需要 在 Excel 中 操作 Word 文档 或 读 取 注 册 表 的 配置 信息 时 ， 就 必须 借 
助 VBA 才能 实现 。 


4. 开发 专业 插件 

使 用 VBA 还 可 以 开发 专业 插件 。 插 件 以 文件 的 形式 存在 ,可 以 被 多 个 用 户 安装 和 使 用 , 用 
于 完成 一 个 或 多 个 功能 。 插 件 具 有 普 适 性 ， 而 不 只 是 针对 菜 个 特定 用 户 。 由 于 需要 考虑 插件 通 
性 的 问题 ， 因 此 开发 插件 比 编写 针对 单一 用 户 并 完成 简单 功能 的 VBA 程序 要 复杂 得 多 。 


1.1.3 ”VBA 的 特点 


与 其 他 编程 语言 不 同 ，VBA 代码 可 以 通过 录制 的 方式 自动 创建 ， 这 样 对 于 不 了 解 VBA 编 
程 知识 的 用 户 而 言 非 常 方便 。 然 而 凡事 都 有 利弊 ， 虽 然 可 以 通过 录制 的 方式 自动 创建 VBA 代 
码 ， 但 是 代码 本 身 会 包含 元 余部 分 ， 影 响 运 行 的 性 能 ， 而 且 兼容 性 较 差 ， 录 制 的 VBA 代码 通 
常 只 能 完成 特定 单元 格 区 域 中 的 一 项 特定 任务 。 

VBA 本 身 的 语法 规则 通用 于 Excel、Word、PowerPoint、Access 等 多 个 Office 组 件 ， 因 此 
学 习 VBA 语法 投入 少 ， 回 报 高 。 一 旦 掌握 了 VBA 的 语法 规则 ， 就 可 以 将 其 应 用 到 所 有 支持 
VBA 的 Office 组 件 中 。 但 是 如 果 希 望 在 特定 的 Office 组 件 中 真正 发 挥 VBA 的 作用 ， 还 需要 掌 
握 与 该 组 件 对 应 的 对 象 模型 。 例 如 ， 如 果 希 望 在 Excel 中 编写 能 完成 Excel 相关 任务 的 VBA 代 
码 ， 则 需要 学 习 Excel 对 象 模型 。 
相对 于 其 他 类 型 的 编程 语言 而 言 ， VBA 更 容易 学 习 和 掌握 ， 而 且 开发 效率 较 高 。 这 是 因为 
VBA 中 内 置 了 大 量 的 对 象 , 用 户 在 大 多 数 情况 下 不 需要 额外 创建 新 的 对 象 , 而 是 直接 使 用 VBA 
提供 的 现 有 对 象 ， 并 使 用 它们 的 属性 和 方法 来 完成 各 项 任务 。 
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1.2 Excel 文件 格式 


微软 从 Excel 2007 开始 为 Excel 工作 短 提 供 了 新 的 文件 格式 , 新 格式 的 文件 扩展 名 在 Excel 
2003 文件 格式 扩展 名 的 结尾 多 加 了 一 个 字母 x 或 m， 即 .xlsx 和 .xlsm。 新 的 文件 格式 是 以 工作 
短 中 是 否 包含 宏 来 作为 划分 标准 的 ， 以 .xlsx 格式 保存 的 工作 德 不 能 包含 宏 ， 而 如 果 希 望 工作 禾 
中 包含 宏 ， 则 必须 将 工作 敌 以 .xlsm 格式 保存 。 当 然 ， 如 果 以 早期 Excel 版 本 中 的 .xls 格式 保存 
工作 籍 ， 则 就 可 以 灵活 选择 是 否 包含 宏 。 表 1-1 列 出 了 Excel 2007/2010/2013/2016 包含 的 主要 
文件 类 型 及 其 扩展 名 。 









































表 1-1 Excel 文 件 类 型 及 其 扩展 名 


文件 类 型 扩 展 名 
不 包含 宏 的 工作 短 .Xlsx 
包含 宏 的 工作 短 .xlsm 
工作 敌 模 板 -xltx 
包含 宏 的 工作 敌 模 板 .xltm 
非 XML 二 进 制 工作 等 .xlsb 
包含 宏 的 加 载 项 .Xlam 


在 Excel 2007 或 更 高 版 本 的 Excel 中 打开 由 Excel 2003 或 更 低 版 本 的 Excel 创 建 的 格式 为 .xls 
的 工作 短 时 ， 将 会 自动 进入 兼容 模式 ， 并 在 Excel 程序 窗口 的 标题 栏 中 显示 文字 “兼容 模式 ”， 
如 图 1-1 所 示 ， 此 时 无 法 使 用 Excel 2007 或 更 高 版 本 的 Excel 提供 的 新 功能 。 




















口 日 民 厦 四 闪 : 国 ] 
插入 页 面 布局 公式 数据 只 拓 
-|x :i 
本 = $y 
工 几 -AAA 奖 三 » 排序 和 候选 查找 和 选择 





字体 编 癌 ^ 





图 1-1 在 高 版 本 Excel 中 打开 .xls 格式 的 工作 簿 会 自动 进入 兼容 模式 


可 以 单 击 “ 文 件 ” 按 钮 ， 然 后 依次 选择 “信息 ”|“ 转 换 ” 命 令 ， 将 .xls 格式 的 工作 短 转 换 
为 .xlsx 格式 。 如 果 转 换 前 的 工作 憩 中 包含 VBA 代码 ,那么 转换 后 的 工作 敌 的 格式 将 会 是 .xlsm。 








1.3” 宏 的 安全 性 设置 


为 了 可 以 正常 运行 Excel 工作 矢 中 的 宏 ， 或 是 出 于 安全 性 方面 的 原因 而 禁止 运行 工作 短 中 
的 宏 ， 都 应 该 了 解 和 正确 设置 宏 的 安全 性 选项 。 本 节 将 介绍 Excel 中 关于 允许 或 禁止 运行 宏 方 
面 的 选项 设置 的 方法 。 
1.3.1 临时 允许 或 禁止 运行 宏 


默认 情况 下 ， 当 打开 包含 宏 的 工作 筹 时 ， 在 功能 区 的 下 方 会 显示 一 条 “ 宏 已 被 禁用 ”的 消 ” 
其 中 还 会 包含 一 个 “启用 内 容 ” 按 钮 ， 如 图 1-2 所 示 。 如 果 确 定 工作 筹 中 的 宏 是 安全 可 千 



















































































息 ， 

















的 ， 可 以 单 击 该 按钮 以 允许 运行 该 ] 
工作 竹中 的 宏 ， 但 是 可 以 查看 和 修改 宏 。 


性 




















宏 的 了 


提供 了 一 些 默认 
含 宏 的 工作 短 集 


Excel 允许 用 
[ 作 短 ， 其 中 的 宏 就 可 以 运行 。 在 Excel 中 将 这 类 文件 夹 称 为 “受信 任 位 置 ”。Excel 自身 
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# 就 不 能 运行 这 个 





[ 作 短 中 的 宏 。 和 否则 可 以 忽略 该 消息 ， 这 村 














图 1-2 打开 包含 宏 的 工作 矢 时 显示 的 消息 





1.3.2 ”多 许 运行 特定 文件 夹 中 的 宏 








户 将 指定 的 文件 夹 设置 为 允许 宏 运行 的 文件 夹 , 只 要 从 这 个 文件 夹 中 打开 包含 





的 受信 任 位 置 ， 用 户 也 可 以 向 Excel 中 添加 新 的 受信 任 位 置 ， 这 样 就 可 以 将 包 
中 保存 在 同一 个 文件 夹 中 ， 便 于 使 用 和 管理 。 








可 以 使 用 下 面 的 方法 打开 用 于 设置 受信 任 位 置 的 对 话 框 : 











(1) 单 击 “ 文 件 ”按钮 ， 然 后 选择 “选项 ”， 打 开 “Excel 选项 ”对 话 框 。 


(2) 在 左 侧 选择 “信任 中 心 ”， 然 后 在 右 侧 单 击 “ 信 任 中 心 设置 ”按钮 ， 如 图 1-3 所 示 。 


? x 





Excel 选项 














Microsoft 可 信任 计算 


Microsoft Excel 信任 中 心 
。 建 议 不 要 更 改 这 些 设置 。 。 | 信任 中 心 设置 [ 








(3) 


图 1-3 单 击 “ 信 任 中 心 设置 ”按钮 
Ph 心 ”对 话 框 ， 在 左 侧 选 择 “ 受 信任 位 置 ”， 右 侧 显 示 了 Excel 默认 的 受 





打开 “信任 





信任 位 置 ， 以 及 用 户 添加 的 受信 任 位 置 ， 如 图 1-4 所 示 。 
对 受信 任 位 置 主要 可 以 进行 以 下 3 种 操作 。 


1. 添加 新 的 受信 任 位 置 
除了 Excel 默认 提供 的 受信 任 位 置 之 外 ， 用 户 还 可 以 将 自己 创建 的 文件 夹 设置 为 受信 任 位 











1-5 所 示 的 “Microsoft Office 受信 任 位 置 ” 





二 “添加 新 位 置 ”按钮 ， 打 开 如 图 





置 。 在 图 1-4 中 单 














选择 的 位 置 。 




















中 显示 的 默认 路 径 是 在 打开 该 对 话 框 之 前 ， 在 受信 任 位 置 列表 
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受信 任 的 加 载 项 目录 | 
加 载 项 
ActiveX 设置 
宏 设 置 

受 保护 的 视图 
消息 栏 

外 部 内 容 
文件 阻止 设置 
隐私 选项 











? x 
受信 任 位 置 
警告 : 所 有 这 些 位 置 帮 被 视 为 打开 文件 的 受信 任 来 源 。 如 果 您 更 改 或 添加 位 置 ， 请 确保 新 位 置 是 安全 的 。 
路 径 搞 述 修改 日 期 ~ 





Civ-s (x86)j\Microsoft Office\Root\Templates\、 Excel 默认 位 置 : 应 用 程序 模板 
Civ.pData\NRoaming\Microsoft\Excel\XLSTART\ Excel 默认 位 置 : 用 户 启动 
CA\.…Microsoft Office\Root\Office16\XLSTART\ 。 Excel 默认 位 置 ; Excel 启动 
Ce-AppData\Roaming\MicrosoftTemplates\ Excel 默认 位 置 : 用 户 模板 
CA\.…Microsoft Office\Root\Office16\STARTUP\ 。 Excel 默认 位 置 : Office 启动 
CivJNMMicrosoft Office\Root\Office16\Library\、 Excel 默认 位 置 : 加 载 项 





第 略 位 置 


路 径 (P): ”Ci\Program Files (x86)\Microsoft Office\Root\Templates\ 
搞 述 (D): 。 Excel 默认 位 置 : 应 用 程序 模板 


修改 日 期 : 
子 文件 夹 : 允许 


口 允许 网 络 上 的 委 信 任 位 置 (不 推荐 )(W) 
口 禁用 所 有 受信 任 位 置 (D) 








图 1-4 ”Excel 默认 的 受信 任 位 置 和 用 户 添加 的 受信 任 位 置 
Microsoft Office 受信 任 位 置 ? x 
车 告 , 此 位置 被 杭 为 打开 文件 的 可 信任 宁 源 如 果 要 更 改 开 添加 位 置 ， 请 确 
保 新 位 置 是 雪 全 的 。 





路 径 (p). 
Ci\Program Files (x86)\Microsoft Office\Root\Office16\XLSTART\ 


浏览 (B)… 

















创建 日 期 和 时 间 : 2017/11/6 12:23 





图 1-5 添加 新 的 信任 位 置 





要 添加 新 的 位 置 ， 需 要 单 击 “ 浏 览 ”按钮 ， 然 后 选择 所 需 的 文件 夹 。 选 择 后 单 击 “ 确 定 ” 
按钮 返回 “Microsoft Office 受信 任 位 置 ” 对 话 框 ， 此 时 会 显示 新 选择 的 文件 夹 的 完整 路 径 。 通 
过 选中 “同时 信任 此 位 置 的 子 文件 夹 ” 复 选 框 ， 可 以 同时 信任 所 选 文件 中 包含 的 所 有 子 文件 夹 ， 
还 可 以 在 “描述 ”文本 框 中 输入 说 明 信 息 。 

确认 无 误 后 单 击 “ 确 定 ”按钮 关闭 该 对 话 框 ， 在 受信 任 位 置 列表 中 将 会 看 到 新 添加 的 位 置 ， 
例如 如 图 1-6 所 示 的 “G:\ 安 全 的 Excel 宏 ”。 


2. 修改 现 有 的 受信 任 位 置 
在 受信 任 位 置 列表 中 选择 要 修改 的 位 置 ， 然 后 单 击 “ 修 改 ” 按 钮 ， 可 以 将 所 选 位 置 改 为 一 








个 其 他 的 位 置 。 











。5。 
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信任 中 心 














全。 总 
受信 任 的 发 布 者 a 
[se | 
受信 任 的 文档 警告 : 所 有 这 些 位 置 都 被 视 为 打开 文件 的 受信 任 来 源 。 如 果 从 更 改 或 添加 位 置 ， 请 确保 新 位 置 是 安 全 的 . 
二 六 EE 3 FEE 
用 户 位 置 
SG:\ 安 全 的 Excel 守 \ 2017/111/6 12:23 





CNV-pData\Roaming\MicrosofATemplates\、 Excel 昧 位 置 用 户 模板 
C\-Microsoft Office\Root\Office16\Libray\ Ex 加 匡 项 











寺 设 年 Cicrosoft Office\Root\Office16\STARTUP' :Office 启动 
要 保护 的 视图 Ci\-icrosoft Office\Root\Office16\XLSTART\ 

Ci\-.ta\Roaming\Microsoft\Excel\XLSTART\ Excel 里 
诺 息 栏 Cev.x86)NMicrosoft Offce\VRoot\Templates\ 。 Excel 默认 
外 部 内 容 

第 路 位 置 
文 作 阳 止 设置 

(p)。。Gx 安 全 的 Excel 去 | 
隐私 选项 路 径 (中 \ 安 全 
摘 述 (D} 


修改 日 期: 2017/11/6 12:23 
子 文件 实 不 许 

添加 新 位 置 (A)-。| | 溃 除 R) | | 修改 (M).. 
口 允许 网 阁 上 的 受信 任 位 置 (不 推荐 MW) 
口 禁用 所 有 受信 任 位 置 (D) 











图 1-6 将 所 选 位 置 添加 到 受信 任 位 置 列表 中 
3. 删除 受信 任 位 置 
在 受信 任 位 置 列 表 中 选择 不 再 需要 的 受信 任 位 置 ， 单 击 “ 删 除 ” 按 钮 将 其 从 列表 中 删除 。 


汪 1.3.3 ”允许 运行 所 有 宏 


使 用 1.3.2 节 介 绍 的 方法 只 能 运行 位 于 受信 任 位置 中 工作 短 所 包含 的 宏 。 如 果 希 望 运 行 任意 
位 置 上 工作 短 中 的 宏 ， 那 么 需要 在 “信任 中 心 ” 对 话 框 的 左 侧 选 择 “ 宏 设置 ”， 然 后 在 右 侧 选 
择 “ 启 用 所 有 宏 〈 不 推荐 : 可 能 会 运行 有 潜在 危险 的 代码 ) ”选项 ， 如 图 1-7 所 示 。 


信任 中 心 LX 











受信 任 的 发 布 者 


受信 任 位 置 











忆 | 
开发 人 员 守 设置 
NN 口 信任 对 VBA 工程 对 象 模型 的 沪 问 W) 
消息 栏 
外 部 内 容 
文件 阻止 疫 秆 
隐私 迁 项 








本 = 到] 本 了 
1-7 ”对 宏 安全 性 进行 全 局 设置 

经 过 以 上 设置 ， 无 论 工作 德 是 否 位 于 受信 任 位 置 ， 用 户 都 可 以 运行 其 中 包含 的 宏 ， 但 同时 
也 会 带 来 更 多 的 安全 隐患 。 此 外 ，“ 宏 设置 ”类 别 中 的 选项 不 会 对 从 受信 任 位 置 中 打开 的 工作 
敌 或 加 载 项 起 作用 。 例 如 ， 如 果 在 “ 宏 设置 ”类 别 中 选择 “禁用 所 有 宏 ， 并 且 不 通知 ”选项 ， 
当 从 受信 任 位 置 打开 包含 宏 的 工作 筹 时， 其 中 的 宏 仍然 可 以 正常 运行 。 
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宏 设 置 中 的 另外 两 个 选项 都 用 于 禁止 运行 宏 ， 区 别 在 于 禁用 的 同时 是 否 向 用 户 发 出 消息 通 
知 。“ 禁 用 所 有 宏 ， 并 发 出 通知 ”是 宏 设 置 的 默认 选项 ， 就 像 1.3.1 节 介 绍 的 那样 ， 当 在 Excel 
中 打开 包含 宏 的 工作 短 时 ， 会 在 功能 区 下 方 显 示 消息 通知 ， 由 用 户 决 定 是 否 允许 宏 的 运行 。 如 
果 选 择 “ 禁 用 所 有 宏 ， 并 且 不 通知 ”选项 ， 禁 用 宏 并 且 不 会 向 用 户 发 出 消息 通知 。 


1.3.4 禁止 他 人 随意 修改 宏 


在 宏 的 安全 性 设置 中 即使 禁止 了 宏 的 运行 ， 在 打开 包含 宏 的 工作 敌后 ， 用 户 仍 然 可 以 查看 

和 修改 宏 。 如 果 意 外 地 修改 了 宏 ， 可 能 会 导致 其 无 法 正常 运行 。 为 了 避免 出 现 这 种 情况 ， 可 以 

通过 密码 为 宏 设置 访问 权限 。 
在 Excel 中 打开 指定 的 包含 宏 的 工作 短 ， 按 AlttF11 组 合 键 打开 VBE 窗口 ， 在 菜单 栏 中 选 

择 “ 工 具 ”|“VBAProject 属性 ”命令 ， 打 开 “VBAProject- 工 程 属性 ”对 话 框 ， 在 “保护 ” 选 

项 卡 中 选中 “查看 时 锁定 工程 ” 复 选 框 ， 在 “密码 ”和 “确认 密码 ”文本 框 中 输入 相同 的 密码 ， 

如 图 1-8 所 示 ， 最 后 单 击 “ 确 定 ” 按 钮 。 

提示 : 本 章 后 面 将 会 对 VBE 窗口 进行 详细 介绍 。 

以 后 再 次 打开 受 VBA 工程 密码 保护 的 工作 短 ， 并 试图 查看 或 修改 VBA 代码 时 ， 将 会 显示 

如 图 1-9 所 示 的 对 话 框 ， 只 有 输入 正确 的 密码 才能 进行 下 一 步 操作 。 


VBAProject - 工程 属性 x 
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玉 查看 时 锁定 工程 (Y) 









































查看 工程 属性 的 密码 
| 3() 2 VBAProject 密码 
| 确认 密码 (C) jt** 密码 人) 
ll 图 1-9 查看 VBA 代码 之 前 必须 
图 1-8 为 VBA 工程 设置 密码 提供 正确 的 密码 





1.4 录制 与 使 用 宏 


使 用 VBA 的 绝 大 多 数 用 户 几 乎 都 是 从 录制 宏 开始 的 , 这 主要 有 两 个 原因 。 首先, 录制 宏 是 
获得 VBA 代码 的 最 简单 方式 ， 另 一 个 原因 是 可 以 通过 录制 宏 了 解 完成 特定 功能 所 需 使 用 的 
Excel 对 象 ， 这 样 就 可 以 快速 掌握 VBA 代码 的 编写 技巧 。 无 论 是 VBA 初级 用 户 还 是 有 经 验 的 
VBA 开发 人 员 ， 都 能 从 录制 的 宏 中 受益 。 本 节 将 介绍 录制 和 使 用 宏 方 面 的 内 容 ， 具 体 包括 录制 
宏 、 运 行 宏 、 保 存 宏 、 修 改 宏 等 。 


1.4.1 显示 “开发 工具 ”选项 卡 
“开发 工具 ”选项 卡 提供 了 与 操作 宏和 加 载 项 相关 的 命令 ,但 是 默认 没有 显示 在 功能 区 















































Ud 
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虽然 录制 宏 的 操作 不 依赖 于 “开发 工具 ”选项 卡 ， 但 是 如 果 要 对 宏 进 行 更 多 的 操作 ， 则 需要 使 
“开发 工具 ”选项 卡 。 

右 击 功 能 区 或 快速 访问 工具 栏 ， 在 弹出 的 菜单 中 选择 “ 自 定义 功能 区 ”命令 ， 打 开 “Excel 
选项 ”对 话 框 并 自动 进入 “ 自 定义 功能 区 ”界面 ， 在 最 右 侧 的 列表 框 中 选中 “开发 工具 ” 复 选 
框 ， 如 图 1-10 所 示 。 单 击 “ 确 定 ” 按 钮 ，“ 开 发 工具 ”选项 卡 将 被 添加 到 功能 区 中 。 


? x 




































































Excel 选项 





新 建 选项 卡 (W) | | 新 建 组 (N) | | 重 命名 (M).. 
十 x: | 重唱 > | 








[ENSO ~ 


确定 取消 











图 1-10 选中 “开发 工具 ” 复 选 杠 





pa 
积 1.4.2 “录制 宏 


录制 宏 的 操作 本 身 很 简单 ， 首 先 想 好 要 录制 哪些 操作 ， 然 后 开启 宏 录 制 器 开始 录制 ， 按 照 
预先 设想 进行 操作 ， 最 后 停止 宏 录 制 器 结束 录制 。 这 样 就 录制 好 了 一 个 宏 ， 以 后 可 以 通过 运行 
这 个 宏 来 重复 执行 录制 过 程 中 涉及 的 操作 。 

为 了 确保 录制 的 宏 可 用 并 高 效 ， 在 开始 录制 前 需要 考虑 一 些 事 项 。 首 先 确定 要 录制 的 宏 想 
要 完成 什么 操作 ， 然 后 排练 要 录制 的 操作 步骤 直到 熟练 为 止 。 这 是 因为 录制 过 程 中 出 现 的 误 操 
作 会 被 宏 录 制 器 记录 下 来 ， 以 后 运行 宏 时 也 会 包含 这 些 错 误 的 操作 。 需 要 注意 的 是 ， 并 非 所 有 
操作 都 会 被 宏 录制 器 记录 下 来 。 

息 设 希望 录制 从 B1 单元 格 开始 在 同一 行 中 输入 1 月 一 3 月 的 名 称 ， 即 1 月 、2 月 、3 月 。 
于 本 例 中 要 在 B1 单元 格 中 输入 “1 月 ”， 所 以 录制 时 应 该 包括 选择 B1 单元 格 的 操作 。 如 果 
录制 时 不 包括 该 操作 ， 会 将 在 活动 单元 格 中 输入 “1 月 ”的 操作 记录 下 来 。 在 以 后 运行 宏 时 ， 
活动 单元 格 的 位 置 是 不 固定 的 ， 这 样 就 无 法 保证 “1 月 ”始终 被 输入 到 B1 单元 格 中 。 
除了 在 单元 格 中 输入 内 容 以 外 ， 还 需要 决定 是 否 为 输入 的 内 容 设置 格式 ， 比 如 字体 格式 、 
数字 格式 或 对 齐 格式 。 最 后 需要 考虑 在 宏 运 行 后 活动 单元 格 的 位 置 。 假 设 本 例 希 望 宏 运行 后 的 
活动 单元 格 是 A2， 那 么 在 停止 宏 录 制 前 ， 需 要 选择 A2 单元 格 。 

考虑 好 以 上 问题 后 ， 下 面 就 可 以 开始 录制 了 。 录 制 之 前 需要 在 “录制 新 宏 ” 对 话 框 中 为 宏 
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设置 一 些 信息 ， 包 括 宏 的 名 称 、 运 行 宏 时 的 快捷 键 、 宏 的 说 明 信 息 等 内 容 ， 可 以 使 用 以 下 3 种 
方法 打开 “录制 新 宏 ” 对 话 框 。 在 打开 该 对 话 框 之 前 确保 已 经 打开 了 希望 包含 宏 的 工作 短 ， 或 
者 新 建 一 个 空白 的 工作 簿 。 
口 单 击 Excel 窗口 底部 状态 栏 左 侧 的 图 按钮 。 如 果 没 有 显示 该 按钮 ， 可 以 右 击 状态 栏 并 从 
弹出 的 菜单 中 选择 “ 宏 录 制 ” 选 项 。 
口 在 功能 区 “视图 ” 选项 卡 中 单 击 “ 宏 ”按钮 ， [B= 
然后 在 弹出 的 菜单 中 选择 “录制 宏 ” 命 令 。 | sm 
口 在 功能 区 “开发 工具 ”选项 卡 中 单 击 “ 录 制 
宏 » 按钮 。 快 娃娃 (IO: 
打开 的 “录制 宏 ” 对 话 框 如 图 1-11 所 示 ， 在 3 
这 里 可 以 进行 以 下 4 项 设置 ， 其 中 的 一 些 设置 是 。 | 0 - 
可 选 的 。 a 
1. 宏 的 名 称 
在 “ 宏 名 ”文本 框 中 输入 宏 的 名 称 ， 应 该 使 用 
易于 识别 的 描述 性 名 称 。 名 称 的 长 度 不 能 超过 255 a 
个 字符 ， 而 且 不 能 包含 空格 、 问 号 、 叹 号 等 符号 。 
图 1-11 “录制 宏 ” 对 话 框 


2. 运行 宏 的 快捷 键 


在 “快捷 键 ” 文 本 框 中 可 以 输入 一 个 小 写字 母 ， 也 可 以 输入 一 个 大 写字 母 。 例 如 ， 如 果 输 
入 的 是 小 写字 母 r， 以 后 可 以 使 用 Ctrl+R 组 合 键 运行 这 个 宏 ， 如 果 输 入 的 是 大 写字 母 R， 则 需 





二 4 


运行 宏 。 











要 使 用 Ctrl+Shift+R 组 合 键 
3. 宏 的 保存 位 置 





在 “保存 在 ”下 拉 列 表 中 选择 将 录制 好 的 宏 保 存在 哪里 ， 包 含 以 下 3 个 选项 : 


口 选择 “当前 工作 短 ” 选 项 ，Excel 会 将 录制 的 宏 保 存在 当前 了 
[ 作 短 ”选项 ，Excel 会 新 建 一 个 工作 禾 并 
口 选择 “个 人 宏 工作 短 ” 选 项 ，Excel 会 将 录制 的 宏 保存 在 名 为 “Personal.xlsb” 的 特殊 了 

作 短 中 。 这 个 工作 短 位 于 Excel 程序 的 XLSTART 启动 文件 夹 中 ， 每 次 
[ 作 筹 。 由 于 该 工作 筹 默 认 处 于 隐藏 状态 ， 
[ 作 夭 。 如 果 希 望 录 制 的 宏 可 以 用 于 任意 一 个 工作 敌 而 不 只 是 录制 宏 时 的 了] 
E 短 中 。 如 果 该 工作 憩 不 存在 ，Excel 会 自动 创建 。 


口 选择 “新 了 





会 自动 启动 该 J 








就 需要 将 宏 保存 到 Personal. 


4. 宏 的 说 明 信 息 








xlsb 工 { 





[ 作 簿 中 。 





将 录制 的 宏 保存 在 其 中 。 


中 


巴 








启动 Excel 时 
因此 启动 Excel 后 不 会 显示 该 
[ 作 夭 ， 那 么 








为 了 避免 以 后 忘记 宏 的 用 途 ， 可 以 在 “说 明 ” 文 本 框 中 为 宏 添加 说 明 信 息 。 
设置 好 所 需 选项 后 ， 单 击 “ 确 定 ”按钮 开始 录制 。Excel 窗口 底部 状态 栏 左 侧 的 “录制 宏 ” 


按钮 会 变 为 “停止 录制 ”按钮 ， 同 
“停止 录制 ”按钮 。 本 例 要 从 B1 
输入 好 以 后 让 A2 单元 格 变 为 活动 

(1) 单 
入 “2 月 "条 


自 











“3 月 ”。 


(2) 选择 B1:D1 单元 格 区域 ， 然 后 在 功能 区 “开始 ”选项 卡 中 间 





区 域 中 的 内 容 设置 加 粗 格式 。 


元 格 开始 在 同一 行 的 3 个 和 
元 格 ， 录 制 过 程 如 下 : 


时 功能 区 “开发 工具 ”选项 卡 中 的 “录制 宏 ” 按 钮 也 会 变 为 


a 元 格 中 输入 1 月 一 3 月 的 名 称 ， 





f Bl 单元 格 ， 输 入 “1 月 ”， 然 后 使 用 类 似 的 方法 ， 在 C1 和 D1 单元 格 中 分 别 输 





二 “加 粗 ” 按 钮 ， 为 所 选 


也 
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(3) 单 击 A2 单元 格 ， 使 其 成 为 活动 单元 格 。 

(4) 单 击 Excel 窗口 底部 状态 栏 左 侧 的 “停止 录制 ”按钮 门 ， 结 束 录制 。 

注意 : 一 定 记得 要 停止 宏 的 录制 。 否 则 如 果 在 停止 录制 之 前 就 运行 宏 ， 那么 将 会 陷入 死 循 
环 。 如果 出 现 这 种 情况 ， 可 以 使 用 Ctrl+Break 组 合 键 强制 中 断 宏 的 运行 。 


1.4.3 ”保存 宏 


完成 宏 的 录制 后 ， 需 要 保存 包含 该 宏 的 工作 簿 。 不 能 将 工作 短 保 存 为 Excel 默认 的 .xlsx 格 
式 ， 因 为 该 格式 不 能 包含 宏 。 如 果 希 望 保存 为 Excel 2007 或 更 高 版 本 的 Excel 新 增 的 文件 格式 ， 
那么 必须 将 包含 宏 的 工作 敌 保 存 为 .xlsm 格式 。 如果 希 望 工作 簿 可 以 在 Excel 2003 或 更 低 版 本 的 
Excel 中 打开 ， 那 么 需要 将 工作 短 保 存 为 .xls 格式 。 

打开 用 于 保存 工作 憩 的 “另存 为 ”对 话 框 ， 在 “文件 类 型 ”下 拉 列 表 选 择 所 需 的 文件 格式 ;: 

口 如 果 要 将 工作 矢 保 存 为 .xlsm 格式 ， 需 要 选择 “Excel 启用 宏 的 工作 短 ” 选 项 。 

口 如 果 要 将 工作 矢 保 存 为 .xls 格式 ， 需 要 选择 “Excel 97-2003 工作 短 ” 选 项 。 

如 果 将 宏 录 制 到 了 已 经 保存 过 的 格式 为 .xlsx 的 工作 短 中 , 那么 当 录 制 好 宏 并 按 Ctrl+S 组 合 
键 后 ， 将 会 打开 如 图 1-12 所 示 的 对 话 框 ， 必 须 单 击 “ 否 ”按钮 ， 然 后 选择 “Excel 启用 宏 的 工 
作 敌 ”或 “Excel 97-2003 工作 短 ” 格 式 ， 才 能 将 录制 的 宏 保 存 到 工作 短 中 。 


Microsoft Excel x 

































































无 法 在 未 启用 宏 的 工作 筹 中 保存 以 下 功能 : 
*VB 项 目 

0 若 要 使 保存 的 文件 具有 这 些 功能 ， 请 单 去 " 否 ”， 然后 从 "文件 类 型 "列表 中 选择 一 个 启用 宏 的 文件 类 型 
车 要 奖 续 保存 为 未 启用 宏 的 工作 筹 ， 请 单调 "是 ”。 


[sm | | sm 帮助 (H) 
图 1-12 ”为 了 保存 宏 需 要 更 改 工 作 短 的 文件 格式 


提示 : 默认 情况 下 ， 在 Windows 操作 系统 中 不 会 显示 文件 的 扩展 名 。 如 果 希 望 显示 文件 扩 
展 名 ， 需 要 在 文件 资源 管理 器 中 的 “查看 ”选项 卡 中 选中 “文件 扩展 名 ” 复 选 框 ， 如 图 1-13 所 
示 。 这 里 以 Windows 10 操作 系统 为 例 ， 其 他 版 本 的 Windows 操作 系统 与 此 类 似 。 




















- 0O x 
bd 

中 国标 小 里 标 口 项 目 复 迁 杠 [所 

列表 说 信息 

i i 搞 35 式 四 ”加 六 和 妥 名。 | 寺 





图 1-13 显示 文件 的 扩展 名 

















1.4.4 ”运行 宏 的 多 种 方式 

运行 宏 之 前 ， 可 能 需要 更 改 Excel 中 的 宏 安全 性 设置 ， 以 确保 可 以 正常 运行 宏 。 设 置 宏 安 
全 性 的 方法 已 在 1.3 节 介绍 过 ， 这 里 不 再 殉 述 。 在 Excel 窗口 中 要 运行 工作 舌 中 的 宏 , 需要 先 打 
“ 宏 ” 对 话 框 ， 然 后 才能 运行 宏 。 我 们 可 以 使 用 以 下 几 种 方法 打开 “ 宏 ” 对 话 框 : 
口 单 击 功能 区 “视图 ”选项 卡 中 的 “ 宏 ” 按 钮 ， 在 弹出 的 菜单 中 选择 “查看 宏 ” 命 令 。 
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口 单 击 功能 区 “开发 工具 ”选项 卡 中 的 “ 宏 ” 按 钮 。 

口 按 Alt+F8 组 合 键 。 一 

打开 如 图 1-14 所 示 的 “ 宏 ” 对 话 框 ， 列 表 |” Ug 
中 上 默认 显示 了 当前 打开 的 所 有 工作 短 中 包含 的 。 | 加 
宏 。 双 击 要 运行 的 宏 ， 或 者 选择 宏 后 单 击 “ 执 
行 ”按钮 ， 都 可 以 运行 这 个 宏 。 如 果 录 制 前 为 Se 
宏 设置 了 快捷 键 ， 还 可 以 使 用 快捷 键 运行 宏 ， 日 
这 样 就 不 必 打开 “ 宏 ” 对 话 框 。 三 

如 果 要 修改 宏 的 快捷 键 和 说 明 信 息 ， 可 以 二 本 
在 “ 宏 ” 对 话 框 中 单 击 “ 选 项 ”按钮 ， 然 后 在 二 
打开 的 对 话 框 中 进行 修改 。 | 

除了 上 面 介绍 的 运行 宏 的 基本 方法 之 外 ， er 回 
还 可 以 使 用 下 面 几 种 方法 运行 宏 。 a 

1. 快速 访问 工具 栏 

可 以 将 宏 添加 到 Excel 窗口 顶部 的 快速 访 i 
问 工具 栏 中 ， 这 样 该 宏 可 通用 于 任意 工作 表 或 ee 











工作 夭 。 右 击 快速 访问 工具 栏 中 的 任意 一 个 按 


钮 ， 在 弹出 的 菜单 中 选择 “ 自 定义 快速 访问 工具 栏 ” 命令 。 打 
速 访问 工具 栏 的 自 定义 设置 界面 ， 在 “从 下 列 位 置 选择 命令 ”下 拉 列 表 中 选择 “ 宏 ” 选 项 ， 下 








开 “Excel 选项 ”对 话 框 并 显示 快 















































方 会 显示 当前 打开 的 工作 竹中 包含 的 宏 ， 如 图 1-15 所 示 。 选 择 要 使 用 的 宏 ， 然 后 单 击 “ 添 加 ” 
按钮 ， 将 其 添加 到 快速 访问 工具 栏 中 。 

Excel 选 页 本 

3 辐 ， ex 六 并 R 栏 。 

pe 从 下 列 位 置 选择 命令 (CQ): a 

保存 = 二 

wt 分隔 符 > 

磺 车 入 月 份 
ZW >> | 上 
让 定义 : | 重 置 (EE) ~ | 
[ENSO 
确定 取消 
图 1-15 将 宏 添加 到 快速 访问 工具 栏 中 

2. 窗 体 控件 

可 以 在 工作 表 中 嵌入 窗 体 控件 。 窗 体 控件 的 优点 是 比 ActiveX 控件 更 简单 ， 因 为 它们 不 具 
备 ActiveX 控件 的 所 有 功能 。 在 功能 区 “开发 工具 ”选项 卡 中 单 击 “ 插 入 ”按钮 ， 然 后 在 “ 表 
单 控件 ”类 别 中 选择 要 使 用 的 窗 体 控件 ， 如 图 1-16 所 示 。 在 工作 表 中 沿 对 角 线 方向 拖 动 鼠标 绘 
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制 出 所 选择 的 控件 ， 比 如 绘制 一 个 按钮 控件 。 释 放 鼠 标 按键 的 同时 会 自动 显示 “指定 宏 ” 对 话 
然后 单 击 “确定 ”按钮 。 


框 ， 如 图 





1-17 所 示 ， 为 控件 选择 一 个 要 运行 的 宏 ， 


审阅 视图 开发 IT 具 加 载 项 


MZ ” 目 西 
加 坦 看 代码 
回执 行 对 活 框 












































图 1-16 从 “表单 控件 ”类 别 中 选择 窗 体 控 件 


之 后 右 击 工作 表 中 的 窗 体 控件 ， 在 弹出 的 
菜单 中 选择 “编辑 文字 ”命令 ， 如 图 1-18 所 示 ， 


修改 控件 上 显示 的 文字 ， 使 其 更 有 意义 。 单 











ET 


控件 之 外 的 其 他 位 置 ， 取 消 控件 的 选中 状态 ， 

然后 单 击 这 个 控件 就 会 运行 之 前 为 它 指定 的 
宏 。 在 控件 的 右键 菜单 中 选择 “指定 宏 ” 命 令 ， 
可 以 修改 为 控件 指定 的 宏 。 


3. ActiveX 控件 


除了 窗 体 控件 之 外 ， 还 可 以 在 工作 表 中 嵌 
入 ActiveX 控件 。 在 功能 区 “开发 工具 ”选项 卡 























中 单 击 “ 插 入 ”按钮 ， 然 后 在 “ActiveX 控件 ” 











指定 定 
宏 名 (M): 
输入 月 份 








位 置 (A): | 所 有 打开 的 工作 簿 
说 明 


录制 (R)… 





取消 





图 1-17 为 窗 体 控件 指定 宏 











对。 设置 控件 格式 


hs 








图 1-18 修改 控件 上 显示 的 文字 


类 别 中 选择 要 使 用 的 ActiveX 控件 。 使 用 类 似 创建 窗 体 控件 的 方法 在 工作 表 中 绘制 出 一 个 


ActiveX 控件 ， 此 时 会 进入 设计 模式 。 妊 
控件 的 事件 过 程 编写 代码 。 
与 窗 体 控件 不 同 ， 在 工作 表 中 插入 ActiveX 控件 时 Excel 不 会 自动 要 求 用 




















用 户 需 要 为 Ac 





E 该 模式 下 可 以 选择 和 移动 控件 、 设 置 控件 的 属性 、 为 














户 为 控件 指定 宏 ， 
tiveX 控件 的 事件 过 程 编写 代码 。 例 如 ， 对 于 命令 按钮 控件 而 言 ， 通 常 需要 为 其 


编写 Click 事件 过 程 的 代码 ， 如 图 1-19 所 示 。 在 设计 模式 下 双击 工作 表 中 的 ActiveX 控件 ， 在 








VBE 窗 




















中 打开 该 控件 的 代码 窗口 ， 在 左 、 右 两 个 下 拉 列 表 中 选择 该 控件 的 名 称 以 及 所 需 的 事 

















件 过 程 名 称 ，Excel 会 自动 插入 Sub 语句 行 和 End Sub 语句 行 , 用 户 需 要 在 这 两 行 语句 之 间 输 入 
所 需 的 代码 。 


要 修改 ActiveX 控件 上 显示 的 文本 , 需要 在 设计 模式 下 右 击 控件 , 在 


性 ”命令 ， 然 后 在 打开 的 “属性 ”对 话 框 中 设置 Caption 属性 的 值 ， 如 图 1-20 所 示 。 


。， 12 。 





E 弹 出 的 菜 





中 选择 “ 属 
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尾 性 





[ConmandButtonl Connandputton 


按 字母 序 | 按 分 类 序 | 


1 二 fnBackStyleOpaque 
CommandButtonl 

True 

等 线 

国 sk500000124 








页 录制 宏 xlsm - Sheetl (代码 ) 
[comsndpattenl 可 [click 
[ontion Explioit 

se Sub ConnaendButtonl Click() 











Priv 
3 i 第 入 月 从 











=] 
图 1-19 编写 ActiveX 控件 的 事件 过 程 代码 1-20 ”ActiveX 控件 的 “属性 ”对 话 框 








4. 事件 过 程 
事件 过 程 允许 用 户 在 进行 特定 的 操作 或 系统 发 生 特 定 行为 时 自动 运行 预先 编写 好 的 VBA 
代码 。 前 面 介绍 的 在 工作 表 中 插入 的 命令 按钮 控件 的 Click 就 是 该 控件 的 其 中 一 个 事件 过 程 。 

事件 过 程 包含 在 工作 夭 、 工 作 表 、 图 表 、 用 户 窗 体 等 对 象 所 对 应 的 代码 模块 中 。 

在 VBE 窗口 的 工程 资源 管理 器 中 双击 这 些 代 码 模块 ,打开 对 应 的 代码 窗口 , 在 左 侧 的 下 拉 
列表 中 选择 一 个 对 象 ， 然 后 在 右 侧 的 下 拉 列 表 中 选择 该 对 象 包含 的 一 个 事件 ， 如 图 1-21 所 示 。 
rol et alee nce 即 Sub 语句 和 End Sub 语句 , 之 后 用 户 可 以 在 这 

两 个 语句 之 间 编 写实 现 下 










































































iei 
Private Sub Workbook_Open() 
End Sub 











图 1-21 编写 对 象 的 事件 过 程 





1.4.5 ”绝对 录制 和 相对 录制 


录制 宏 包括 绝对 录制 和 相对 录制 两 种 模式 。 前面 介绍 的 案例 是 在 绝对 模式 下 录制 的 ， 这 也 
是 宏 录制 器 默认 使 用 的 录制 模式 。 不管 在 哪 一 个 工作 竹中 运行 前 面 案例 中 录制 的 宏 ， 也 不 管 活 
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动 单元 格 位 于 哪个 位 置 ，Excel 始终 都 会 从 B1 单元 格 开始 输入 内 容 。 

在 相对 录制 模式 下 , 活动 单元 格 的 位 置 记录 是 相对 的 。 例如, 如果 当前 的 活动 单元 格 是 Al， 
始 录制 后 选择 了 B1 单元 格 ， 那 么 宏 录 制 器 只 会 记录 从 当前 活动 单元 格 向 右 移动 一 个 单元 格 
的 操作 ， 而 不 会 记录 选中 B1 单元 格 的 操作 。 这 样 在 以 后 运行 这 个 宏 时 ， 假 设 当前 的 活动 单元 
格 是 C1, 那么 这 个 宏 就 会 从 D1 单元 格 开始 输入 内 容 , 因为 D1 单元 格 是 C1 单元 格 向 右 移动 一 
个 单元 格 后 得 到 的 单元 格 。 

在 录制 选择 单元 格 的 宏 之 前 ， 应 该 考虑 使 用 绝对 引用 还 是 相对 引用 进行 录制 。 如 果 希 望 宏 
可 以 用 于 不 同 的 单元 格 或 区 域 ， 那 么 通常 需要 使 用 相对 引用 录制 。 如 果 只 希望 操作 固定 的 单元 
格 或 区 域 ， 则 需要 使 用 绝对 引用 录制 。 
要 在 相对 模式 下 录制 宏 ， 需 要 在 开始 录制 前 ， 在 功能 区 “开发 工具 ”选项 卡 中 单 击 “ 使 
相对 引用 ”按钮 。 































































































录制 好 的 宏 虽 然 可 以 运行 ， 但 其 中 通常 都 会 包含 一 些 多 余 的 代码 ， 这 些 代码 会 降低 宏 的 运 
行 效率 。 因 此 如 果 了 解 一 些 VBA 知识 ， 就 可 以 对 录制 好 的 宏 进行 修改 ， 删 除 不 必要 的 代码 ， 
提高 运行 效率 。 

要 修改 宏 , 首先 需要 打开 包含 宏 的 工作 簿 , 然后 使 用 1.4.4 节 介 绍 的 方法 打开 “ 宏 ” 对 话 框 。 
选择 要 修改 的 宏 ， 单 击 “ 编 辑 ” 按 钮 ， 打 开 VBE 窗口 ， 其 中 显示 了 所 选择 的 宏 包 含 的 VBA 代 
码 ， 如 图 1-22 所 示 。 

们 Microsoft Visual Basic for Applications - 录制 xjsm - 模块 1 (代码 )] =;" 侣 x 
考 文人 旬 且 日 视 可 W 插入 W) 椎 式 (QO) 泽 式 (D) 运行 R) 工具 中。 外接 得 序 (A) 室 DW) 站 和) -8 x 


上 | 导 全 学 祈 @ 行 4, 列 1 9 
可 后 入 月 而 










































图 1-22 在 VBE 窗口 中 查看 宏 包 含 的 VBA 代码 


宏 本 身 是 一 组 VBA 代码 ,由 Sub 和 End Sub 以 及 位 于 它们 之 间 的 代码 组 成 ，Sub 右 侧 的 文 
字 是 宏 的 名 称 ， 名 称 右 侧 有 一 对 圆 括 号 。 宏 的 名 称 就 是 录制 宏 时 在 “录制 新 宏 ” 对 话 框 中 输入 
的 名 称 。Sub 语句 下 方 以 单 引号 开始 的 语句 是 注释 语句 ， 用 于 对 宏 的 功能 进行 说 明 ， 运 行 宏 时 
不 会 执行 它们 。 注 释 语 句 下 方 直到 End Sub 语句 之 前 的 数 行 语句 就 是 实现 宏 功 能 的 VBA 代码 ， 
可 以 在 VBE 窗口 中 对 代码 进行 修改 。 下 一 节 会 对 VBE 窗口 进行 详细 介绍 。 























1.5 使 用 VBE 窗口 


VBE (Visual Basic Editor) 是 独立 运行 于 Excel 窗口 的 专 有 窗口 ， 编 写 和 测试 VBA 代码 都 
需要 在 VBE 窗口 中 进行 ， 因 此 我 们 有 必要 了 解 和 掌握 VBE 窗口 包含 的 组 件 以 及 使 用 方法 。 
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1.5.1 打开 VBE 窗口 
可 以 使 用 以 下 两 种 方法 打开 VBE 窗口 : 





口 在 功能 区 
口 按 Alt+F1 





如 果 希 望 编辑 指定 的 宏 , 可 


VBE 窗口 并 自动 
详细 介绍 。 





“开发 工具 ”选项 卡 中 单 击 Visual Basic 按钮 。 
1 组 合 键 。 


























显示 与 右 击 的 工作 表 关 联 的 代码 窗口 。 在 后 f 


H 











[以 使 用 1.4.6 节 介 绍 的 方法 打开 VBE 窗口 并 
宏 。 还 可 以 在 Excel 窗口 中 右 击 工作 表 标 签 ， 在 弹出 的 菜单 中 选择 “查看 代码 ”命令 ,打开 





自动 显示 指定 的 





的 1.5.4 节 会 对 代码 窗口 进行 


虽然 从 Excel 2007 开始 将 Excel 界面 改 为 了 功能 区 ， 但 是 VBE 窗口 一 直 使 用 早期 Excel 版 





本 中 的 菜单 栏 、 了 








器 、 





[ 具 栏 的 布局 方式 。 打 开 的 VBE 窗口 类 似 如 图 1-23 所 示 ， 由 工程 资源 管理 
属性 窗口 、 代 码 窗口 和 管理 代码 模块 等 部 分 组 成 。 根 据 用 户 的 个 人 设置 ， 某 些 部 分 可 能 处 于 隐 
藏 状态 ， 可 以 使 用 VBE 窗口 “视图 ”菜单 中 的 命令 显示 或 隐藏 它们 。 




















们 Mi 


crosoft Visual Basic for Applications - 录制 去 xlsm - [模块 1 (代码 )] - D x 
小 文件 日 篇 得 6 视 亚 W) 插入 格式 (Q) 涯 式 (D) 运行 (8) 工具 中 外 接 程序 (A) 窗 DW) 帮凶 HH) -8 x 
HO 
ELD 了 |] | 周 玉 月 而 可 
Dntion Blisit 习 
Sub 输入 月 份 0 
输入 月 份 去 
快捷 建 : Ctrl tm 
Range(“B1”). Select , 
1C1 = “1 月 
End Sub 
vj 后] » 









































图 1-23 VBE 窗口 


1.5.2 工程 资源 管理 器 





的 导航 工具 ， 其 
工作 短 以 独立 的 


工程 资源 管理 器 如 图 1-24 所 示 ， 它 是 VBE 窗口 中 


中 显示 了 当前 打开 的 所 有 工作 德 。 每 个 
程 显示 ， 在 每 个 工作 簿 的 下 方 显示 了 











工程 的 组 成 元 素 


， 比 如 Sheetl、Sheet2、ThisWorkbook 














等 。 可 以 通过 单 








符号 展开 不 同类 别 中 的 项 目 。 








击 工程 资源 管理 器 中 的 日 符号 折 鳃 或 田 

















如 果 在 工作 竹中 录制 了 宏 ， 那 么 在 与 该 工作 敌对 应 
的 工程 中 会 包含 一 个 或 多 个 模块 .例如 , 在 图 1-24 的 “ 录 
制 宏 .xlsm” 工 程 中 包含 一 个 名 为 “模块 1” 的 模块 。 如 


























果 用 户 创建 了 
块 和 类 模块 。 























户 窗 体 和 类 ， 在 工程 中 还 会 包含 窗 体 模 














ject 《工作 等 1) 
icrosoft Excel 对 象 


Sheet1 (Sheet1) 
Thi sWorkbook 


日 YBAProject (录制 宏 .xlsnm) 
日 售 噶 crosoft Excel 对 象 


图 ] Sheetl (Sheetl) 
Sheet2 (Sheet2) 
事 ] Thi syorkbook 


日 - 合 模块 


* 模块 1 














程 资源 管理 器 











1.5.3 属性 窗口 


属性 窗口 显示 了 在 工程 资源 管理 器 中 当前 选中 
改变 的 属性 。 例 如 ， 在 工程 资源 管理 器 中 选择 Sheet1， 属 性 窗 
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bh 的 对 象 的 相关 属性 ， 它 们 都 是 在 设计 时 可 以 











就 会 显示 Sheetl 的 属性 ， 如 图 








1-25 所 示 ， 设 置 这 些 属性 可 以 改变 Sheetl 的 外 观 和 特性 。 


属性 窗口 中 的 左 列 是 属性 的 名 称 ， 名 称 的 右 侧 是 该 属性 的 值 。 可 以 直接 输入 属性 的 值 ， 








匠 


可 以 从 预 置 选项 中 选择 属性 的 值 ， 一 些 属性 提供 了 预 置 值 。 例 如 ，Sheetl 有 一 个 Visible 属性 ， 
当 单 击 该 属性 名 称 右 侧 用 于 存放 属性 值 的 位 置 时 会 显示 一 个 下 拉 按 钮 ， 单 击 该 按钮 将 会 显示 包 
含 预 置 值 的 列表 ， 然 后 可 以 从 中 选择 要 为 属性 设置 的 值 ， 如 图 1-26 所 示 。 








图 1-25 显示 当前 所 选 对 象 的 属性 


1.5.4 ”代码 窗口 


属性 - Sheet1 





Area 
tandar dWidth 
Visible 


0 — xlSheetli dden 
2 — xlSheetVeryHi dden 








图 1-26 为 属性 设置 预 置 值 


所 有 录制 的 宏 或 手动 编写 的 VBA 代码 都 位 于 代码 模块 中 。 VBA 包含 两 种 类 型 的 代码 模块 : 
标准 模块 和 类 模块 。 标 准 模块 中 的 代码 可 用 于 应 用 程序 中 的 任何 地 方 ， 而 类 模块 主要 用 于 创建 


对 象 。 


在 录制 宏 时 由 宏 录 制 器 自动 创建 的 











模块 是 标准 模块 ， 比 
“模块 1”。 在 VBA 了 





如 在 1.5.2 节 提 到 的 
[ 程 中 默认 包含 了 几 





个 类 模块 , 它们 与 工 
包含 的 各 个 工作 表 相 


FE 簿 自身 或 工作 簿 中 
关联 ， 比 如 Sheetl、 


Sheet2、ThisWorkBook。 用 户 也 可 以 手动 


创建 标准 模块 和 类 模 




















模块 ， 将 会 打 
， 如 图 1-27 所 示 。 
代码 类 似 于 在 记事 本 




















块 。 





在 工程 资源 管理 器 中 双击 任意 一 个 
与 该 模块 对 应 的 代码 窗 








在 代码 窗口 中 编写 
中 编辑 文本 , 编辑 文 











本 的 操作 方法 同样 适用 于 编辑 代码 窗口 





中 的 VBA 代码 。 
在 代码 窗 









































。16 。 
























































sub 输入 月 份 0 
人 输入 月 份 宏 
， 快捷 妨 : Ctrlm 











图 1-27 代码 窗口 


的 顶部 有 两 个 下 拉 列 表 ， 左 侧 的 列表 用 于 选择 当前 模块 中 
表 用 于 选择 Sub 过 程 、Function 过 程 或 对 象 特 有 的 事件 过 程 。 选 择 好 这 两 部 分 内 容 后 ， 即 可 为 指 
定 的 Sub 过 程 、Function 过 程 或 事件 过 程 编写 代码 。 在 标准 模块 的 左 侧 列表 中 只 有 “通用 ”一 项 。 








包含 的 对 象 ， 右 侧 的 列 
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过 程 是 一 组 代码 的 逻辑 单元 ， 一 个 代码 模块 中 可 以 包含 任意 数量 的 过 程 ， 每 个 过 程 用 于 完 
成 不 同 的 任务 。VBA 中 最 常 使 用 的 过 程 有 3 类 : Sub 过 程 ( 子 过 程 》、Function 过 程 ( 函 数 过 
程 ) 、 事 件 过 程 。 宏 录制 器 只 能 创建 Sub 过 程 ，Function 过 程 需 要 用 户 手动 创建 。 事 件 过 程 是 
对 象 自 带 的 过 程 ， 它 存在 于 类 模块 中 ， 通 常 不 需要 单独 创建 ， 只 需 从 代码 窗口 的 左 、 右 两 个 列 
表 中 分 别 选择 对 象 和 事件 ， 然 后 编写 事件 触发 时 要 运行 的 代码 。 第 2 章 会 详细 介绍 Sub 过 程 和 
Function 过 程 ， 第 12 章 会 详细 介绍 事件 过 程 。 

要 运行 代码 窗口 中 的 VBA 代码 ， 需 要 将 插入 点 定位 到 指定 过 程 的 范围 内 ， 然 后 单 击 VBE 
窗口 “标准 ”工具 栏 中 的 “运行 子 过 程 /用 户 窗 体 ”按钮 加， 或 按 F5 键 。 


1.5.5 ”管理 代码 模块 


每 个 模块 可 以 包含 多 个 过 程 ， 模 块 为 组 织 互 不 相关 的 过 程 提 供 了 一 种 较 好 的 方式 。 模 块 不 
能 被 运行 ， 而 只 能 运行 模块 中 的 过 程 。 可 以 对 模块 执行 以 下 几 种 操作 : 
口 添加 新 模块 : 右 击 工程 中 的 任意 一 项 ， 在 弹出 的 菜单 中 选择 “插入 ”命令 ， 然 后 在 子 菜 
单 中 选择 要 添加 的 模块 类 型 ， 包 括 用 户 窗 体 、 模 块 、 类 模块 3 种 。 
口 导出 模块 : 为 了 便于 将 编写 好 的 代码 用 在 其 他 工程 中 , 可 以 将 包含 代码 的 模块 以 文件 的 
形式 保存 到 计算 机 磁盘 中 ,然后 在 需要 时 将 其 添加 到 其 他 工程 中 。 在 工程 中 右 击 要 导出 
的 模块 ， 在 弹出 的 菜单 中 选择 “导出 文件 ”命令 ,然后 在 打开 的 对 话 框 中 设置 文件 名 称 
和 保存 位 置 ， 最 后 单 击 “ 保 存 ” 按 钮 。 
口 导入 模块 : 右 击 工程 中 的 任意 一 项 ， 在 弹出 的 菜单 中 选择 “导入 文件 ”命令 ,然后 在 打 
开 的 对 话 框 中 选择 要 导入 的 模块 文件 ， 最 后 单 击 “ 打 开 ” 按 钮 。 
口 删除 模块 : 对 于 工程 中 不 再 需要 的 模块 , 可 以 右 击 该 模块 , 然后 在 弹出 的 菜单 中 选择 “ 移 
除 xx” 命 令 (xx 表示 模块 的 名 称 ) 。 








































































































1.6 ”Excel 应 用 程序 开发 流程 


本 节 将 从 整体 上 介绍 使 用 VBA 开发 Excel 应 用 程序 的 基本 流程 和 步骤 , 这 部 分 内 容 虽 然 未 
涉及 具体 的 VBA 编程 技术 ， 但 是 却 对 从 整体 上 管理 开发 任务 和 进度 有 很 大 的 帮助 ， 对 于 有 一 
定 经 验 的 Excel 开发 人 员 也 有 一 定 的 参考 价值 。 如果 读者 只 是 编写 完成 单一 简单 任务 的 VBA 代 
码 ， 可 以 跳 过 本 节 内 容 。 


1.6.1 优秀 Excel 应 用 程序 的 标准 
没有 一 个 绝对 严格 的 标准 来 界定 开发 出 来 的 Excel 应 用 程序 是 否 足够 优秀 ， 但 是 一 个 成 功 
的 Excel 应 用 程序 通常 会 符合 某 些 既定 的 规则 或 要 求 。 
1. 正确 实现 预期 功能 
这 是 最 基本 的 要 求 ， 一 个 应 用 程序 必须 可 以 正确 实现 预期 的 目标 功能 ， 否 则 肯定 是 一 个 失 
败 的 应 用 程序 。 
2. 提供 简便 的 操作 方式 
应 用 程序 应 该 为 用 户 提供 友好 的 界面 操作 环境 ，“ 友 好 ”意味 着 简单 、 方 便 、 易 懂 ， 否 则 
户 很 可 能 不 知道 该 如 何 使 用 应 用 程序 。 对 于 Excel 2003 以 及 更 早 版 本 的 Excel 而 言 ， 友 好 的 
户 界 面 元 素 包括 菜单 栏 、 工 具 栏 、 右 键 快捷 菜单 以 及 快捷 键 ， 而 从 Excel 2007 开始 使 用 功能 
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区 代替 了 早期 的 菜单 栏 和 工具 栏 ， 因 此 在 Excel 2007 或 更 高 版 本 的 Excel 中 需要 为 应 用 程序 开 
发 功能 区 操作 环境 。 

3. 为 可 能 出 现 的 问题 预先 提供 解决 方案 
即使 可 以 正确 实现 预期 的 功能 ， 然 而 在 程序 的 运行 过 程 中 很 可 能 会 出 现 各 种 错误 ， 有 来 自 
程序 自身 的 问题 ， 也 有 由 意料 之 外 的 用 户 操作 导致 的 问题 。 最 糟糕 的 情况 就 是 由 于 错误 而 导致 
程序 中 断 运 行 。 为 了 使 应 用 程序 更 完美 ， 以 应 对 各 种 可 能 的 问题 ， 这 就 要 求 开 发 人 员 必 须 在 程 
序 设 计 和 测试 阶段 充分 考虑 各 种 可 能 出 现 的 情况 ， 然 后 编写 错误 处 理 程序 ， 以 便 在 错误 发 生 时 
给 予 用 户 具 有 实际 意义 的 帮助 信息 ， 而 不 是 令 普通 用 户 费 解 的 VBE 中 断 模式 。 

4. 高 效 执行 代码 

符合 前 面 3 个 方面 要 求 的 应 用 程序 已 经 是 一 个 运行 良好 且 易 于 使 用 的 程序 了 ， 但 是 为 了 加 
快 程序 完成 具体 任务 的 速度 ， 同 时 提高 计算 机 软 硬 件 资源 的 利用 率 , 在 设计 和 开发 应 用 程序 时 
还 应 该 尽 可 能 提高 代码 的 运行 效率 。 


1.6.2 ”确定 用 户 类 型 


在 开发 应 用 程序 之 前 ， 首 先 应 该 确定 使 用 这 个 程序 的 都 是 哪些 类 型 的 用 户 。 应 用 程序 是 给 
开发 者 自己 使 用 ， 或 是 为 其 他 某 个 人 开发 的 ， 还 是 要 提供 给 某 一 类 用 户 使 用 。 根 据 用 户 类 型 的 
不 同 ， 开 发 应 用 程序 所 使 用 的 具体 方法 和 需要 注意 的 问题 都 各 不 相同 。 

1. 开发 者 自己 使 用 

很 多 时 候 开发 人 员 会 编写 一 个 程序 供 自己 使 用 ， 这 类 程序 通常 可 能 都 算 不 上 是 一 个 完整 的 
应 用 程序 ， 仅 仅 是 完成 某 个 功能 或 操作 的 一 小 段 VBA 代码 。 开 发 这 样 的 程序 通常 比较 简单 ， 
除了 程序 本 身 的 功能 之 外 ， 通 常 不 需要 考虑 其 他 太 多 因素 ， 比 如 Excel 版 本 的 兼容 性 ， 误 操作 
可 能 导致 的 运行 问题 ， 甚 至 不 需要 为 程序 额外 提供 操作 界面 ， 因 为 开发 人 员 可 以 直接 在 VBE 窗 
或 “ 宏 ” 对 话 框 中 运行 自己 编写 的 代码 。 

给 某 个 用 户 使 用 

我 们 可 能 经 常会 收 到 来 自 别人 为 实现 某 一 简单 或 复杂 的 任务 的 开发 需求 。 与 开发 人 员 为 自 

己 使 用 而 编写 程序 相 比 , 为 别人 开发 程序 需要 投入 更 多 的 思考 。 例 如 , 需要 考虑 用 户 所 用 的 Excel 
版 本 ， 用 户 当 地 的 语言 环境 ， 哪 些 误 操作 可 能 会 导致 程序 出 错 或 朋 溃 ， 在 用 户 完成 某 个 操作 之 
前 或 之 后 是 否 要 给 出 有 用 的 提示 信息 ， 程 序 中 要 使 用 的 文件 或 数据 是 否 存在 于 计算 机 中 。 以 上 
这 些 问 题 都 需要 在 设计 应 用 程序 时 进行 充分 的 考虑 。 
3. 给 某 类 用 户 使 用 
j 面 介绍 的 两 类 用 户 都 是 独立 的 个 体 ， 因 此 对 应 用 程序 的 通用 性 没有 太 多 要 求 。 如 果 开 发 
的 应 用 程序 要 提供 给 某 一 类 用 户 使 用 ， 这 时 就 要 注意 程序 的 通用 性 。 因 为 一 类 用 户 中 的 每 一 个 
人 所 使 用 的 Excel 版 本 、 操 作 习惯 等 都 各 有 不 同 ， 这 就 要 求 开 发 人 员 需 要 进行 全 面 的 构思 和 细 
致 的 规划 。 开 发 完成 的 应 用 程序 通常 以 加 载 项 的 形式 分 发 给 每 一 个 用 户 。 


1.6.3 ”确定 用 户 需 求 


无 论 应 用 程序 的 规模 如 何 ， 在 真正 开始 开发 之 前 ， 需 要 认真 收集 用 户 的 需求 ， 即 用 户 希望 
应 用 程序 可 以 实现 什么 功能 ， 以 及 如 何 实现 。 下 面 列 出 了 需要 从 用 户 那里 获取 的 重要 信息 : 
口 如 果 可 能 ， 最 好 直接 与 最 终 用 户 进行 交流 ， 从 而 了 解 他 们 对 应 用 程序 的 各 方面 要 求 。 
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如 果 由 于 地 理 条 件 所 限 ， 也 可 以 进行 在 线 沟 通 。 





口 了 解 最 终 用 户 的 计算 机 中 安装 的 软 硬 件 情况 以 及 使 用 的 Excel 版 本 。 
口 了 解 最 终 用 户 的 Excel 使 用 经 验 ， 用 户 是 属于 初级 水 平 ， 还 是 具有 一 定 的 操作 经 验 ， 或 











是 经 验 丰 富 的 高 级 用 户 。 


口 了 解 用 户 是 否 需 要 经 常 对 应 用 程序 的 功能 进行 扩展 。 

在 了 解 到 以 上 信息 后 ， 先 不 要 急于 开始 Excel 程序 设计 ， 而 是 对 获取 到 的 信息 进行 汇总 分 
析 并 规划 出 一 套 设 计 方 案 ， 以 便 将 其 作为 整个 应 用 程序 开发 过 程 中 的 指导 方针 。 下 面 列 出 了 规 
划一 套 设计 方案 需要 考虑 的 一 些 问题 。 

口 Excel 版 本 :考虑 是 在 Excel 2007 或 更 高 版 本 的 Excel 中 开发 应 用 程序 ,还 是 在 Excel 2003 


1.6.4 




















或 更 低 版 本 的 Excel 中 进行 开发 .不同 Excel 版 本 对 VBA 代码 有 不 同 的 限制 , 某 些 Excel 
对 象 在 Excel 2007 或 更 高 版 本 的 Excel 中 可 以 使 用 , 但 是 移植 到 Excel 2003 或 更 低 版 本 
的 Excel 中 则 会 出 错 。 
文件 结构 : 考虑 应 用 程序 中 只 包含 一 个 工作 短 还 是 需要 包含 多 个 工作 短 。 工 作 短 中 包含 一 
个 工作 表 还 是 多 个 工作 表 。 工 作 短 和 工作 表 的 不 同 组 织 结构 会 直接 影响 到 代码 的 编写 。 
数据 结构 : 应 用 程序 要 处 理 的 数据 是 存储 在 Excel 工作 敌 的 工作 表 中 ， 还 是 存储 在 外 部 
程序 中 。 
使 用 现 有 功能 还 是 开发 新 功能 : 如 果 要 实现 的 功能 在 Excel 中 已 经 提供 了 ， 那 么 直接 使 
现 有 功能 通常 要 好 于 重新 开发 相同 的 功能 。 
错误 处 理 : 错误 处 理 机 制 是 开发 任何 一 个 应 用 程序 必 备 的 组 成 部 分 。 如 果 没 有 错误 处 理 
程序 , 用 户 在 使 用 应 用 程序 时 就 很 可 能 频繁 出 现 无 法 解决 的 问题 ， 而 且 出 现 问题 时 显示 
的 提示 信息 也 不 具有 任何 指导 意义 。 例 如 ， 在 对 某 个 工作 表 进 行 操作 之 前 ， 需 要 考虑 该 
工作 表 是 否 存在 ， 如 果 存 在 则 按 计 划 操 作 ， 和 否则 应 该 向 用 户 发 出 提示 信息 ， 并 告诉 用 户 
接 下 来 该 如 何 操作 。 

程序 性 能 : 开发 的 应 用 程序 不 但 需要 稳定 运行 ， 还 应 该 尽 可 能 高 效 。 最 终 用 户 的 软 硬 件 
条 件 可 能 受到 某 种 限制 ， 因 此 需要 在 尽 可 能 少 占用 系统 资源 的 情况 下 ， 让 程序 以 最 快 的 
速度 运行 。 

安全 问题 : 安全 问题 虽然 并 不 影响 程序 的 正常 运行 ,但 是 对 于 重要 的 数据 ， 可 能 希望 将 
它们 保护 起 来 ， 以 禁止 其 他 未 授权 用 户 随意 查看 和 修改 。 事 先 与 最 终 用 户 确认 是 否 需要 
对 应 用 程序 中 涉及 的 数据 进行 安全 保护 。 


设计 用 户 界 面 



































































































































在 确定 好 用 户 需求 后 ， 接 下 来 就 可 以 开始 着 手 设计 应 用 程序 了 。 首 先 要 做 的 是 构思 并 确定 





























户 界 面 ， 这 是 因为 用 户 界面 是 用 户 与 应 用 程序 之 间 进 行 沟通 的 媒介 。 用 户 界 面 设 计 的 优 劣 直 
接 影 响 着 用 户 的 使 用 体验 和 操作 效率 。 



































对 于 Excel 2003 或 更 低 版 本 的 Excel 而 言 ， 设 计 用 户 界面 的 主要 任务 是 定制 菜单 栏 、 工 具 
栏 和 鼠标 右键 快捷 菜单 。 这 些 定制 虽然 也 可 用 于 Excel 2007 或 更 高 版 本 的 Excel 中 ， 但 是 由 于 


这 些 Excel 版 本 采用 了 功能 区 界面 ， 因 此 定制 的 菜单 栏 和 工具 栏 会 出 现在 功能 区 的 “加 载 项 ” 
选项 卡 中 。 





















































如 果 应 用 程序 只 用 于 Excel 2007 或 更 高 版 本 的 Excel 中 ， 那 么 除了 鼠标 右键 菜单 之 外 ， 定 


制 功能 


























区 界面 的 方法 与 定制 菜单 栏 和 工具 栏 将 大 为 不 同 。 如 果 应 用 程序 可 能 会 用 于 多 个 不 同 的 





























Excel 版 本 中 ， 那 么 可 以 设计 多 版 本 兼容 的 界面 操作 环境 ， 首 先 检测 用 户 当 前 使 用 的 Excel 版 本 
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号 ， 然 后 根据 不 同 版 本 分 别 加 载 功 能 区 界面 或 加 载 菜单 栏 和 工具 栏 界面 。 
构思 用 户 界面 时 , 需要 考虑 应 用 程序 是 直接 以 工作 
表 或 工作 德 为 操作 界面 , 还 是 使 用 自 定义 的 对 话 框 。 如 ”| 时 x 
果 使 用 后 者 作为 应 用 程序 的 界面 , 则 需要 开发 者 创建 用 | 用 户 名 : 
户 窗 体 ， 并 在 其 上 添加 所 需 的 控件 ， 从 头 开始 设计 对 话 | 客 而 : 
框 的 外 观 和 功能 。 如 图 1-28 所 示 是 在 启动 应 用 程序 后 
显示 的 登录 窗口 , 只 有 输入 正确 的 用 户 名 和 密码 才能 
续 使 用 该 程 请 o 
如 果 应 用 程序 准备 以 工作 表 作 为 与 用 户 交互 的 主 
界面 ， 那 么 可 以 在 工作 表 中 添加 窗 体 控件 或 ActiveX 控 
件 , 以 便 通 过 这 些 控件 来 实现 数据 的 输入 、 选择 和 输出 。 图 1.28 自 定义 对 话 框 
还 可 以 为 应 用 程序 设置 快捷 键 来 作为 界面 操作 的 替代 
方式 ， 只 需 按 下 定义 好 的 按键 组 合 ， 即 可 执行 相应 的 操作 。 


1.6.5 ”编写 代码 


编写 代码 是 整个 开发 过 程 中 最 重要 的 工作 。 在 开始 编写 代码 前 ， 需 要 详细 考虑 整个 应 用 程 
序 的 结构 。 使 用 VBA 开发 的 应 用 程序 通常 由 多 个 模块 组 成 ， 这 些 模块 除了 工程 中 默认 自 带 的 
作 表 模块 和 工作 短 模 块 之 外 ， 还 可 以 根据 需要 在 工程 中 插入 标准 模块 、 窗 体 模块 和 类 模块 。 
应 该 先 规划 应 用 程序 由 哪些 模块 组 成 ， 每 个 模块 实现 应 用 程序 中 的 哪些 功能 。 确 定好 这 些 内 容 
后 ， 接 下 来 就 可 以 开始 编写 代码 了 ， 编 写 代码 的 工作 需要 在 VBE 窗口 中 完成 。 


1.6.6 测试 应 用 程序 


对 应 用 程序 功能 的 测试 通常 与 编写 代码 同时 进行 。 很 少 有 人 会 在 编写 好 全 部 代码 后 才 开始 

进行 测试 工作 ， 这 样 会 加 大 测试 的 难度 ， 不 利于 错误 的 排查 。 更 好 的 方法 是 在 编写 好 完成 独立 
功能 的 代码 段 后 就 立刻 进行 测试 ， 以 便 可 以 及 时 发 现 问题 并 进行 修复 。 当 完成 所 有 代码 的 编写 
工作 后 ， 测 试 工作 就 会 相对 比较 轻松 。 
在 完成 应 用 程序 的 所 有 开发 工作 后 ， 接 下 来 需要 对 整个 应 用 程序 进行 全 面 系统 性 的 测试 。 测 试 
通常 分 为 内 部 测试 和 Beta 测试 。 内 部 测试 是 指 开发 人 员 对 应 用 程序 的 各 部 分 功能 进行 测试 ， 这 一 
步 是 至 关 重 要 的 。 与 之 前 对 某 个 代码 段 的 测试 不 同 ， 对 整个 应 用 程序 的 测试 更 复杂 ， 在 测试 过 程 中 
要 考虑 到 任何 可 能 的 操作 或 情况 ， 对 各 部 分 功能 进行 不 同 的 测试 ， 以 发 现任 何 可 能 存在 的 问题 。 

经 过 开发 人 员 的 测试 后 ， 如 果 应 用 程序 能 够 正常 运作 ， 那 么 接 下 来 就 可 以 将 应 用 程序 分 发 给 
一 些 感 兴趣 的 用 户 进行 Beta 测试 ， 他 们 可 能 就 是 应 用 程序 的 最 终 用 户 。 在 Beta 测试 阶段 ， 很 可 
能 发 现 一 些 遗 漏 或 隐藏 的 问题 。 例 如 ， 程 序 假定 某 个 工作 表 存在 ， 但 实际 上 用 户 在 执行 程序 之 前 
已 经 意外 地 删除 了 该 工作 表 。 通 过 Beta 测试 ， 可 以 发 现 这 类 在 开发 阶段 没有 充分 考虑 到 的 问题 。 


1.6.7 ”修复 错误 


Excel 应 用 程序 的 错误 主要 分 为 两 类 : 编译 错误 和 运行 时 错误 。 编译 错误 是 指 在 代码 非 运 行 
阶段 出 现 的 错误 ， 通 常 是 VBA 语法 错误 ， 在 编写 代码 的 过 程 中 VBE 会 自动 发 现 这 类 错误 并 提 
示 用 户 。 例 如 ， 代 码 中 的 Sub 过 程 名 以 数字 开头 ，VBE 就 会 检测 出 该 错误 并 显示 如 图 1-29 所 
示 的 提示 信息 ， 同 时 自动 高 亮 显示 代码 中 的 出 错 部 分 。 
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图 1-29 编译 错误 


相对 于 编译 错误 而 言 ， 运 行 时 错误 需要 在 运行 代码 时 才能 被 检测 到 。 例 如 ， 如 果 当 前 没有 
打开 名 为 “销量 汇总 ”的 工作 夭 ， 那 么 运行 下 面 的 代码 就 会 显示 错误 提示 信息 ， 但 是 在 编写 代 
码 时 并 不 会 提示 这 个 错误 。 

MsgBox Workbooks ("销量 汇总 ") .Name 

除了 编译 错误 和 运行 时 错误 之 外 ， 还 有 一 类 比较 隐 含 的 错误 ， 这 类 错误 在 程序 运行 时 不 会 
显示 出 错 提示 信息 ， 但 是 运行 结果 却 会 和 预期 结果 截然 不 同 。 编 写 的 代码 本 身 并 无 语法 错误 ， 
运行 代码 时 也 没有 出 现 运 行 时 错误 ， 但 是 运行 结果 是 错 的 。 排 查 这 类 问题 只 能 是 检查 应 用 程序 
的 每 一 部 分 代码 的 运行 结果 是 否 正 确 ， 通 过 分 段 测 试 以 便 逐 步 将 隐藏 的 错误 找 出 来 。 


1.6.8 发 布 应 用 程序 


修复 好 检测 到 的 所 有 错误 后 ， 接 下 来 就 可 以 发 布 应 用 程序 了 。 在 发 布 之 前 ， 应 该 将 所 有 的 
开发 工作 记录 归档 ， 以 形成 书面 材料 。 这 些 资料 有 两 个 非常 重要 的 作用 ， 第 一 ， 可 以 为 开发 人 
员 在 日 后 修改 或 升级 程序 提供 清晰 明了 的 帮助 ， 时 隔 多 日 以 后 开发 人 员 可 能 已 经 忘记 了 程序 最 
初 的 设想 、 结 构 或 是 某 部 分 代码 的 作用 ， 通 过 这 些 辅助 文档 ， 开 发 人 员 可 以 很 快 熟 悉 整 个 应 用 
程序 的 工作 原理 和 机 制 ;第 二 ， 详 细 的 归档 资料 可 以 给 最 终 用 户 使 用 应 用 程序 提供 有 用 的 指导 
和 帮助 。 
当然 ， 开 发 人 员 自己 保留 和 提供 给 用 户 的 文档 内 容 并 不 相同 。 相 对 而 言 ， 提 供给 开发 人 员 
的 文档 会 包含 整个 应 用 程序 开发 过 程 的 完整 技术 细节 ， 而 提供 给 最 终 用 户 的 文档 通常 只 包含 应 
用 程序 的 使 用 方法 。 

编写 好 相关 文档 后 就 可 以 发 布 应 用 程序 了 。 发 布 应 用 程序 有 很 多 种 方法 ， 最 简单 的 一 种 方 
法 是 将 应 用 程序 所 在 的 工作 德 转换 为 加 载 项 ， 然 后 分 发 给 用 户 并 进行 安装 。 另 一 种 更 为 专业 的 
方法 是 开发 一 个 安装 程序 ， 这 样 用 户 只 需 双 击 安装 程序 即 可 自动 进行 安装 ， 对 最 终 用 户 而 言 操 
作 更 方便 。 

发 布 应 用 程序 后 并 不 意味 着 所 有 开发 工作 的 终止 ， 因 为 在 将 来 的 某 个 时 候 ， 用 户 很 可 能 会 
根据 实际 需求 ， 要 求 开发 人 员 对 应 用 程序 的 功能 进行 扩展 或 整体 升级 。 此 时 就 会 用 到 之 前 整理 
归档 的 开发 文档 ， 开 发 人 员 可 以 很 快 熟 悉 应 用 程序 最 初 的 设计 意图 ， 以 及 各 部 分 代码 的 工作 机 
制 ， 从 而 可 以 很 容易 在 原来 程序 的 基础 上 进行 功能 扩充 或 完整 升级 。 
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本 章 将 介绍 通 


的 语言 元 素 。 在 VBA 中 进行 对 象 编程 的 内 容 将 在 第 3 


于 Microsoft Office 应 用 程序 的 VBA 编程 语言 的 基本 概念 、 
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结构 及 其 包含 
章 进行 详细 介绍 。 本 章 和 第 3 章 是 使 




















Excel VBA 进行 编程 的 基础 ， 有 必要 认真 学 习 和 掌握 。 























2.1 
VBA 提供 了 与 用 户 进行 简单 交互 的 两 种 方法 ， 
另 一 个 是 使 用 InputBox 函数 接收 用 

















2.1.1 ”使 用 MsgBox 函数 输出 信息 














在 代码 中 使 








MsgBox 函数 可 





与 VBA 进行 简单 的 交互 











户 输入 的 信息 。MsgBox 和 


[以 产生 一 个 对 话 框 ， 其 中 显示 由 


个 是 使 用 MsgBox 函数 在 屏幕 上 显示 信息 ， 
InputBox 都 是 VBA 的 内 置 函 数 。 























用 户 指 定 的 内 容 ， 可 用 于 在 














程序 运行 期 间 显示 阶段 性 的 运行 结果 ， 或 显示 需要 用 户 确认 的 操作 提示 消息 。MsgBox 函数 的 





语法 格式 如 下 : 


MsgBox (prompt[, buttons] [, title] [， 


口 prompt: 必 选 ， 在 对 话 框 中 显示 的 内 容 。 
口 buttons: 可 选 ， 在 对 话 框 中 显示 的 按钮 和 图 标的 类 型 ， 可 以 只 显示 按钮 ， 也 可 以 同时 显 
示 按 钮 和 图 标 。 该 参数 的 值 见 表 2-1。 





口 title: 


口 helpfile、context: 可 


提示 : 


可 选 ， 在 对 话 框 标题 栏 中 显示 的 内 容 。 
J 选 ， 表 示 帮 助 文件 和 帮助 主题 。 
“ 必 选 ”是 指 必 须要 为 其 提供 值 的 参数 ， 





helpfile, 


context]) 


“可 选 ” 是 指 可 以 省 略 其 值 的 参数 。 本 书 


后 面 在 介绍 其 他 VBA 语言 元 素 的 语法 格式 时 都 会 使 用 这 种 表述 方式 。 
































表 2-1 buttons 参数 的 值 

常 量 值 说 了 明 
vbOKOnly 0 只 显示 “确定 ”按钮 
vbOKCancel 1 显示 “确定 ”和 “取消 ”按钮 
vbAbortRetryIgnore 2 显示 “终止 ”“ 重 试 ” 和 “忽略 ”按钮 
vbYesNoCancel 3 显示 “是 ”“ 和 否 ” 和 “取消 ”按钮 
vbYesNo 4 显示 “是 ”和 “和 否 ”按钮 
vbRetryCancel 3 显示 “ 重 试 ”和 “取消 ”按钮 
vbCritical 16 显示 “关键 信息 ”图 标 
vbQuestion 32 显示 “询问 信息 ”图 标 
vbExclamation 48 显示 “警告 信息 ”图 标 
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续 表 
常 量 值 说 明 
vbInformation 64 显示 “通知 信息 ”图 标 
vbDefaultButtonl | 0 指定 第 1 个 按钮 为 默认 按钮 
voDefaultButton2 | 256 指定 第 2 个 按钮 为 默认 按 乌 
vbDefaultButton3 | 512 指定 第 3 个 按钮 为 默认 按 铀 
vbDefaultButton4 768 指定 第 4 个 按钮 为 默认 按钮 





案例 2-1 只 使 用 一 个 参数 的 MsgBox 函数 

下 面 的 代码 显示 如 图 2-1 所 示 的 对 话 框 ， 只 为 MsgBox 函数 提供 了 prompt 参数 的 值 ， 省 略 
了 其 他 参数 。 显 示 该 对 话 框 时 代码 会 中 断 运 行 ， 直 到 用 户 单 击 “ 确 定 ”按钮 。 

Sub MsgBox 函数 () 


MsgBox "删除 当前 工作 表 吗 ? " 
End Sub 


图 2-1 对 话 框 的 标题 栏 中 显示 的 是 Excel 默认 的 “Microsoft Excel”， 用 户 可 以 将 其 蔡 换 为 
自己 的 内 容 。 

案例 2-2 ”使 用 两 个 参数 的 MsgBox 函数 

下 面 的 代码 显示 如 图 2-2 所 示 的 对 话 框 ， 标 题 栏 中 显示 由 用 户 指 定 的 内 容 “ 确 认 信 息 ” 而 溃 
非 默 认 的 “Microsoft Excel”， 此 时 为 MsgBox 函数 同时 提供 了 prompt 和 title 两 个 参数 的 值 。 


Sub MsgBox 函数 () 
MsgBox "删除 当前 工作 表 吗 ? "， ， "删除 工作 表 " 











































































End Sub 
MicrosofExcel 。 X 删除 工作 表 x 
删除 当前 工作 表 吗 ? 删除 当前 工作 表 吗 ? 
图 2-1 MsgBox 函数 产生 对 话 框 图 2-2 自 定义 对 话 框 的 标题 














读者 可 能 已 经 注意 到 ， 在 上 面 的 代码 中 两 个 参数 值 之 间 有 两 个 逗号 ， 这 是 因为 当前 只 为 
MsgBox 函数 提供 了 第 一 参数 prompt 和 第 三 参数 title 的 值 ， 而 省 略 了 第 二 参数 的 值 。 由 于 没有 
按 正确 顺序 依次 指定 每 一 个 参数 的 值 ， 因 此 必须 为 省 略 的 参数 保留 一 个 额外 的 逗号 。 

为 了 避免 输入 额外 的 逗号 ， 还 可 以 使 用 另 一 种 称 为 “命名 参数 ”的 方法 为 MsgBox 函数 指 
定 参数 值 。 这 种 方法 需要 在 参数 值 的 左 侧 加 上 参数 的 名 称 ， 并 将 原来 的 等 号 “=” 改 为 冒号 + 等 
号 “:=” 的 形式 。 在 后 面 第 3 章 还 会 详细 为 读者 介绍 通过 命名 参数 为 对 象 的 方法 设置 参数 值 的 
容 。 
案例 2-3 ”在 MsgBox 函数 中 使 用 命名 参数 
下 面 的 代码 显示 的 对 话 框 与 图 2-1 相同 , 但 是 由 于 在 代码 中 使 用 参数 名 称 来 指定 参数 的 值 ， 
因此 可 以 按照 任意 顺序 输入 参数 。 

Sub MsgBox 函数 () 

MsgBox Title:=" 删 除 工 作 表 "， Prompt :=" 删 除 当前 工作 表 吗 ? " 
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End Sub 


可 以 根据 表 2-1 中 列 出 的 buttons 参数 的 值 改变 对 话 框 中 默认 显示 的 按钮 和 图 标 。 


案例 2-4 ”改变 MsgBox 对 话 框 中 的 默认 按钮 和 图 标 
下 面 的 代码 显示 如 图 2-3 所 示 的 对 话 框 ， 使 用 “是 ”和 “和 否 ” 按 钮 代替 原来 的 “确定 ” 按 
还 显示 了 “询问 信息 ”图 标 。 

Sub MsgBox 函数 () 


MsgBox "删除 当前 工作 表 吗 ? "，vbYesNo + vbouestion，" 删 除 工作 表 " 
End Sub 



































删除 工作 表 


@ wns 


图 2-3 ”指定 对 话 框 中 显示 的 按钮 和 图 标 类 型 


当 用 户 单 击 案例 2-4 中 的 “是 ”或 “ 否 ” 按 钮 时 ，VBA 通过 MsgBox 函数 的 返回 值 来 确定 
用 户 单 击 的 是 哪个 按钮 。 与 在 Excel 工作 表 中 输入 函数 可 以 得 到 计算 结果 类 似 , 在 VBA 中 使 用 
函数 也 可 以 返回 计算 结果 。 前 面 几 个 案例 演示 的 MsgBox 函数 的 用 法 只 是 显示 了 一 个 对 话 框 而 
不 包含 返回 值 。 
如 果 和 希望 获取 MsgBox 函数 的 返回 值 ， 则 需要 将 MsgBox 函数 赋值 给 一 个 变量 ， 使 用 该 变 
量 保存 MsgBox 函数 的 返回 值 ， 此 时 必须 将 MsgBox 函数 的 所 有 参数 放置 在 一 对 圆 括 号 中 ， 否 
则 会 出 现 编译 错误 。 之 后 可 以 使 用 下 判断 语句 将 包含 返回 值 的 变量 与 表 2-2 中 列 出 的 MsgBox 
函数 的 返回 值 进行 比较 ， 以 判断 用 户 单 击 的 是 哪个 按钮 ， 从 而 进一步 执行 所 需 的 操作 。 


表 2-2 MsgBox 函数 的 返回 值 






































































































































常 量 说 了 明 
vbOK 单 击 了 “确定 ”按钮 
vbCancel 4 击 了 “取消 ”按钮 
vbAbort 单 击 了 “终止 ”按钮 
vbRetry 单 击 了 “ 重 试 ” 按 钮 
vbIgnore 单 击 了 “忽略 ”按钮 
vbYes 单 击 了 “是 ”按钮 
vbNo 单 击 了 “和 否 ”按钮 








案例 2-5 判断 用 户 单 击 的 MsgBox 对 话 框 中 的 按钮 

下 面 的 代码 对 用 户 单 击 的 按钮 进行 判断 , 并 根据 判断 结果 执行 不 同 的 操作 。 首先 将 MsgBox 
函数 的 返回 值 保 存 到 iAnswer 变量 中 ， 然 后 使 用 在 语句 判断 iAnswer 变量 的 值 是 否 等 于 7， 如 
果 等 于 7 则 说 明 用 户 单 击 了 对 话 框 中 的 “ 否 ” 按 钮 ， 此 时 不 会 执行 任何 后 续 操作 并 直接 退出 当 
前 Sub 过 程 。 否 则 说 明 用 户 单 击 了 对 话 框 中 的 “是 ”按钮 ， 将 执行 删除 当前 工作 表 的 操作 。 


Sub MsgBox 函数 () 
Dim lngAnswer As Long 
lngAnswer = MsgBox (" 删 除 当前 工作 表 吗 ? "， vbYesNo + vbOuestion，" 删 除 工 作 表 ") 
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If lngAnswer = 7 Then Exit Sub 
ActiveSheet .Delete 
End Sub 


注意 : 为 了 简化 代码 的 复杂 度 ， 在 上 面 的 代码 中 没有 包含 判断 工作 表 数 量 的 代码 。 如 果 当 
前 工作 簿 中 只 有 一 个 工作 表 ， 运 行 上 面 的 代码 将 会 产生 运行 时 错误 。 

如 果 愿 意 ， 也 可 以 不 将 MsgBox 函数 的 返回 值 指定 给 变量 ， 而 是 直接 将 其 与 MsgBox 函数 
的 返回 值 列表 进行 比较 ， 因 此 上 面 的 代码 也 可 以 改 为 以 下 形式 : 

Sub MsgBox 函数 2() 


IE MsgBox (" 删 除 当前 工作 表 吗 ? "， vbYesNo + vibQuestion, "删除 工作 表 ") = 7 Then Exit Sub 
ActiveSheet .Delete 
End Sub 


只 有 对 MsgBox 函数 的 返回 值 列表 非常 熟悉 的 用 户 ， 才 能 理解 前 面 案例 中 的 数字 7 代表 
户 单 击 了 对 话 框 中 的 “和 否 ”按钮 ， 否 则 可 能 很 难 明白 数字 7 的 含义 。 为 了 使 代码 更 具 可 读 性 ， 
可 以 使 用 表 2-2 第 一 列 中 的 常量 代替 相应 的 数字 值 。 比 如 前 面 案例 中 的 数字 7 可 以 使 用 vbNo 
常量 代替 。 
有 时 可 能 需要 将 对 话 框 中 的 内 容 分 多 行 显示 ， 可 以 在 代码 中 需要 换行 的 位 置 插入 vbCrLf 
或 vbNewLine 常量 来 实现 此 目的 。 
案例 2-6 ”在 对 话 框 中 将 信息 分 多 行 显示 a 
下 面 的 代码 显示 如 图 2-4 所 示 的 对 话 框 ， 内 容 分 别 显示 在 3 行 中 ， 其 中 多 次 使 用 strMessage 变 
量 来 存储 不 同行 的 内 容 ， 并 将 它们 拼接 在 一 起 。“&” 符 号 用 于 将 两 部 分 内 容 连接 起 来 。 
Sub MsgBox 函数 () 
Dim strMessage As String 
strMessage = "是 否 删除 当前 工作 表 ? " & vbCrLf 
strMessage = strMessage & "删除 请 单 击 【 是 】 按钮 " & vbCrLf 
strMessage = strMessage & "不 删除 请 单 击 【 否 】 按 钮 " 


MsgBox strMessage，vbYesNo + vbQuestion,， "删除 工作 表 " 
End Sub 







































































删除 工作 表 


大 站 有 天 部 二 当前 工作 专 ? 
i$ 诸 单 主 【是 ] 按 汪 
不 删除 清单 主 【 否 ] 按钮 


Er] _ aw 


图 2-4 将 内 容 分 多 行 显示 


2.1.2 ”使 用 InputBox 函数 输入 信息 


使 用 VBA 内 置 的 InputBox 函数 可 以 产生 一 个 允许 用 户 输入 内 容 的 对 话 框 ， 并 以 字符 串 的 
形式 返回 该 内 容 。 即 使 在 对 话 框 中 输入 的 是 数字 ，InputBox 函数 的 返回 值 仍然 是 字符 串 类 型 。 
InputBox 函数 的 语法 格式 如 下 : 

InputBox (prompt[, title] [，default] [，xpos] [, ypos] [, helpfile, context]) 

口 prompt: 必 选 ， 在 对 话 框 中 显示 的 提示 性 内 容 ， 用 于 提醒 用 户 需 要 输入 什么 样 的 内 容 。 

口 title: 可 选 ， 在 对 话 框 的 标题 栏 中 显示 的 内 容 。 

口 default: 可 选 ， 在 接收 输入 的 文本 框 中 显示 的 默认 值 ， 如 果 用 户 不 输入 任何 内 容 ， 则 将 
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返回 该 默认 值 。 
口 xpos、ypos: 可 选 ， 对 话 框 左上 角 在 屏幕 上 的 坐标 值 。 
口 helpfile、context: 可 选 ， 帮 助 文 件 和 帮助 主题 。 


案例 2-7 使 用 InputBox 函数 接收 用 户 的 输入 

i 下 面 的 代码 显示 如 图 2-5 所 示 的 对 话 框 ， 要 求 用 户 在 文本 框 中 输入 用 户 名 。 为 了 让 程序 可 
以 处 理 用 户 输入 的 内 容 ， 需 要 将 InputBox 函数 的 返回 值 赋值 给 一 个 变量 ,然后 在 后 面 的 代码 中 

通过 处 理 这 个 变量 来 操作 用 户 输 入 的 内 容 ， 本 例 是 使 用 MsgBox 函数 在 对 话 框 中 显示 用 户 名 。 


Sub InputBox 函数 () 
Dim strInput AS String 
strInput = InputBox (" 请 输入 用 户 名 : ") 
MsgBox "用 户 名 是 : " & strInput 




























































































End Sub 
Microsoft Excel x 
请 给 入 用 户 名 : 确定 
取消 











图 2-5 InputBox 函数 产生 的 对 话 框 


如 果 在 对 话 框 中 未 输入 任何 内 容 而 单 击 “ 确 定 ”按钮 ， 或 直接 单 击 “ 取 消 ”按钮 ，InputBox 
函数 都 会 返回 一 个 零 长 度 的 字符 串 。 可 以 使 用 下 判断 语句 对 InputBox 函数 的 返回 值 进行 检测 来 
处 理 这 种 情况 。 下 面 的 代码 假设 strInput 变量 中 存储 了 InputBox 函数 的 返回 值 ， 在 下 判断 语句 
中 检测 该 变量 是 否 是 零 长 度 字符 串 〈 在 双 引 号 中 不 能 包含 空格 ) ， 如 果 是 则 退出 当前 的 Sub 过 
程 ， 这 样 后 面 的 程序 就 不 会 对 毫 无 意义 的 空 字符 串 进 行 处 理 了 。 

If strIinput = "" Then Exit Sub 

提示 : VBA 内 置 的 InputBox 函数 不 能 限制 用 户 输入 的 数据 类 型 ， 而 Excel 对 象 模型 中 的 
Application 对 象 的 InputBox 方法 则 可 以 加 以 限制 ， 第 13 章 将 对 此 进行 详细 介绍 。 
































2.2 ”数据 类 型 、 变 量 和 常量 


我 们 在 前 面 的 案例 中 已 经 接触 过 变量 和 常量 , 它们 是 VBA 代码 的 重要 组 成 元 素 。 变量 和 常 
量 都 用 于 在 代码 中 存储 数据 ， 它 们 之 间 的 主要 不 同 之 处 在 于 ， 变 量 中 存储 的 数据 可 以 在 代码 运 
行 过程 中 随时 改变 ， 而 常量 中 存储 的 数据 在 代码 运行 过 程 中 通常 是 固定 不 变 的 。 由 于 数据 可 以 
分 为 不 同 的 类 型 ， 而 数据 通常 存储 在 变量 和 常量 中 ， 因 此 变量 和 常量 也 具有 相应 的 数据 类 型 。 


2.2.1 VBA 中 的 数据 类 型 


Excel 允许 用 户 在 工作 表 中 输入 不 同类 型 的 数据 ， 比 如 整数 “168”、 小 数 “3.5”、 中 文字 
符 “ 编 程 ”、 英 文字 符 “Excel”、 日 期 “2018 年 3 月 ”、 逻 辑 值 “True” 和 “False” 等 。 在 
VBA 中 同样 可 以 处 理 这 些 类 型 的 数据 ， 而 且 还 对 数据 类 型 进行 了 更 细致 的 划分 。 

计算 机 以 不 同 的 方式 存储 不 同类 型 的 数据 ， 存 储 文 本 的 方式 与 存储 数字 不 同 ， 整 数 与 小 数 
的 存储 方式 也 不 相同 。 不 同类 型 的 数据 会 占用 不 同 大 小 的 内 存 空 间 。 表 2-3 列 出 了 VBA 支持 的 
数据 类 型 、 取 值 范 围 以 及 占用 的 内 存 空间 。 
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表 2-3 VBA 支持 的 数据 类 型 、 取 值 范 围 与 占用 的 内 存 空间 






























































数据 类 型 取 值 范 占用 的 内 存 空间 
Boolean True 或 False 2 字 节 
Byte 0 一 255 1 字 节 
Currency -922337203685477.5808 一 922337203685477.5807 8 字 节 
Date 100 年 1 月 1 日 ~9999 年 12 月 31 日 8 字 节 
Integer -32768 一 32767 2 字 节 
Long -2147483648 一 2147483647 4 字 节 
3 负数 : -3.402823E38 一 -1.401298E-45 2 
正 数 :1.401298E-45 一 3.402823E38 
et 负数 : -1.79769313486232E308~-4.49065645841247E-324 | 8 字 地 
正 数 : 4.49065645841247E-324~1.79769313486232E308 
String( 定 长 ) 1 一 65400 个 字符 字符 串 的 长 度 
String( 变 长 ) 0 一 20 亿 个 字符 10 字 节 + 字符 串 长 度 
Object 任何 对 象 的 引用 4 字 节 
Variant (字符 型 ) 与 变 长 字符 串 的 范围 相同 22 字 节 + 字符 串 长 度 
Variant (数字 型 ) | 与 Double 的 范围 相同 16 字 节 
用 户 自 定义 类 型 各 组 成 部 分 的 取 值 范围 各 部 分 空间 总 和 
表 2-3 中 第 一 列 的 数据 类 型 主要 用 于 变量 和 常量 的 声明 中 ， 即 在 声明 变量 和 常量 时 指明 它 





们 可 以 存储 的 数据 类 型 。 变 量 和 常量 的 声明 会 在 本 章 后 面 的 内 容 中 进行 介绍 。 





2.2.2 ”声明 变量 





变量 是 一 些 位 于 计算 机 内 存 中 已 经 命名 的 存储 位 置 。 在 程序 中 使 用 

















变量 可 以 存储 随时 可 能 


发 生变 化 的 数据 。VBA 允许 不 事先 声明 变量 就 可 以 在 程序 中 使 用 这 个 变量 ， 此 时 变量 的 数据 类 
型 被 默认 指定 为 Variant， 具 有 这 种 数据 类 型 的 变量 可 以 存储 任何 类 型 的 数据 ， 缺 点 是 比 其 他 数 





据 类 型 需要 占用 更 多 的 内 存 空间 ， 运 行 效率 低 。 















































数据 类 型 就 会 浪费 内 存 空间 。 
在 前 面 的 案例 中 曾经 遇 到 过 声明 变量 的 例子 ， 它 们 以 Dim 关键 字 玫 























Dim strUserName As String 











如 果 知 道 要 在 变量 中 存储 哪 种 类 型 的 数据 ， 那 么 应 该 在 使 用 该 变量 之 前 预先 将 其 声明 为 要 
使 用 的 数据 类 型 ， 这 样 可 以 让 数据 存储 在 与 其 匹配 的 具有 适当 内 存 大 小 的 变量 中 ， 
内 存 空 间 , 而 且 也 可 以 提高 程序 的 运行 效率 。 例 如 , 在 程序 中 要 使 用 一 个 其 值 可 能 在 100 一 10 000 
的 数字 ， 由 于 该 范围 位 于 Integer 数据 类 型 中 ， 因 此 如 果 此 时 将 存储 该 数字 的 变量 声明 为 Long 


而 不 会 浪费 


F 头 。 下 面 的 代码 声明 了 
一 个 名 为 strUserName 的 变量 ， 该 变量 的 数据 类 型 是 Sting， 用 于 存储 文本 〈 字 符 串 ) 。 





提示 : 关键 字 用 于 标识 VBA 中 的 特定 语言 元 素 ， 比 如 语句 名 、 函 数 名 、 运算 符 等 ， 是 VBA 


中 的 保留 字 ， 用 户 不 能 使 用 关键 字 作 为 变量 的 名 称 。 
下 面 的 代码 声明 了 两 个 String 数据 类 型 的 变量 : 


Dim strMyName As String 
Dim strYourName As String 
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为 了 减少 代码 的 行 数 ， 可 以 在 一 条 Dim 语句 中 声明 多 个 变量 。 无 论 这 些 变量 的 数据 类 型 是 
否 相 同 ， 各 变量 之 间 必 须 以 逗号 分 隔 。 下 面 的 代码 在 同一 行 声 明了 两 个 String 数据 类 型 的 变量 : 

Dim strMyName Rs String, strYourName Rs String 

下 面 的 代码 只 将 第 二 个 变量 声明 为 String 数据 类 型 ， 而 第 一 个 变量 的 数据 类 型 是 Variant。 
这 个 案例 说 明 在 同一 行 声 明 多 个 变量 时 ， 必 须 明 确 指定 每 个 变量 的 数据 类 型 。 

Dim strMyName, strYourName As String 

提示 : 除了 可 以 使 用 Dim 关键 字 声 明 变 量 之 外 ， 还 可 以 使 用 Public、Private 和 Static 关键 
字 ， 它 们 的 区 别 在 于 声明 的 变量 具有 不 同 的 作用 域 和 生存 期 。 变 量 的 作用 域 和 生存 期 将 在 2.2.4 
节 进行 详细 介绍 。 

虽然 VBA 允许 用 户 直 接 使 用 变量 而 不 需要 预先 声明 , 但 是 便捷 的 同时 也 容易 出 现 问题 。 例 
如 , 在 下 面 的 代码 中 由 于 误 将 变量 dRate 拼写 为 dRata， 因 此 程序 返回 了 错误 的 结果 。 在 包含 大 
量 代 码 的 程序 中 ， 这 种 错误 很 容易 出 现 并 且 难 以 发 现 。 


Sub 变量 名 拼写 错误 () 
intTotal = 100 
intTotal = intTotal + 10 




































































MsgBox intTotel 
End Sub 


在 默认 情况 下 ，VBA 会 将 程序 中 任何 无 法 识别 为 关键 字 的 单词 看 作 是 新 的 变量 。 为 了 避免 由 
于 拼写 错误 而 导致 意外 地 创建 新 的 变量 ， 可 以 让 VBA 强制 变量 声明 。 一 旦 检测 到 未 经 声明 就 直接 
使 用 的 变量 ，VBA 会 自动 显示 编译 错误 的 提示 消息 ， 并 自动 选中 未 声明 的 变量 ， 如 图 2-6 所 示 。 


性 工作 簿 1 - 模块 1 (代码 ) [Ela 
通用)》 [变量 名 拼写 错误 














[kl 








Dption Explicit 








站 编译 错误 : 
- 变量 未 定义 
Lmw |] ww | 























王后 4 | 
图 2-6 VBA 自动 检测 未 声明 的 变量 


可 以 使 用 以 下 两 种 方法 让 VBA 强制 变量 声明 : 
口 单 击 VBE 窗口 菜单 栏 中 的 “工具 ”|“ 选 项 ”命令 ， 打开 “选项 ”对 话 框 ， 在 “编辑 器 ” 
选项 卡 中 选中 “要 求 变量 声明 ” 复 选 框 ， 如 图 2-7 所 示 。 

口 将 Option Explicit 语句 放置 在 模块 顶部 的 声明 部 分 ， 即 模块 中 所 有 过 程 的 最 上 方 。 

在 上 面 两 种 方法 中 ， 第 一 种 方法 对 已 经 存在 的 模块 无 效 ， 此 时 必须 手动 将 Option Explicit 
语句 添加 到 已 经 存在 的 每 个 模块 顶部 的 声明 部 分 中 。 

声明 后 的 每 个 变量 都 有 一 个 初始 值 , 不 同 数据 类 型 的 变量 具有 不 同 的 初始 值 。Integer、 Long、 
Single、Double 等 数值 数据 类 型 的 变量 的 初始 值 是 数字 0，String 数据 类 型 的 变量 的 初始 值 是 空 
字符 串 、Boolean 数据 类 型 的 变量 的 初始 值 是 逻辑 值 False。 
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培训 





选项 


代码 设置 


窗口 设置 


| 自动 滞 法 检测 (K) 
| 要 求 变 时 声明 (R) 
自动 列 出 成 员 (L) 
J 自动 显示 快速 信息 (9) 
| 自动 显示 数据 提示 (S) 


编 各 器 | 综 吉 器 格式 | 通用 “| 可 壬 过 的 | 


自动 缩 进 () 
Tab 宽度 (T): | 


| 编辑 时 可 拖 族 文本 (D) 
|y 缺 省 为 查看 所 有 模块 of) 
区 过 程 分 陆 符 (F) 








Elewa| 





帮助 











图 2-7 选中 “要 求 变量 声明 ” 复 选 框 


只 有 将 特定 的 数据 存储 到 变量 中 ， 变 量 才 变 得 有 意义 。 将 数据 存储 到 变量 的 过 程 称 为 “为 





变量 赋值 ”。 





intCount = 100 


要 为 一 个 变量 赋值 ， 需 要 先 输入 该 变量 的 名 称 ， 
在 等 号 的 右 侧 输入 要 为 其 赋值 的 数据 。 下 面 的 代码 将 数字 100 赋值 给 intCount 变量 。 


下 面 的 代码 将 文本 “销售 数据 ”赋值 给 strFileName 变量 。 


strFileName = "销售 数据 " 


2.2.3 ”变量 的 命名 规则 


然后 在 其 右 侧 输入 一 个 等 号 ， 再 


并 不 是 所 有 内 容 都 可 以 作为 变量 的 名 称 , 在 为 变量 命名 时 需要 遵守 一 些 既定 的 规则 , 具体 如 下 : 


口 变量 的 第 一 个 字符 必须 使 





用 英文 字母 或 汉字 。 


口 在 变量 名 中 可 以 使 用 数字 和 下 画 线 ， 但 是 不 能 使 用 空格 、 句 点 、 叹 号 等 符号 。 


口 变量 名 的 字符 长 度 不 和 


超过 255 个 字符 。 


口 不 能 使 用 VBA 中 的 关键 字 作为 变量 名 。 





除了 上 
自己 和 其 他 
的 前 
的 前 


























表 2-4 用 于 表示 数据 类 型 的 前 组 


j 列 出 的 针对 变量 名 自身 的 严格 限定 之 外 ， 为 了 使 代码 更 具 可 读 性 ， 便 于 开发 人 员 
发 人 员 理 解 ， 在 为 变量 命名 时 还 应 该 包含 表示 数据 类 型 的 前 缀 ， 这 样 通过 变量 名 
缀 就 可 以 快速 了 解 变 量 的 数据 类 型 。 可 以 从 数据 类 型 标识 符 中 取 1 一 3 个 字符 来 作为 变量 名 
| 级， 表 2-4 列 出 了 建议 的 前 级 及 其 对 应 的 数据 类 型 。 









String 





Byte 











int 


























| Integer dat Date 
lng | Long cur Currency 
sng | Single dec Decimal 
dbl | Double Var Variant 











变量 可 
域 。 为 了 可 


以 在 一 个 过 程 、 





一 个 模块 或 整个 了 
以 通过 变量 名 了 解 到 变量 的 作用 域 ， 可 以 使 用 一 个 表示 作用 


Boolean 














[ 程 中 使 用 ， 








变量 的 不 同 使 用 


用 户 自 定义 类 型 
范围 称 为 变量 的 作 












































域 的 字母 加 在 数据 类 型 
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前 绥 的 前 面 。 使 用 字母 g 表示 工程 级 ， 字 母 m 表示 模块 级 ， 不 使 用 字母 则 表示 过 程 级 。 例 如 ， 
下 面 的 代码 分 别 声明 了 具有 不 同 作用 域 的 两 个 String 数据 类 型 的 变量 ， 除 了 第 一 个 字母 不 同 ， 












































名 称 中 的 其 他 部 分 相同 。 


Dim gstrFileName Rs String 
Dim mstrFileName Rs String 


2.2.4 变量 的 作用 域 和 生存 期 

















变量 的 作用 域 决 定 了 变量 的 可 用 范围 ， 分 为 过 程 级 、 模 块 级 、 工 程 级 3 种 。 变 量 的 生存 霓 









































范围 和 保存 数据 的 时 长 。 
1. 过 程 级 变量 














决定 了 数据 在 变量 中 能 够 保存 多 长 时 间 。 下 面 将 分 别 介 绍 3 种 不 同 级 别 的 变量 声明 方式 、 可 

















过 程 级 变量 是 指 在 过 程 内 部 声明 的 变量 。 可 以 使 用 Dim 或 Static 关键 字 声 明 过 程 级 变量 。 
过 程 级 变量 只 能 在 其 所 在 的 过 程 内 部 使 用 ， 这 意味 着 可 以 在 不 同 的 过 程 中 声明 具有 相同 名 称 的 


变量 。 过 程 运行 结束 后 ， 过 程 级 变量 中 保存 的 数据 会 被 自动 清空 并 恢复 为 初始 值 。 
案例 2-8 ”使 用 过 程 级 变量 
下 面 的 代码 说 明了 声明 过 程 级 变量 的 方式 ， 以 及 过 程 运 行 期 间 对 过 程 级 变量 中 

















的 数据 的 影 


响 。 这 两 个 过 程 都 包含 同名 变量 intTotal。 运 行 第 一 个 过 程 后 ，intTotal 变量 的 值 为 1， 而 第 二 个 








过 程 运行 结束 后 ，intTotal 变量 的 值 为 5。 这 说 明 虽 然 两 个 变量 的 名 称 相同 ， 但 是 
别 在 不 同 的 过 程 中 声明 的 ， 因 此 它们 只 能 在 所 属 的 过 程 内 部 使 用 ， 对 其 他 过 程 无 效 
Sub 过 程 级 变量 () 
Dim intTotal As Integer 


intTotal = intTotal + 1 
End Sub 






































Sub 过 程 级 变量 2 () 
Dim intTotal As Integer 
intTotal = intTotal + 5 
End Sub 


上 














于 它们 是 分 


面 两 个 过 程 无 论 运行 多 少 次 ， 两 个 变量 的 值 始 终 都 是 1 和 5， 这 是 因为 过 程 在 每 次 开始 运 





行 时 ， 都 会 将 变量 的 值 初 始 化 为 0， 这 也 意味 着 过 程 运行 结束 后 ， 变 量 中 的 当前 值 不 会 被 一 直 保 


留 。 如 果 希 望 过 程 运行 结束 后 可 以 一 直 保留 变量 中 的 值 ， 则 需要 使 用 Static 关键 字 声 








明 变 量 。 


下 面 的 两 个 过 程 使 用 Static 关键 字 声明 变量 ， 第 一 次 运行 这 两 个 过 程 时 ， 其 中 的 intTotal 








变量 的 值 分 别 为 1 和 5。 再 次 运行 这 两 个 过 程 时 ，intTotal 变量 的 值 分 别 为 2 和 10。 


这 是 因为 第 





一 次 运行 两 个 过 程 后 ，intTotal 变量 的 值 1 和 5 被 保留 下 来 ， 并 作为 该 变量 在 第 二 次 运行 的 两 个 
过 程 中 的 初始 值 。 在 工作 夭 被 打开 期 间 ， 使 用 Static 关键 字 声 明 的 过 程 级 变量 中 存储 的 值 会 一 











直 保 留 着 。 
Sub 过 程 级 变量 () 


Dim intTotal As Integer 
intTotal = intTotal + 1 
MsgBox intTotal 

End Sub 


Sub 过 程 级 变量 2 () 
Dim intTotal As Integer 
intTotal = intTotal + 5 
MsgBox intTotal 

End Sub 
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2. 模块 级 变量 

如 果 在 模块 项 部 的 声明 部 分 ,即位 于 模块 中 的 所 有 过 程 的 最 上 方 ,使 用 Dim、Static 或 Private 
关键 字 声 明 的 变量 就 是 模块 级 变量 。 模 块 级 变量 可 被 其 所 在 模块 中 的 任意 一 个 过 程 使 用 。 在 工 
作 敌 被 打开 期 间 ， 模 块 级 变量 中 存储 的 值 会 一 直 保留 着 。 

案例 2-9 ”使 用 模块 级 变量 

下 面 的 代码 声明 了 一 个 模块 级 变量 ， 位 于 该 模块 中 的 两 个 过 程 都 可 以 使 用 该 变量 。 运 行 第 
一 个 过 程 后 ，intTotal 变量 的 值 为 1。 由 于 intTotal 变量 是 模块 级 的 ， 在 运行 第 二 个 过 程 时 该 变 
量 的 当前 值 可 以 被 直接 使 用 ， 因 此 运行 第 二 个 过 程 后 ，intTotal 变量 的 值 为 6 而 不 是 5。 

Option Explicit 


Dim intTotal As Integer 


Sub 模块 级 变量 () 
intTotal = intTotal + 1 
MsgBox intTotal 

End Sub 


Sub 模块 级 变量 2 () 
intTotal = intTotal + 5 
MsgBox intTotal 

End Sub 


如 果 同 时 声明 了 两 个 名 称 相同 的 模块 级 变量 和 过 程 级 变量 ， 那 么 包含 该 过 程 级 变量 的 过 程 
只 会 使 用 该 过 程 级 变量 ， 而 不 会 使 用 模块 级 变量 。 
3. 工程 级 变量 
如 果 希 望 变 量 可 以 在 当前 工程 的 所 有 模块 的 所 有 过 程 中 使 用 ， 则 需要 在 模块 顶部 的 声明 部 
分 使 用 Public 关键 字 声 明 变量 。 下 面 的 代码 声明 了 一 个 工程 级 变量 ， 变 量 中 存储 的 数据 在 工作 
短 被 打开 期 间 始终 可 用 
Public strAppName As String 
通常 应 该 在 VBA 的 标准 模块 中 声明 工程 级 变量 。 如 果 是 在 工作 短 或 工作 表 模块 项 部 的 声明 
部 分 使 用 Public 关键 字 声 明 变 量 ， 当 在 其 他 模块 中 使 用 该 变量 时 ， 需 要 在 变量 前 添加 工作 短 或 
工作 表 对 象 名 称 的 引用 。 例如 , 在 ThisWorkbook 模块 项 部 的 声明 部 分 输入 下 面 的 代码 声明 一 个 
变量 : 


Public strAppName As String 


































































































































































































































































当 在 工作 表 模 块 或 标准 模块 的 任意 过 程 中 。 | i 

为 该 变量 赋值 时 ， 需 要 使 用 下 面 的 格式 : rr 言 
ThisWorkbook.strAppName = "工资 管理 系统 " 浏览) 
VBA 工程 中 的 工程 级 变量 还 可 被 其 他 工作 | | i 

德 使 用 ,只 需 激活 其 他 工作 短 对 应 的 VBA 工程 ， “| |- 仿 二 | 

然后 单 击 VBE 窗口 菜单 栏 中 的 “工具 |“ 引用 ” | | , 

命令 ， 打 开 “ 引 用 ”对 话 框 ， 在 列表 框 中 选中 | ,sr 

包含 要 引用 的 变量 所 在 的 工作 德 对 应 的 VBA 工 

程 名 的 复 选 框 , 如 图 2-8 所 示 。 如果 要 引用 的 工 

作 德 当前 未 打开 ， 则 需要 单 击 “浏览 ”按钮 找 图 2-8 在 VBA 中 引用 其 他 工作 等 








到 并 打开 这 个 工作 短 。 在 列表 框 中 选择 好 要 引 
的 VBA 工程 后 ， 单 击 “ 确 定 ”按钮 。 
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本 2.2.5 ”使 用 常量 


VBA 有 很 多 内 置 的 固有 常量 ， 比 如 前 面 介绍 MsgBox 函数 时 使 用 过 的 vbYesNo 和 
vbQuestion， 这 些 VBA 内 置 常量 可 以 在 整个 VBA 中 使 用 。 除 了 内 置 常量 ， 用 户 还 可 以 创建 自 
己 的 常量 ， 在 常量 中 保存 固定 不 变 且 需要 在 程序 中 频繁 使 用 的 数值 或 文本 。 声 明 常量 需要 使 用 
Const 关键 字 。 下 面 的 代码 声明 了 一 个 名 为 Pi 的 常量 ， 并 将 圆周 率 的 值 保存 到 该 常量 中 。 
Const Pi = 3.14159265 
声明 常量 时 也 可 以 指定 常量 的 数据 类 型 。 下 面 的 代码 声明 了 一 个 名 为 AppName 的 String 
数据 类 型 的 常量 : 


Const AppName As String = "工资 管理 系统 " 


常量 的 命名 规则 和 作用 域 与 变量 相同 ， 这 里 不 再 袭 述 。 
































































































































2.3 表达 式 和 运算 符 


表达 式 可 以 由 变量 、 常 量 、 函 数 、 运 算 符 等 多 种 类 型 的 内 容 组 成 ， 用 于 执行 数学 计算 、 处 
理 文 本 或 测试 数据 。 下 面 是 一 个 表达 式 的 例子 ， 它 曾 在 前 面 的 案例 中 出 现 过 ， 该 表达 式 返 加 
intTotal 变量 的 当前 值 与 数字 5 之 和 ， 并 将 计算 结果 赋值 给 intTotal 变量 。 

intTotal = intTotal + 5 

表达 式 返 回 的 结果 分 为 多 种 类 型 ， 可 以 是 一 个 数字 ， 也 可 以 是 一 个 文本 ， 还 可 以 是 一 个 日 
期 或 逻辑 值 。 无 论 哪 种 类 型 的 表达 式 ， 其 中 通常 都 会 包含 一 个 或 多 个 运算 符 ， 用 于 连接 表达 式 
的 各 个 部 分 ， 并 决定 着 表达 式 要 执行 的 运算 类 型 和 运算 顺序 。VBA 包括 以 下 4 类 运算 符 : 

口 连接 运算 符 : 连接 两 个 或 多 个 内 容 ， 从 而 组 成 一 个 包含 复杂 内 容 的 字符 串 。 

口 算术 运算 符 : 进行 常规 的 数学 运算 ， 比 如 加 法 、 减 法 、 乘 法 和 除法 等 。 

口 比较 运算 符 : 对 给 定 的 两 部 分 内 容 进行 比较 ， 由 比较 运算 符 组 成 的 表达 式 返 回 的 结果 是 
逻辑 值 True 或 False。 比 较 运算 符 主要 在 在 判断 语句 的 条 件 部 分 中 使 用 。 
口 逻辑 运算 符 : 将 多 个 由 比较 运算 符 组 成 的 表达 式 组 合 在 一 起 , 以 形成 更 复杂 的 判断 条 件 。 
由 逻辑 运算 符 组 成 的 表达 式 返 回 的 结果 是 逻辑 值 True 或 False。 

当 一 个 表达 式 包含 多 个 运算 符 时 会 涉及 运算 顺序 的 问题 , 运算 顺序 由 运算 符 的 优先 级 决定 。 
当 表 达 式 包含 不 同类 型 的 运算 符 时 ， 首 先 计算 算术 运算 符 ， 然 后 计算 比较 运算 符 ， 最 后 计算 逻 
辑 运算 符 。 表 2-5 列 出 了 算术 运算 符 、 比 较 运 算 符 和 人 逻辑 运算 符 ， 其 中 的 算术 运算 符 和 风 辑 运 
算 符 是 按照 优先 级 从 高 到 低 的 顺序 进行 排列 的 ， 而 所 有 的 比较 运算 符 具 有 相同 的 优先 级 。 当 表 
达 式 包含 多 个 相同 级 别 的 运算 符 时 ， 运 算 顺 序 按照 表达 式 各 部 分 的 排列 的 位 置 从 左 到 右 进行 。 


表 2-5 ”算术 运算 符 、 比 较 运 算 符 和 逻辑 运算 符 
算术 运算 符 说 明 比较 运算 符 说 明 逻辑 运算 符 说 明 































































































^ 求 守 = 等 于 Not 逻辑 非 
| 负 号 一 不 等 于 And 逻辑 与 
* | 科 < 小 于 Or 逻辑 或 
/ | 除 > 2 Xor 逻辑 异 或 
\ 整除 一 小 于 等 于 Eqv 刘 辑 等 价 
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续 表 
算术 运算 符 | 说 明 比较 运算 符 说 明 逻辑 运算 符 说 了 明 
Mod | 求人 >- 大 于 等 于 Tnp 逻辑 蕴含 
+ | 加 
减 








连接 运算 符 的 优先 级 位 于 所 有 算术 运算 符 之 后 , 并 位 于 所 有 比较 运算 符 之 前 。 & 和 + 是 VBA 
中 的 两 个 连接 运算 符 ， 在 实际 应 用 中 最 好 使 用 &， 因 为 + 在 用 于 连接 字符 串 时 有 可 能 会 执行 加 法 
操作 而 不 是 连接 操作 ， 具 体 执行 哪 种 操作 由 待 连接 的 两 部 分 内 容 决 定 。 
案例 2-10 ”使 用 + 运算 符 
下 面 的 代码 说 明了 + 运算 符 的 用 法 。 第 一 个 过 程 的 运行 结果 是 15 而 不 是 6， 这 是 因为 要 连 
接 的 两 部 分 内 容 都 是 String 数据 类 型 ， 虽 然 两 部 分 内 容 都 是 数字 ， 但 是 由 于 它们 被 包围 在 双 引 
号 中 ， 因 此 VBA 会 将 它们 视 为 字符 串 ， 所 以 此 时 的 + 运算 符 起 到 字符 串 连 接 功能 。 第 二 个 过 程 
的 运行 结果 是 6， 这 是 因为 虽然 数字 5 使 用 双 引 号 包围 起 来 会 被 VBA 视 为 String 数据 类 型 ， 但 
是 由 于 intNumber 变量 中 的 1 没有 被 包围 在 双 引 号 中 ， 因 此 它 是 Integer 数据 类 型 ， 两 部 分 使 
+ 运算 符 将 会 执行 加 法 操作 ， 而 不 是 单纯 的 字符 串 连接 。 

Sub 连接 运算 符 () 
Dim intNumber 
intNumber = "1" 


MsgBox intNumber + "5" 
End Sub 






































































































































Sub 连接 运算 符 2 () 
Dim intNumber 
intNumber = 1 
MsgBox intNumber + "5" 
End Sub 


上 面 的 案例 说 明了 只 要 参与 运算 的 两 部 分 内 容 的 其 中 之 一 是 数值 类 型 的 数据 , + 运算 符 就 会 
执行 加 法 运算 而 非 字符 串 连 接 。 如 果 待 连接 的 两 部 分 内 容 中 的 其 中 之 一 是 文本 而 不 是 数字 ， 那 
么 在 使 用 + 运算 符 进行 连接 时 需要 格外 小 心 。 如果 其 中 一 部 分 内 容 是 文本 , 而 另 一 部 分 是 加 了 双 
引号 的 数字 ， 那 么 + 运算 符 可 以 正常 连接 它们 ， 此 时 与 使 用 & 运 算 符 具有 相同 的 效果 。 但 是 如 果 
一 部 分 内 容 是 文本 , 另 一 部 分 内 容 是 没有 加 双 引 号 的 数字 , 那么 在 使 用 + 运算 符 连接 这 两 部 分 内 
容 时 将 会 出 现 类 型 不 匹配 的 错误 ， 正 如 下 面 的 代码 所 示 : 

Sub 连接 运算 符 3 () 

Dim intNumber 
intNumber = 1 


MsgBox intNumber + "hello" 
End Sub 


虽然 运算 符 有 自己 默认 的 优先 级 , 但 是 可 以 通过 使 用 圆 括 号 强制 改变 运算 符 的 默认 优先 级 ， 
以 便 优 先 计 算 表达 式 中 低 优先 级 的 部 分 。 运 算 时 总 会 先 执行 圆 括号 中 的 运算 ， 然 后 才 会 执行 圆 
括号 外 的 运算 ， 位 于 圆 括号 中 的 运算 仍然 会 按照 运算 符 的 优先 级 顺序 进行 计算 。 下 面 的 代码 使 
圆 括号 改变 了 默认 的 运算 顺序 ， 此 时 会 先 计算 圆 括号 中 的 加 法 ， 然 后 才 会 计算 圆 括号 外 的 乘 
法 ， 因 此 最 终 的 计算 结果 为 30， 如 果 不 使 用 圆 括号 则 计算 结果 为 26。 


IO 人 5 
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2.4 创建 Sub 过 程 


过 程 是 组 织 和 运行 一 组 VBA 代码 的 逻辑 单元 。VBA 中 包括 Sub 过 程 ( 子 过 程 ) 、Function 
过 程 〈 函 数 过 程 ) 、 事 件 过 程 和 属性 过 程 。 事 件 过 程 实际 上 属于 Sub 过 程 ， 只 不 过 它 依附 于 特 
定 的 对 象 。 本 节 和 2.5 节 主 要 介绍 创建 Sub 过 程 和 创建 Function 过 程 ， 第 11 章 将 会 介绍 属性 过 
程 ， 第 12 章 将 会 介绍 事件 过 程 。 
回 加 
外 2.4.1 声明 Sub 过 程 
Sub 过 程 是 VBA 中 最 常 使 用 的 一 类 过 程 ， 在 Excel 中 录制 的 宏 就 是 Sub 过 程 。 使 用 过 程 的 
主要 原因 之 一 是 为 了 简化 大 量 代码 堆积 在 一 起 导致 的 复杂 程度 。 可 以 将 实现 一 个 程序 中 每 个 独 
立 小 功能 的 代码 分 别 放 入 不 同 的 过 程 中 ， 确 保 每 个 过 程 只 实现 单一 的 简单 功能 ， 最 后 在 一 个 过 
程 中 依次 调用 包含 独立 小 功能 的 各 个 过 程 。 这 种 利用 过 程 来 组 织 程序 的 方式 使 编写 和 调试 代码 
变 得 更 加 简单 高 效 。 
一 个 Sub 过 程 由 Sub 语句 开始 ，End Sub 语句 结束 ， 在 这 两 个 语句 之 间 放 置 所 需 的 VBA 代 
码 。 声 明 Sub 过 程 的 语法 格式 如 下 : 


[Private | Public] [Static] Sub name [(arglist)] 
[statements] 
[Exit Sub] 
[statements] 

End Sub 


口 Private: 可 选 ， 表 示 声 明 的 是 一 个 私有 的 Sub 过 程 ， 只 有 在 该 过 程 所 在 的 模块 中 的 其 他 
过 程 可 以 访问 该 过 程 ， 其 他 模块 中 的 过 程 无 法 访问 该 过 程 。 
口 Public: 可 选 ， 表 示 声 明 的 是 一 个 公共 的 Sub 过 程 ， 所 有 模块 中 的 所 有 其 他 过 程 都 可 以 
访问 该 过 程 。 如 果 在 包含 Option Private Module 语句 的 模块 中 声明 该 过 程 ， 即 使 该 过 程 
使 用 了 Public 关键 字 ， 也 仍然 会 变 为 私有 过 程 。 
Static: 可 选 ，Sub 过 程 运行 结束 后 保留 过 程 中 所 使 用 的 变量 的 值 。 
Sub: 必 选 ， 表 示 Sub 过 程 的 开始 。 
name: 必 选 ，Sub 过 程 的 名 称 ， 与 变量 的 命名 规则 相同 。 
arglist， 可 选 ， 一 对 圆 括 号 中 可 以 包含 一 个 或 多 个 参数 ， 这 些 参数 用 于 向 Sub 过 程 传递 
数据 以 供 Sub 过 程 处 理 ， 各 参数 之 间 以 逗号 分 隔 。 如 果 过 程 不 包含 任何 参数 ， 则 必须 保 
留 一 对 空 括号 。 
口 statements， 可 选 ，Sub 过 程 中 包含 的 VBA 代码 。 
口 Exit Sub: 可 选 ， 中 途 退 出 Sub 过 程 。 
口 End Sub: 必 选 ， 表 示 Sub 过 程 的 结束 。 
模块 中 可 以 包含 任意 多 个 Sub 过 程 ， 在 每 个 Sub 过 程 中 放置 用 于 完成 不 同 功能 的 VBA 代 
码 。 一 些 代码 需要 放置 到 模块 顶部 的 声明 部 分 中 ， 即 位 于 所 有 过 程 的 最 上 方 ， 这 些 代码 包括 模 
块 级 变量 的 声明 、 用 户 自 定义 数据 类 型 、Option Base 语句 等 。 
我 们 可 以 使 用 两 种 方法 声明 一 个 Sub 过 程 : 手动 输入 和 “添加 过 程 ”对 话 框 ， 下 面 将 分 别 
进行 介绍 。 
1. 手动 输入 法 声明 Sub 过 程 
打开 VBE 窗口 ， 在 指定 的 VBA 工程 中 插入 一 个 模块 ， 打 开 该 模块 的 代码 窗口 ， 然 后 输入 
关键 字 Sub 和 过 程 的 名 称 如 test， 按 Enter 键 后 Excel 会 自动 添加 End Sub 语句 。 创 建 好 的 Sub 
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过 程 如 下 所 示 ， 接 下 来 可 以 在 Sub 和 End Sub 之 间 添 加 所 需 的 VBA 代码 。 

Sub test() 

End Sub 

2. “添加 过 程 ”对 话 框 法 声明 Sub 过 程 

除了 手动 输入 Sub 和 End Sub 语句 之 外 ,还 可 以 使 用 “添加 过 程 ”对 话 框 来 声明 Sub 过 程 ， 
而 且 该 方法 还 可 用 于 创建 Function 过 程 和 属性 过 程 。 单 击 VBE 窗口 菜单 栏 中 的 “插入 ”|“ 过 
程 ” 命 令 ， 打 开 “ 添 加 过 程 ” 对 话 框 ， 如 图 2-9 所 示 。 在 “名 称 ” 文 本 框 中 输入 Sub 过 程 的 名 
称 ， 然 后 在 “类 型 ”区 域 中 选择 “ 子 程序 ”以 创建 Sub 过 程 ， 最 后 单 击 “ 确 定 ”按钮 。 


添加 过 程 x 
































名 称 (0): [test [ 柄 | 
类 型 
他 子 程序 (S) | 
C 广 函数 () 

个 属性 (FP) 
范围 

他 公共 的 (B) 
个 私有 的 (Y) 


厂 把 所 有 局 部 变量 声明 为 殉 态 变量 (A) 











图 2-9 使 用 “添加 过 程 ”对 话 框 创建 Sub 过 程 


2.4.2 ”Sub 过 程 的 作用 域 


Sub 过 程 的 作用 域 与 变量 类 似 ， 但 是 只 分 为 模块 级 和 工程 级 两 种 。 对 于 Sub 过 程 而 言 ， 
可 以 将 模块 级 的 Sub 过 程 称 为 私有 过 程 ， 将 工程 级 的 Sub 过 程 称 为 公有 过 程 。 区 分 Sub 过 
程 是 私有 过 程 还 是 公有 过 程 的 最 直接 方法 ， 是 在 Sub 语句 之 前 是 否 包含 Public 或 Private 关 
键 字 ， 以 Public 关键 字 开头 的 Sub 过 程 是 公有 过 程 ， 以 Private 关键 字 开头 的 Sub 过 程 是 私 
有 过 程 。 如 果 既 没有 Public 关键 字 也 没有 Private 关键 字 ， 而 是 直接 以 Sub 关键 字 开 头 ， 那 

在 下 面 的 三 个 过 程 中 ， 前 两 个 过 程 是 公有 过 程 ， 第 三 个 过 程 是 私有 过 程 。 

Public Sub 公有 过 程 () 


MsgBox "这 是 一 个 公有 过 程 " 
End Sub 























Sub 公有 过 程 2() 
MsgBox "这 也 是 一 个 公有 过 程 " 
End Sub 


Private Sub 私有 过 程 () 
MsgBox "这 是 一 个 私有 过 程 " 

End Sub 

如 果 使 用 2.4.1 节 介绍 的 第 二 种 方法 声明 Sub 过 程 , 则 可 以 在 “添加 过 程 ” 对 话 框 的 “范围 ” 
区 域 中 选择 过 程 的 作用 域 。 在 该 对 话 框 中 选择 “把 所 有 局 部 变量 声明 为 静态 变量 ”选项 相当 于 
使 用 Static 关键 字 声 明 过 程 ，“ 局 部 变量 ” 指 的 就 是 过 程 级 变量 。 

VBA 中 的 大 多 数 过 程 都 是 公有 过 程 ,用 户 在 标准 模块 中 创建 的 Sub 过 程 通常 都 是 公有 过 程 ， 
录制 的 宏 也 是 公有 过 程 ， 而 在 诸如 ThisWorkbook、Sheet 等 类 模块 中 的 工作 短 和 工作 表 的 事件 
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过 程 都 是 私有 过 程 。 公 有 过 程 可 以 被 其 所 在 的 工程 中 的 任何 模块 中 的 任何 过 程 调用 ， 私 有 过 程 
只 能 被 其 所 在 的 模块 中 的 其 他 过 程 调用 ， 而 不 能 被 其 他 模块 中 的 过 程 调用 。 

提示 : 如 果 不 希望 让 创建 的 Sub 过 程 显示 在 “ 宏 ” 对 话 框 中 ， 而 只 想 在 VBA 代码 中 进行 
调用 ， 则 需要 将 该 Sub 过 程 创建 为 私有 过 程 ， 或 者 在 创建 该 Sub 过 程 时 为 其 提供 参数 。 


2.4.3 在 VBA 中 调用 Sub 过 程 


将 功能 复杂 的 程序 分 解 成 包含 多 个 功能 相对 独立 的 Sub 过 程 ， 可 使 程序 的 结构 更 清晰 ， 也 
会 使 代码 的 编写 和 维护 更 容易 。 可 能 会 有 这 样 一 些 Sub 过 程 ， 它 们 完成 的 是 一 些 通用 的 操 人 
这 些 操作 会 在 其 他 多 个 Sub 过 程 所 完成 的 任务 中 用 到 ， 比 如 打开 文件 的 操作 。 此 时 在 这 些 Sub 
过 程 中 只 要 调用 包含 打开 文件 这 一 操作 的 Sub 过 程 ， 就 可 以 实现 打开 文件 的 操作 ， 而 不 必 重 复 
编写 打开 文件 的 VBA 代码 。 可 以 使 用 以 下 几 种 方法 调用 Sub 过 程 : 
口 直接 输入 过 程 的 名 称 。 如 果 过 程 包含 参数 ， 则 需要 输入 过 程 的 名 称 及 其 参数 。 如 果 过 程 
包含 多 个 参数 ， 则 需要 在 参数 之 间 使 用 逗号 进行 分 隔 。 
口 输入 Call 关键 字 ， 然 后 输入 过 程 的 名 称 。 如 果 过 程 包含 参数 ， 则 需要 输入 过 程 的 名 称 及 
其 参数 ， 并 将 所 有 参数 放置 到 一 对 圆 括号 中 ， 参 数 之 间 以 逗号 分 隔 。 
口 使 用 Excel 中 的 Application 对 象 的 Run 方法 运行 过 程 , 过 程 的 名 称 以 字符 串 的 形式 作为 
Run 方法 的 参数 ， 过 程 的 参数 与 过 程 的 名 称 之 间 需 要 使 用 逗号 进行 分 隔 ， 所 有 参数 不 需 
要 放置 到 一 对 圆 括号 中 。 
为 了 避免 表述 混乱 ， 可 以 将 调用 某 个 Sub 过 程 的 过 程 称 为 主 调 过 程 ， 将 被 其 他 过 程 调 用 的 
Sub 过 程 称 为 被 调 过 程 。 
图 案例 2-11 调用 过 程 
下 面 的 代码 使 用 第 一 种 方法 调用 名 为 “确认 退出 ”的 Sub 过 程 , 其 中 名 为 “ 主 过 程 ” 的 Sub 
过 程 是 主 调 过 程 ， 名 为 “确认 退出 ”的 Sub 过 程 是 被 调 过程 。 
Sub 主 过 程 () 
确认 退出 
End Sub 
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Sub 确认 退出 () 
MsgBox "是 否 退 出 程序 ? "，vbYesNo + vbouestion，" 退 出 程序 " 
End Sub 


可 以 使 用 Call 语句 来 调用 Sub 过 程 ， 与 直接 使 用 过 程 名 的 调用 方法 具有 相同 的 效果 ， 如 下 
所 示 : 
Call 确认 退出 
案例 2-12 ”调用 包含 参数 的 过 程 
下 面 的 代码 说 明了 调用 包含 参数 的 Sub 过 程 的 方法 。 假 设 前 面 案例 中 的 “确认 退出 ”过 程 
包含 两 个 参数 ， 分 别 用 于 指定 对 话 框 的 标题 和 内 容 ， 而 对 话 框 中 的 按钮 类 型 已 在 名 为 “确认 退 
出 ”的 被 调 过 程 中 指定 。 可 以 看 出 ， 为 Sub 过 程 提供 参数 可 以 为 用 户 提供 更 大 的 灵活 性 ， 在 本 
例 中 可 以 让 用 户 自 定义 在 对 话 框 中 显示 的 提示 消息 和 标题 的 具体 内 容 。 

Sub 主 过 程 () 


确认 退出 "退出 吗 ? "， "退出 " 
End Sub 




































































Sub 主 过 程 2() 
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Call 确认 退出 (" 退 出 吗 ? "， "退出 ") 
End Sub 
Sub 确认 退出 (varPrompt，varTitle) 
MsgBox varPrompt, vbYesNo + vbouestion，varTitle 
End Sub 
案例 2-13 ”使 用 Application.Run 方法 调用 过 程 
下 面 的 代码 使 用 Application.Run 方法 代替 Call 语句 调用 Sub 过 程 : 
Sub 主 过 程 () 
Application.Run "确认 退出 "， "退出 吗 ? "，" 退 出" 
End Sub 

















Sub 确认 退出 (varPrompt，varTitle) 
MsgBox varPrompt, vbYesNo + vbQuestion, varTitle 
End Sub 


前 面 介绍 的 过 程 调用 方式 都 是 主 调 过 程 与 被 调 过 程 位 于 同一 个 模块 的 情况 ， 这 种 调用 方式 
同样 适用 于 它们 位 于 不 同 模块 的 情况 。 但 是 以 下 两 种 例外 情况 需要 注意 。 

(1) 主 调 过 程 与 被 调 过 程 位 于 同一 个 模块 中 , 在 另 一 个 模块 中 还 存在 一 个 同名 的 被 调 过 程 。 

在 这 种 情况 下 ， 如 果 使 用 前 面 介绍 的 方法 调用 被 调 过 程 ， 那 么 调用 的 是 与 主 调 过 程 在 同一 
个 模块 中 的 被 调 过 程 。 如 果 想 要 调用 的 是 位 于 另 一 个 模块 中 具有 相同 名 称 的 被 调 过 程 ， 则 需要 
在 调用 时 输入 模块 名 以 限定 被 调 过 程 的 来 源 。 
案例 2-14 ”调用 位 于 不 同 模块 中 的 过 程 
工程 中 包含 名 为 “模块 1” 和 “模块 2” 的 两 个 模块 , 在 模块 1 和 模块 2 中 都 有 一 个 名 为 “ 确 
认 退 出 ”的 被 调 过 程 ， 模 块 1 中 还 有 一 个 名 为 “ 主 过 程 ”的 主 调 过 程 。 如 果 要 在 主 调 过 程 中 调 
模块 2 中 的 被 调 过 程 ， 则 需要 先 输入 被 调 过 程 所 在 的 模块 名 ， 然 后 输入 一 个 句点 ， 再 输入 被 
调 过 程 的 名 称 或 从 自动 弹出 列表 中 选择 被 调 过 程 。 也 可 以 使 用 Call 语句 进行 调用 ， 但 是 后 续 输 
入 方法 相同 。 如 图 2-10 所 示 显 示 了 代码 窗口 中 的 过 程 调用 情况 。 

Sub 主 过 程 () 


模块 2 .确认 退出 
End Sub 


























































































































侈 实 史 2-14xlsm - 模块 1 (代码 ) eslee 
「 通用) 了 | | 主 寺 要 了 











| Option Explicit _ 





End Sub 





wb 确认 退出 0 
ar? vbreslo + vbguestion “ 滔 L 
End Sul 





























考 宇 B2-14xsm - 神 块 2 (代码 ) [EE 
[ 硬 用 7 了 | [ 属 WRE 司 
Option Explicit 村 
Sub 确 i 
gg “，vbYesHo + vbQuestion, “退出 ” 
nd Sub 昌 
a 5 











图 2-10 通过 使 用 模块 名 来 限定 被 调 过 程 的 来 源 
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(2) 主 调 过 程 与 被 调 过 程 位 于 不 同 的 模块 中 ， 但 它们 具有 相同 的 名 称 。 


在 这 种 情况 下 调用 被 调 过 程 将 会 出 现 运行 时 错误 ， 此 时 需要 使 用 与 第 〈1) 种 情况 相同 
即 在 调用 被 调 过 程 时 为 其 添加 模块 名 以 明确 指定 其 来 源 。 
以 上 介绍 的 方法 调用 的 都 是 位 于 同一 个 工程 中 的 Sub 过 程 。 也 可 以 调 


法 来 处 理 ， 








过 程 ， 此 时 可 以 添加 对 包含 被 调 过 程 的 了 





级 变量 类 似 。 通 过 VBE 窗 











[ 作 短 的 引用 ,方法 与 2.2.4 节 介 绍 








菜单 栏 中 的 “工具 ”|“ 选 项 ”命令 ， 在 打开 





的 方 











用 位 于 其 他 工程 中 的 














的 跨 工作 
的 “引用 ”对 话 框 中 

















压 引 用 工程 


选择 包含 被 调 过 程 的 工程 ， 工 程 名 称 默认 会 显示 为 VBAProject， 可 以 在 工程 属性 对 话 框 中 修改 

















该 使 用 下 面 的 格式 : 
工程 名 .模块 名 .过 程 名 











工程 名 称 。 如 果 工 程 对 应 的 工作 矢 当 前 未 被 打开 ， 则 需要 单 
建立 引用 后 就 可 以 调用 所 引用 的 工程 中 的 Sub 过 程 了 。 为 了 可 以 准确 调用 指定 的 过 程 ， 应 


如 图 2-11 所 示 显 示 了 一 个 实际 调用 外 部 工作 敌 的 案例 。 外 部 工作 短 使 








到 的 工作 夭 。 在 当前 工作 簿 中 建立 对 该 外 部 了 
日 了 下 面 的 代码 来 调用 位 于 外 部 了 














过 程 中 使 























FF“ 浏览 ”按钮 打开 这 个 工作 短 。 














目的 是 上 一 个 例子 用 
[ 作 短 的 引用 后 ， 在 当前 工作 短 的 模块 1 中 的 test 
[ 作 短 中 的 模块 1 中 名 为 “ 主 过 程 ”的 过 程 。 外 部 工 








作 敌 对 应 的 工程 被 命名 为 MyPorject 而 没有 使 用 默认 的 VBAProject， 在 工程 资源 管理 器 中 可 以 





看 到 该 名 称 。 
MyProject .模块 1. 主 过 程 














区 的 


日 是 YBAProject (工作 敌 3) 
日- 合 了 crosoft Excel 对 象 


Shestl (Sheet1) 
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日 便 引 用 
贱 引用 案例 2-14.xlsn 


们 Microsoft Visual Basic for Applications - 工作 秒 3 - [模块 1 (代码 )] ee 
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昌 Dption Explicit Es 
Sub test() 
MyProject. 模块 1. 主 过 程 
End Sub 
= 4 EG 





























可 以 将 变量 、 常 量 、 


的 数据 类 型 ， 方 法 与 为 变量 指定 数据 类 型 相同 。 
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图 2-11 调用 其 他 工作 夭 中 的 过 程 


2.4.4 向 Sub 过 程 传递 参数 


所 有 录制 的 宏 都 是 公有 的 Sub 过 程 ， 这 些 过 程 不 包含 任何 参数 。 为 了 让 Sub 过 程 具有 更 大 
的 灵活 性 ， 可 以 通过 向 Sub 过 程 传递 参数 ， 从 而 允许 用 户 为 过 程 提供 需要 处 
将 要 处 理 的 数据 固定 写 入 到 过 程 内 部 。 包 含 参数 的 Sub 过 程 只 能 被 其 他 过 程 调用 ， 而 不 能 直接 
运行 ， 也 不 会 显示 在 “ 宏 ” 对 话 框 中 。 























E 的 数据 ， 而 不 是 





对 象 等 不 同类 型 的 内 容 作为 参数 传递 给 过 程 ， 一 个 过 程 可 以 包含 一 个 
或 多 个 参数 ， 这 些 参数 可 以 是 必 选 参数 ， 也 五 


以 是 可 选 参数 。 必 选 参数 是 指 在 调用 过 程 时 必须 
要 为 该 参数 提供 值 ， 可 选 参数 是 指 在 调用 过 程 时 不 一 定 非 要 为 该 参数 提供 值 。 还 可 以 指定 参数 
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在 声明 Sub 过 程 时 ， 在 过 程 名 右 侧 的 圆 括号 中 输入 所 需 的 一 个 或 多 个 参数 ， 各 参数 之 间 以 
逗号 分 隔 。 如 果 需 要 ， 可 以 使 用 As 关键 字 为 参数 指定 数据 类 型 。 

案例 2-15 “在 欢迎 信息 中 显示 指定 的 用 户 名 

下 面 的 代码 声明 的 Sub 过 程 ( 名 为 Greeting) 包含 一 个 参数 (名 为 UserName) ， 该 参数 的 
数据 类 型 是 String， 该 参数 用 于 指定 要 在 问候 消息 中 显示 的 用 户 名 。 然 后 在 另 一 个 过 程 中 调 
Greeting 过 程 ， 并 使 用 具体 的 人 名 作为 参数 值 提供 给 该 过 程 。 


Sub Greeting(UserName As String) 
MsgBox "你 好 " & UserName & "， 欢 迎 登 录 " 
End Sub 







































































Sub 主 过 程 () 
Greeting "John" 
End Sub 


在 上 面 的 主 调 过 程 中 ， 也 可 以 声明 一 个 变量 ， 然 后 为 变量 赋值 ， 再 在 调用 过 程 时 使 用 变量 
作为 参数 的 值 进行 传递 ， 如 下 所 示 : 


Sub 主 过 程 2() 
Dim strMyName As String 
strMyName = "John" 
Greeting strMyName 

End Sub 


在 向 过 程 传递 参数 时 可 以 采用 传 址 和 传 值 两 种 方式 ， 默 认为 传 址 。 参 数 的 传 址 或 传 值 是 通 
过 在 声明 过 程 时 使 用 ByRef 或 ByVal 关键 字 指 定 的 , 使 用 ByRef 或 省 略 该 关键 字 表 示 参 数 是 传 
址 的 ， 使 用 ByVal 关键 字 表示 参数 是 传 值 的 。 传 址 是 指 传递 到 过 程 内 部 的 是 变量 本 身 ， 过 程 中 
的 代码 对 变量 的 修改 不 只 局 限于 过 程 内 ， 而 且 还 会 影响 过 程 外 的 代码 ， 相 当 于 过 程 内 、 过 程 外 
共享 这 个 变量 。 传 值 是 指 传递 到 过 程 内 部 的 是 变量 的 副本 ， 过 程 中 的 代码 对 变量 的 修改 只 限于 
过 程 内 ， 而 不 会 对 过 程 外 的 其 他 过 程 有 任何 影响 。 


案例 2-16 ”参数 的 传 址 与 传 值 

下 面 的 代码 说 明了 参数 的 传 址 与 传 值 的 区 别 。 在 “ 求 和 ”过 程 中 使 用 ByRef 将 Numberl 指 
定 为 传 址 ， 使 用 ByVal 将 Number2 指定 为 传 值 ， 因 此 在 主 调 过 程 中 将 声明 的 两 个 变量 intNuml 
和 intNum2 赋值 后 传递 给 “ 求 和 ”过 程 时 ，intNuml 是 传 址 的 ，intNum2 是 传 值 的 。“ 求 和 ” 
过 程 对 传递 进来 的 两 个 变量 都 执行 加 1 运算 ， 由 于 第 一 个 变量 是 传 址 的 ， 因 此 加 1 后 的 变量 结 
果 会 改变 原 变量 intNuml 的 值 。 而 第 二 个 变量 由 于 是 传 值 的 ， 因 此 加 1 后 的 变量 结果 不 会 改变 
原 变 量 intNum2 的 值 。 可 以 在 主 调 过 程 中 使 用 MsgBox 函数 在 对 话 框 中 验证 两 个 变量 的 值 ， 第 
一 个 变量 的 值 为 2， 第 二 个 变量 的 值 仍 为 1， 如 图 2-12 所 示 。 

Sub 求 和 (ByRef Numberl, ByVal Number2) 

Numberl = Numberl + 1 


Number2 = Number2 + 1 
End Sub 































































































Sub 主 过 程 () 

Dim intNuml As Integer, intNum2 Rs Integer 

intNuml = 1 

intNum2 = 1 

求 和 intNuml, intNum2 

MsgBox "intNuml=" & intNuml & vbCrLf & "intNum2=" & intNum2 
End Sub 
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Microsoft Excel XX 


intNum1=2 
intNum2=1 


图 2-12 参数 的 伟 址 和 伟人 
可 以 在 立即 窗口 中 随时 验证 过 程 的 运行 结果 ,首先 需要 在 VBE 窗口 中 通过 单 击 菜单 栏 中 的 






































“视图 ”立即 窗口 ”命令 显示 出 立即 窗口 , 然后 需要 在 代码 中 使 用 Debug.Print 语句 代替 MsgBox 
函数 ， 以 便 将 变量 的 值 输出 到 立即 窗口 中 。 接 下 来 只 需 在 立即 窗口 中 输入 过 程 名 称 并 按 Enter 


键 ， 即 可 显示 变量 的 结果 ， 如 图 2-13 所 示 。 
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图 2-13 在 立即 窗口 中 验证 过 程 的 运行 结果 

提示 : 通常 会 在 Function 过 程 中 更 频繁 地 使 用 参数 ， 因 此 在 后 面 2.5 节 介 绍 Function 过 程 
时 会 对 参数 进行 更 多 的 介绍 .在 Function 过 程 中 包含 不 同类 型 参数 的 具体 方法 会 在 第 16 章 进行 
详细 介绍 。 


2.4.5 ”Sub 过 程 的 递归 

递归 是 指 过 程 调用 其 自身 。 任 何 一 个 过 程 都 可 以 递归 ， 但 是 递归 可 能 会 导致 内 存 耗 尽 而 产 
生 运行 时 错误 。 在 某 些 情况 下 也 可 以 利用 递归 来 完成 任务 。 

案例 2-17 ”验证 用 户 登 录 

下 面 的 代码 运行 后 会 显示 一 个 输入 对 话 框 让 用 户 输入 用 户 名 ， 然 后 检测 用 户 名 是 否 正确 ， 
如 果 不 正确 则 会 再 次 显示 该 对 话 框 ， 直 到 用 户 输入 正确 的 用 户 名 为 止 。 如 果 正 确 则 会 显示 登录 
成 功 的 消息 并 立刻 结束 该 过 程 。 由 于 使 用 下 语句 设置 了 终止 递归 的 判断 条 件 ， 因 此 本 例 中 的 过 






































程 递归 不 会 陷入 无 限 循环 。 
Sub 用 户 登 录 () 


Dim strUserName Rs String 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
If strUserName = "admin" Then 


MsgBox "登录 成 功 ! " 
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Exit Sub 
Else 
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MsgBox "用 户 名 错误 ， 请 重新 输入 ! " 


用 户 登录 
End If 
End Sub 


2.5 创建 Function 过 程 


除了 Sub 过 程 ， 用 户 还 可 以 在 VBA 中 创建 Function 过 程 ( 函 数 过 程 》， 它 与 Sub 过 程 有 
很 多 相似 之 处 ， 比 如 声明 方式 、 调 用 方式 、 过 程 包含 的 参数 声明 和 传递 方式 等 ，Sub 过 程 涉及 


的 很 多 概念 和 操作 方法 也 同 














样 适 用 于 Function 过 程 。 本 节 将 介绍 声明 与 调用 Function 过 程 的 基 











本 方法 ， 还 会 介绍 VBA 内 置 函 数 的 使 用 方法 。 第 16 章 将 会 详细 介绍 开发 自 定义 函数 的 方法 和 


更 多 案例 。 


2.5.1 Function 过 程 与 Sub 过 程 的 区 别 


尽管 Function 过 程 和 Sub 过 程 在 很 多 方面 都 具有 相同 或 相似 的 特性 ， 但 是 二 者 之 间 存 在 一 
个 重要 而 明显 的 区 别 : Function 过 程 可 以 返回 一 个 值 ， 而 Sub 过 程 不 能 返回 任何 值 。Function 
过 程 类 似 于 Excel 内 置 的 工作 表 函 数 。 在 VBA 中 创建 的 Function 过 程 主要 有 以 下 两 个 用 途 : 

口 在 工作 表 公 式 中 使 用 ， 弥 补 Excel 内 置 函数 无 法 实现 的 计算 功能 ， 简 化 公式 的 复杂 度 。 

口 在 VBA 中 被 其 他 过 程 调 用 ， 或 者 作为 表达 式 的 一 部 分 参与 运算 。 




















2.5.2 声明 Function 过 程 


声明 Function 过 程 的 i 
此 在 格式 声明 的 某 些 部 分 与 





得 法 格式 与 声明 Sub 过 程 类 似 ， 但 是 由 于 Function 过 程 有 返 
Sub 过 程 有 所 区 别 。 声 明 Function 过 程 的 语法 格式 如 下 : 





可 














[Public | Private] [Static] Function name [(arglist)] [Rs type] 


[statements] 


[name = expression] 


[Exit Function] 
[statements] 


[name = expression] 


End Function 


口 Private: 可 选 ， 表 示 声 明 的 是 一 个 私有 的 Function 过 程 ， 只 有 在 该 过 程 所 在 的 模块 中 的 
其 他 过 程 可 以 访问 该 过 程 ， 其 他 模块 中 的 过 程 无 法 访问 该 过 程 。 


口 Public: 可 选 ， 表 示 


声明 的 是 一 个 公共 的 Function 过 程 ， 所 有 模块 中 的 所 有 其 他 过 程 都 


可 以 访问 该 过 程 。 如 果 在 包含 Option Private Module 语句 的 模块 中 声明 该 过 程 ， 即 使 该 
过 程 使 用 了 Public 关键 字 ， 也 仍然 会 变 为 私有 过 程 。 


Function: 必 选 ， 表 


DOODO 


arglist: 可 选 ， 一 对 


Static: 可 选 ，Function 过 程 运行 结束 后 保留 过 程 中 所 使 用 的 变量 的 值 。 


示 Function 过 程 的 开始 。 


name: 必 选 ，Function 过 程 的 名 称 ， 与 变量 的 命名 规则 相同 。 





圆 括号 中 可 以 包含 一 个 或 多 个 参数 ， 这 些 参数 用 于 向 Function 过 程 


传递 数据 以 供 Function 过 程 处 理 ， 各 参数 之 间 以 逗号 分 隔 。 如 果 过 程 不 包含 任何 参数 ， 
则 必须 保留 一 对 空 括号 。 

口 type: 可 选 ，Function 函数 的 返回 值 的 数据 类 型 。 

口 statements: 可 选 ，Function 过 程 中 包含 的 VBA 代码 。 
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口 expression: 可 选 ，Function 过 程 的 返回 值 。 

口 Exit Function: 可 选 ， 中 途 退 出 Function 过 程 。 

口 End Function: 必 选 ， 表 示 Function 过 程 的 结束 。 

与 声明 Sub 过 程 的 方法 类 似 , 可 以 使 用 两 种 方法 声明 
对 话 框 声明 Function 过 程 ， 则 需要 在 该 对 话 框 的 “类 型 ” 
的 设置 与 Sub 过 程 类 似 。 























如 果 想 要 手动 声明 Function 过 程 ， 则 需要 在 代码 窗 


Function 过 程 。 如果 使 用 “添加 过 程 ” 
区 域 中 选择 “函数 ”选项 ， 其 他 选项 

















中 输入 Function 关键 字 和 Function 过 


程 的 名 称 , 按 Enter 键 后 Excel 会 自动 添加 End Function 语句 , 如 下 所 示 , 接 下 来 可 以 在 Function 


和 End Function 之 间 添 加 所 需 的 VBA 代码 。 
Function MYTime () 


End Function 


还 可 以 在 Function 过 程 名 右 侧 的 圆 括号 中 输入 一 个 或 多 个 参数 ， 各 参数 以 逗号 分 隔 ， 如 下 


所 示 : 


Function GetSum(varNumberl, varNumber2) 


End Function 


提示 : 在 创建 Function 过 程 时 可 以 为 其 添加 不 同形 式 的 参数 ， 关 于 这 方面 的 具体 内 容 将 在 


第 16 章 进 行 详细 介绍 。 
案例 2-18 ”创建 与 使 用 Function 过 程 











下 面 的 代码 声明 了 一 个 用 于 计算 两 个 数字 之 和 的 Function 过 程 ， 该 过 程 包含 两 个 参数 ， 它 


” 们 表示 要 参与 计算 的 数字 。 在 另 一 个 过 程 中 调用 了 这 个 Function 过 程 ， 在 对 话 框 中 显示 了 用 户 
痢 定 的 两 个 数字 之 和 ， 如 图 2-14 所 示 。 本 例 中 的 Function 过 程 是 作为 表达 式 的 一 部 分 使 用 的 。 





Function GetSum(varNumberl, varNumber2) 
GetSum = varNumberl + varNumber2 
End Function 


Sub test() 
MsgBox "两 个 数字 之 和 是 : " & GetSum(1，2) 
End Sub 








性 实 史 2-19 xjsm - 模块 1 (代码 





「 吨 用 7 司 [es 








Option Explicit 


,回国 





Function GetSum (varlanberl，varNamnber2) 
GetSum = varNomberl + varlunber2 
End Function 








Sub test() 
JsgBox “两 个 数字 之 和 是 :“ & GetSun(1，2) 
End Sub 







x 


Microsoft Excel 





两 个 数字 之 和 是 : 3 
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图 2-14 一 个 简单 的 Function 过 程 
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2.5.3 ”调用 Function 过 程 


5 调用 Sub 过 程 类 似 ， 可 以 在 其 他 过 程 中 调用 指定 的 Function 过 程 ， 具 体 可 以 调用 哪些 
Function 过 程 以 及 调用 的 方式 ， 由 Function 过 程 的 作用 域 决 定 。Function 过 程 的 作用 域 所 遵循 
的 规则 与 Sub 过 程 相同 .如 果 在 Function 过 程 的 开头 使 用 或 省 略 了 Public 关 键 字 , 那么 该 Function 
过 程 是 公有 过 程 。 如 果 在 Function 过 程 的 开头 使 用 了 Private 关键 字 ， 那么 该 Function 过 程 是 私 
有 过 程 。 

公有 的 Function 过 程 可 以 被 同一 个 工程 中 的 所 有 模块 中 的 所 有 过 程 调用 。 如 果 要 在 外 部 工 
作 短 中 调用 该 Function 过 程 ， 需 要 建立 对 包含 该 Function 过 程 的 工作 簿 的 引用 ， 方 法 与 前 面 介 
绍 的 引用 外 部 工作 夭 中 的 Sub 过 程 相 同 。 上 一 个 案例 说 明了 在 VBA 中 调用 Function 过 程 的 方 
法 ， 在 一 个 对 话 框 中 显示 了 使 用 GetSum 函数 对 两 个 数字 求 和 的 计算 结果 。 如 果 希 望 在 后 面 的 
代码 中 使 用 Function 过 程 的 返回 值 ， 则 需要 将 返回 值 赋值 给 一 个 变量 ， 之 后 可 以 在 代码 中 处 理 
这 个 变量 。 

案例 2-19 ”在 程序 中 使 用 函数 的 返回 值 器 
下 面 是 对 上 一 个 案例 中 的 代码 修改 后 的 版 本 ， 其 中 声明 了 一 个 varSum 变量 ， 用 于 保存 痢 
GetSum 函数 的 返回 值 ， 然 后 在 下 判断 语句 中 测试 这 个 变量 是 否 小 于 10， 如 果 是 则 显示 “总 和 
太 小 ”的 提示 消息 。 


Function GetSum(varNumber1，varNumber2) 
GetSum = varNumberl + varNumber2 
End Function 









































































































































Sub test() 

Dim varSum 

VarSum = GetSum(1, 2) 

If varSum < 10 Then MsgBox "总 和 太 小 " 
End Sub 


公有 的 Function 过 程 还 可 以 在 工作 表 公式 中 使 用 , 就 像 使 用 Excel 内 置 的 工作 表 函 数 一 样 。 
这 里 仍然 使 用 前 面 案 例 中 创建 的 GetSum 函数 , 该 函数 计算 Al 和 B1 两 个 单元 格 中 的 数字 之 和 ， 
如 图 2-15 所 示 。 





























cl ~ 大 | =GetSum(Al81 
A B C D 
1] 1 a| al 
图 2-15 在 工作 表 公式 中 使 用 Function 过 程 


如 果 只 想 在 VBA 中 调用 Function 过 程 ， 不 希望 在 工作 表 公式 中 使 用 该 过 程 ， 那 么 需要 在 
声明 Function 过 程 的 开头 使 用 Private 关键 字 。 这样 该 Function 过 程 将 变 为 私有 过 程 ， 它 只 能 被 
Function 过 程 所 在 模块 中 的 任意 过 程 调用 ， 而 不 能 被 其 他 模块 中 的 过 程 调 用 ， 也 不 能 在 工作 表 
公式 中 使 用 。 












































回 


2.5.4 使 用 VBA 内 置 函数 四 


VBA 内 置 函数 是 VBA 自身 提供 的 用 于 实现 特定 功能 的 Function 过 程 ， 它 们 可 用 于 完成 不 
同类 型 的 计算 和 文本 处 理 任 务 。VBA 内 置 函 数 与 Excel 工作 表 函 数 类 似 。 例 如 ， 名 为 Ucase 的 
VBA 内 置 函数 用 于 将 文本 中 的 英文 字母 转换 为 大 写 形 式 ， 该 函数 的 功能 与 Excel 工作 表 函 数 
UPPER 相同 。 需 要 注意 的 是 ， 如 果 某 个 VBA 内 置 函 数 与 某 个 Excel 工作 表 函 数 实现 相同 的 功 
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能 (就 像 上 面 提 到 的 Ucase 和 UPPER) ， 那 么 该 工作 表 函 数 就 不 能 在 VBA 中 使 用 ， 否 则 会 出 
现 错误 。 
如 果 用 户 创建 的 Function 过 程 与 VBA 内 置 函数 同名 ， 在 VBA 中 调用 该 Function 过 程 时 ， 
VBA 会 认为 用 户 希 望 使 用 自己 创建 的 这 个 Function 过 程 ， 而 不 是 同名 的 VBA 内 置 函数 。 此 时 
如 果 希 望 使 用 同名 的 VBA 内 置 函数 ， 则 需要 先 输入 VBA 和 一 个 句点 ， 然 后 在 弹出 的 自动 成 员 
列表 中 选择 所 需 的 VBA 内 置 函数 〈 以 绿色 标记 开头 ) ， 如 图 2-16 所 示 ， 使 用 方向 键 选择 某 个 
函数 ， 然 后 按 下 Tab 键 将 函数 输入 到 代码 窗口 中 。 在 不 知道 都 有 哪些 VBA 内 置 函数 时 ， 也 可 
以 使 用 这 种 方法 快速 获得 函数 列表 。 

















































































































图 2-16 在 代码 中 使 用 VBA 内 置 函 数 


2.6 ”控制 程序 的 运行 流程 


正常 情况 下 ， 过 程 中 的 代码 按照 从 上 到 下 的 顺序 运行 ， 但 是 可 以 在 过 程 中 加 入 控制 结构 来 
改变 程序 的 运行 流程 。 
2.6.1 If Then 判断 结构 

If Then 结构 用 于 根据 条 件 的 判断 结果 是 否 成 立 来 选择 执行 不 同 的 代码 。 如 果 判 断 结果 为 逻 
辑 值 True， 则 说 明 条 件 成 立 ， 如 果 为 False 则 说 明 条 件 不 成 立 。If Then 判断 结构 可 以 分 为 以 下 
3 种 形式 : 

口 只 处 理 条 件 成 立 情况 的 If Then 结构 。 

口 可 以 处 理 条 件 不 成 立 情况 的 If Then 结构 。 

口 可 以 处 理 多 个 条 件 的 If Then 结构 。 

1. 只 处 理 条 件 成 立 情况 的 ff Then 结构 

If Then 结构 的 最 简单 形式 是 单行 的 下 Then 语句 ， 用 于 在 条 件 成 立时 执行 指定 的 代码 。 要 
检测 的 条 件 位 于 下 关键 字 之 后 ， 要 执行 的 代码 位 于 Then 关键 字 之 后 ， 格 式 如 下 : 
If 要 检测 的 条 件 Then 条 件 成 立时 执行 的 代码 
案例 2-20 上 条 件 成 立时 执行 单条 语句 
下 面 的 代码 判断 输入 的 用 户 名 是 否 是 “Admin”， 如 果 是 则 显示 欢迎 信息 。 


Sub 显示 欢迎 信息 () 
Dim strUserName As String 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
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If strUserName = "Admin" Then MsgBox "hello " & strUserName 
End Sub 


在 上 例 中 ， 只 有 输入 大 小 写 完全 相同 的 “Admin” 才 会 显示 欢迎 消息 ， 这 是 因为 VBA 默认 
使 用 二 进 制 方式 对 字符 串 进行 比较 。 如 果 希 望 无 论 输 入 大 小 写 形式 的 Admin 都 能 被 下 语句 判断 
为 条 件 成 立 ， 则 可 以 将 焉 条件 判断 部 分 的 代码 改 为 以 下 两 种 形式 之 一 ， 其 中 的 Lcase 和 Ucase 
是 VBA 的 两 个 内 置 函数 ， 前 者 用 于 将 文本 转换 为 小 写 形式 ， 后 者 用 于 将 文本 转换 为 大 写 形式 。 


IE LCase (strUserName) = "admin" 
If Ucase (strUserName) = "ADMIN" 


如 果 希 望 模块 中 的 所 有 过 程 都 使 用 不 区 分 大 小 写 形式 的 文本 比较 方式 ， 则 可 以 在 模块 项 部 
的 声明 部 分 输入 下 面 的 代码 : 
Option Compare Text 
如 果 在 条 件 成 立时 需要 执行 多 行 代码 ， 则 可 以 使 用 下 面 的 下 Then 格式 。 此 时 在 Then 关键 
字 之 后 没有 任何 代码 ， 而 将 条 件 成 立时 要 执行 的 代码 放 在 下 语句 下 面 的 一 行 或 多 行 中 ， 最 后 使 
用 End If 语句 作为 If Then 结构 的 结束 。 不 需要 手动 输入 End 下 语句 ， 只 需 先 输入 好 If Then 这 
条 语句 ， 然 后 按 Enter 键 ，Excel 会 自动 添加 End If 语句 。 

If 要 检测 的 条 件 Then 

条 件 成 立时 执行 的 代码 

End If 

案例 2-21 If 条 件 成 立时 执行 多 条 语句 a 
下 面 的 代码 是 对 上 一 个 案例 修改 后 的 版 本 ， 如 果 用 户 输入 正确 的 用 户 名 ， 将 在 对 话 框 中 显 凡 
示 欢 迎 信息 ， 并 会 记录 用 户 的 登录 次 数 。 声 明 intLogin 变量 时 使 用 的 是 Static 关键 字 ， 目 的 是 
在 工作 敌 打 开 期 间 多 次 执行 该 过 程 时 ，intLogin 变量 的 值 可 以 持续 累加 ， 而 不 是 在 每 次 过 程 运 
行 结束 后 自动 归 零 。 

Sub 显示 欢迎 信息 () 


Dim strUserName As String 
Static intLogin Rs Integer 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
If strUserName = "Admin" Then 
MsgBox "hello " & strUserName 
intLogin = intLogin + 1 
End If 
End Sub 
实际 上 单行 的 下 Then 结构 也 可 以 在 满足 条 件 时 执行 多 条 语句 , 只 要 使 用 冒号 分 隔 多 条 语句 
即 可 ， 如 下 所 示 : 


If strUserName = "Admin" Then MsgBox "hello " & strUserName: intLogin = intLogin + 1 
2. 同时 处 理 条 件 成 立 和 不 成 立 两 种 情况 的 If Then 结构 
如 果 希 望 在 条 件 成 立 和 不 成 立时 都 执行 相应 的 代码 , 则 需要 在 I Then 结构 中 使 用 Else 子 句 。 
如 果 在 条 件 成 立 和 不 成 立时 各 执行 一 行 代 码 ， 则 可 以 使 用 单行 的 下 Then Else 结构 ， 格 式 如 下 : 
IE 要 检测 的 条 件 Then 条 件 成 立时 执行 的 代码 Else 条 件 不 成 立时 执行 的 代码 
案例 2-22 ”同时 处 理 |f 条 件 成 立 与 不 成 立 两 种 情况 并 执行 单条 语句 
下 面 的 代码 判断 输入 的 用 户 名 是 否 是 “Admin”， 如 果 是 则 显示 登录 成 功 的 信息 ， 如 果 不 上 
是 则 显示 出 错 信息 。 代 码 中 使 用 strMessage 变量 存储 在 条 件 成 立 和 不 成 立时 在 对 话 框 中 显示 的 
不 同 信息 ， 最 后 使 用 MsgBox 函数 显示 该 信息 。 

Sub 验证 用 户 名 () 
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Dim strUserName As String, strMessage As String 
strUserName = InputBox ("请 输入 用 户 名 : ") 


IE strUserName = "Admin" Then strMessage = "登录 成 功 ”Else strMessage = "用 户 名 错误 " 
MsgBox strMessage 
End Sub 


如 果 在 条 件 成 立 和 不 成 立时 要 分 别 执行 多 行 代码 , 则 需要 使 用 多 行 的 If Then Else 结构 , 格 
式 如 下 : 


IE 要 检测 的 条 件 Then 

条 件 成 立时 执行 的 代码 
Else 

条 件 不 成 立时 执行 的 代码 
End If 


案例 2-23 ”同时 处 理 If 条 件 成 立 与 不 成 立 两 种 情况 并 执行 多 条 语句 

下 面 的 代码 判断 输入 的 用 户 名 是 否 是 “Admin”， 如 果 是 则 显示 登录 成 功 的 信息 ， 如 果 不 
是 则 记录 用 户 登录 的 次 数 ， 并 显示 包括 已 登录 次 数 在 内 的 登录 失败 的 信息 。 

Sub 验证 用 户 名 () 


Dim strUserName As String 

Static intLogin As Integer 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
If strUserName = "Admin" Then 


MsgBox "登录 成 功 " 
Else 


intLogin = intLogin + 1 


MsgBox "用 户 名 错误 ， 这 是 第 "”& intLogin & "次 登录 失败 " 
End If 
End Sub 


3. 处 理 多 个 条 件 的 ff Then 结构 


使 用 下 Then 结构 还 可 以 对 多 个 条 件 进行 判断 , 并 根据 判断 结果 执行 不 同 的 代码 。 处 理 多 个 
条 件 的 I Then 结构 可 以 将 普通 的 I Then 结构 嵌 套 在 另 一 个 王 Then 结构 中 ， 可 以 嵌 套 任意 数 


量 的 If Then 结构 ， 从 而 构成 多 层 嵌 套 的 下 Then 结构 ， 如 下 所 示 ， 每 个 If Then 结构 都 必须 有 
对 应 的 End If 语句 。 


IE 要 检测 的 第 1 个 条 件 Then 
第 1 个 条 件 成 立时 执行 的 代码 
Else 
IE 要 检测 的 第 2 个 条 件 Then 
第 2 个 条 件 成 立时 执行 的 代码 
Else 
IE 要 检测 的 第 n 个 条 件 Then 
第 nn 个 条 件 成 立时 执行 的 代码 
Else 
第 n-1 个 条 件 不 成 立时 执行 的 代码 
End If 
第 2 个 条 件 不 成 立时 执行 的 代码 
End If 
第 1 个 条 件 不 成 立时 执行 的 代码 
End If 



























































案例 2-24 多 个 f Then Else 结构 嵌 套 

下 面 的 代码 说 明了 If 多 条 件 判 断 第 一 种 结构 的 用 法 ， 根 据 用 户 输入 的 不 同 内 容 而 显示 不 同 
的 信息 。 如 果 用 户 输入 的 是 Admin, 则 显示 “你 好 ,管理 员 ”， 如果 输入 的 是 User, 则 显示 “你 
好 ， 普 通用 户 ”， 否则 会 显示 Else 子 句 中 的 信息 ， 即 用 户 输入 的 实际 用 户 名 。 







































































。46 。 


第 2 章 掌握 VBA 编程 语言 


Sub 验证 用 户 名 () 
Dim strUserName Rs String 
strUserName = InputBox ("请 输入 用 户 名 : ") 
If strUserName = "Admin" Then 


MsgBox "你 好 ， 管 理 员 " 


Else 
If strUserName = "User" Then 
MsgBox "你 好 ， 普 通用 户 " 
Else 
MsgBox "你 好 " & strUserName 
End If 
End If 
End Sub 

















还 可 以 使 用 下 面 的 If Then 结构 来 处 理 多 个 条 件 ， 可 以 添加 任意 数量 的 ElseIf 子 句 。 


IE 要 检测 的 第 1 个 条 件 Then 

第 1 个 条 件 成 立时 执行 的 代码 
ElseIf 要 检测 的 第 2 个 条 件 Then 

第 1 个 条 件 不 成 立 但 第 2 个 条 件 成 立时 执行 的 代码 
ElseIf 要 检测 的 第 n 个 条 件 Then 

前 n-1 个 条 件 都 不 成 立 但 第 n 个 条 件 成 立时 执行 的 代码 
Else 


前 面 所 有 条 件 都 不 成 立时 执行 的 代码 
End If 


案例 2-25 使 用 If Then Elself 处 理 多 个 条 件 
下 面 的 代码 使 用 If Then ElseIf 结构 进行 了 重新 编写 ， 实 现 与 上 一 个 案例 相同 的 功能 。 
Sub 验证 用 户 名 () 


Dim strUserName As String 

strUserName = InputBox ("请 输入 用 户 名 : ") 

If strUserName = "Admin" Then 
MsgBox "你 好 ， 管 理 员 " 

ElseIf strUserName = "User" Then 
MsgBox "你 好 ， 普 通用 户 " 

Else 
MsgBox "你 好 " & strUserName 

End If 

End Sub 


无 论 使 用 的 是 单条 件 判断 还 是 多 条 件 判断 的 If Then 结构 ， 都 可 以 在 条件 部 分 使 用 逻辑 
运算 符 组 合 多 个 条 件 ， 以 实现 同时 满足 多 个 条 件 才 执行 指定 的 代码 。 


案例 2-26 ”使 用 逻辑 运算 符 实现 多 条 件 判断 
下 面 的 代码 检查 用 户 输入 的 是 否 是 “Admin”， 以 及 登录 次 数 是 否 未 超过 3 次 。 由 于 在 If 如 


条 件 部 分 使 用 了 And 逻辑 运算 符 ， 因 此 只 有 同时 满足 两 个 条 件 ， 才 会 显示 登录 成 功 的 信息 ， 否 
则 只 要 有 一 个 条 件 不 满足 ， 就 会 显示 用 户 名 错误 或 已 超过 登录 次 数 的 信息 。 
Sub 验证 用 户 名 () 


Dim strUserName Rs String 

Static intLogin As Integer 

strUserName = InputBox (" 请 输入 用 户 名 : ") 

intLogin = intLogin + 1 

If strUserName = "Admin" And intLogin <= 3 Then 
MsgBox "登录 成 功 " 

Else 
MsgBox "用 户 名 错误 或 已 超过 登录 次 数 " 

End If 

End Sub 
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2.6.2 Select Case 判断 结构 


当 需 要 依次 检测 一 个 表达 式 的 多 个 值 ， 并 根据 每 个 值 来 执行 不 同 的 操作 时 ，Select Case 可 
以 提供 更 清晰 的 结构 。Select Case 结构 的 格式 如 下 : 


Select Case 要 检测 的 表达 式 
Case 表达 式 的 第 1 个 值 
满足 第 1 个 值 时 要 执行 的 代码 
Case 表达 式 的 第 2 个 值 
满足 第 2 个 值 时 要 执行 的 代码 
Case 表达 式 的 第 nn 个 值 
满足 第 n 个 值 时 要 执行 的 代码 
Case Else 
不 满足 前 面 所 有 值 时 执行 的 代码 
End Select 


案例 2-27 ”使 用 Select Case 结构 处 理 多 个 条 件 
下 面 的 代码 使 用 Select Case 结构 对 案例 2-24 和 案例 2-25 进行 了 重 
Sub 验证 用 户 名 () 


Dim strUserName Rs String 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
Select Case strUserName 
Case "Admin" 
MsgBox "你 好 ， 管 理 员 " 
Case "User" 
MsgBox "你 好 ， 普 通用 户 " 
Case Else 
MsgBox "你 好 " & strUserName 
End Select 
End Sub 


如 果 在 每 个 Case 下 面 只 执行 一 条 语句 , 为 了 使 代码 结构 更 紧凑 , 可 以 将 执行 的 语句 与 Case 
语句 合并 为 一 行 ， 两 个 语句 之 间 使 用 分 号 分 隔 ， 如 下 所 示 : 
Sub 验证 用 户 名 2 () 
Dim strUserName As String 
strUserName = InputBox ("请 输入 用 户 名 : ") 


Select Case strUserName 
Case "Admin": MsgBox "你 好 ， 管 理 员 " 


Case "User": MsgBox "你 好 ， 普通 用 户 " 
Case Else: MsgBox "你 好 " & strUserName 
End Select 
End Sub 


Select Case 结构 中 的 每 个 Case 语句 都 可 以 对 多 个 值 进 行 检测 ， 各 个 值 之 间 以 逗号 分 隔 。 
案例 2-28 ”验证 Excel 程序 版 本 号 
下 面 的 代码 检测 当前 Excel 程序 的 版 本 ,如 果 是 Excel 2007/2010/2013/2016,， 则 显示 “Excel 
2003 之 后 的 版 本 ”的 提示 信息 ， 如 果 是 Excel 2003 或 更 早 版 本 ， 则 显示 “Excel 2003 或 更 早 版 
本 ”的 提示 信息 。 本 例 中 用 到 了 Excel 对 象 模型 中 的 Application 对 象 ， 它 代表 Excel 程序 本 身 。 
Version 是 Application 对 象 的 一 个 属性 ，Application.Version 表示 Excel 程序 的 版 本 号 。 

Sub 验证 Excel 程序 版 本 号 () 


Select Case Application.Version 
Case “10.0%7 S10.0n7 Lda0" 120" 
MsgBox "Excel 2003 之 后 的 版 本 " 
Case Else 
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MsgBox "Excel 2003 或 更 早 版 本 " 
End Select 
End Sub 


还 可 以 在 Case 语句 中 使 用 To 关键 字 表 示 要 检测 的 值 的 范围 ， 或 者 使 用 Is 关键 字 与 指定 的 
值 进行 比较 。 

案例 2-29 计算 折扣 率 

下 面 的 代码 首先 检测 用 户 输入 的 内 容 是 否 是 数字 ， 如 果 不 是 则 会 显示 一 条 提示 信息 ， 然 后 
自动 退出 当前 程序 。Exit Sub 语句 用 于 在 满足 条 件 时 退出 当前 Sub 过 程 。 如 果 输 入 的 是 数字 ， 
则 会 使 用 Select Case 结构 检测 该 数字 的 大 小 ， 并 返回 其 所 在 数值 范围 内 对 应 的 折扣 率 。 在 Case 
语句 中 使 用 了 Is 和 To 关键 字 来 指定 不 同 的 数值 范围 

Sub 计算 折扣 率 () 


Dim strQuantity Rs String 

Dim sngDiscount Rs Single 

strQuantity = InputBox (" 请 输入 购买 数量 : ") 

If Not IsNumeric(strQuantity) Then 
MsgBox "输入 的 不 是 一 个 数字 ! " 
Exit Sub 

End If 

Select Case Val (strQuantity) 
Case Is <= 20: sngDiscount 
Case 21 To 50: sngDiscount 
Case Is > 50: sngDiscount = 0.2 
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End Select 
MsgBox "获得 的 折扣 率 是 : " & sngDiscount 
End Sub 


Select Case 结构 也 可 以 嵌 套 使 用 , 即 在 一 个 Select Case 结构 中 包含 另 一 个 Select Case 结构 。 
案例 2-30 ”查询 商品 定价 

下 面 的 代码 可 以 实现 根据 用 户 输入 的 食品 的 类 别 和 名 称 来 显示 对 应 的 食品 定价 。 如 果 输 入 
的 内 容 不 在 指定 范围 内 , 则 会 显示 “输入 的 内 容 无 效 ” 的 提示 信息 。 本 例 使 用 了 嵌 套 的 Select Case 
结构 ， 外 层 的 Select Case 结构 用 于 查找 食品 的 类 别 ， 内 层 的 Select Case 结构 用 于 查找 具体 的 食 
品名 称 ， 每 个 Case 语句 返回 相应 食品 的 定价 ， 最 后 使 用 MsgBox 函数 在 对 话 框 中 显示 找到 的 食 
品 的 名 称 和 定价 。 


Sub 查询 商品 定价 () 
Dim strType As String, strFood As String 
Dim sngPrice As Single 
strType = InputBox ("请 输入 食品 的 类 别 :") 
strFood = InputBox ("请 输入 食品 的 名 称 : ") 
Select Case strType 
Case "蔬菜 " 
Select Case strFood 
Case "西红柿 ": sngPrice = 
Case "芦笋 ": sngPrice = 6 
Case Else 
MsgBox "输入 的 内 容 无 效 ! ": Exit Sub 
End Select 
Case "水 果 " 
Select Case strFood 
Case "苹果 ": sngPrice = 3.5 
Case "猕猴 桃 ": sngPrice = 8 
Case Else 
MsgBox "输入 的 内 容 无 效 ! ": Exit Sub 
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End Select 
Case Else 
MsgBox "输入 的 内 容 无 效 ! ": Exit Sub 
End Select 
MsgBox strFood & "的 定价 是 : "” & sngPrice & "元 / 斤 " 
End Sub 


2.6.3 ”For Next 循环 结构 


计算 机 最 擅长 的 工作 之 一 就 是 处 理 需要 不 断 重复 进行 的 操作 。VBA 支持 两 种 最 主要 的 循环 结 
构 : For Next 和 Do Loop， 本 节 主 要 介绍 For Next 循环 结构 ， 下 一 节 会 详细 介绍 Do Loop 循环 结构 。 
如 果 预 先知 道 操作 要 重复 的 次 数 ， 那 么 可 以 使 用 For Next 循环 结构 ， 其 语法 格式 如 下 : 


For counter = start To end [Step step] 
[statements 
[Exit For 
[statements 

Next [counter] 


口 counter: 必 选 ， 用 做 循环 计数 器 的 数值 变量 ， 该 变量 不 能 是 Boolean 或 数组 元 素 。 该 值 
在 循环 期 间 会 不 断 递 增 或 递减 。 
口 start:， 必 选 ，counter 计数 器 的 初始 值 。 
口 end: 必 选 ，counter 计数 器 的 终止 值 。 
口 Step: 可 选 ，counter 计数 器 的 步 长 ， 未 指定 该 值 则 默认 为 1。 如 果 指 定 步 长 值 ， 则 需要 
按 “Step 步 长 值 ”的 格式 输入 ， 其 中 的 “ 步 长 值 ” 几 个 字 蔡 换 为 实际 值 。 
口 statements: 可 选 ，For Next 结构 中 包含 的 VBA 代码 ， 它 们 将 被 执行 指定 的 次 数 。 
口 Exit For: 可 选 ， 中 途 退 出 For Next 循环 。 
使 用 For Next 循环 结构 需要 将 一 个 变量 指定 为 计数 器 (counter) ， 然 后 为 该 变量 提供 一 个 
初始 值 〈start) 和 一 个 终止 值 (end) ， 通 过 步 长 值 (step) 使 计数 器 从 初始 值 递增 或 递减 到 终 
止 值 。 当 计数 器 的 值 超过 终止 值 或 初始 值 时 ， 结 束 For Next 循环 并 继续 执行 后 面 的 代码 。 


案例 2-31 计算 1 到 100 之 间 的 所 有 整数 之 和 

下 面 的 代码 计算 1 到 100 之 间 的 所 有 整数 之 和 。 在 该 For Next 结构 中 ， 起 始 值 为 1， 终止 
值 为 100。 由 于 参与 计算 的 是 连续 范围 内 的 所 有 整数 ， 因 此 步 长 值 为 1。 

Sub 计算 1 到 100 之 间 的 所 有 整数 之 和 () 


Dim intCounter Rs Integer, intSum Rs Long 
For intCounter = 1 To 100 
intSum = intSum + intCounter 
Next intCounter 
MsgBox "1 到 100 之 间 的 所 有 整数 之 和 是 : " & intSum 
End Sub 


案例 2-32 计算 1 到 100 之 间 的 所 有 偶数 之 和 
下 面 的 代码 计算 1 到 100 之 间 的 所 有 偶数 之 和 ， 由 于 偶数 是 2、4、6、8 这 样 的 数字 ， 两 个 
相 邻 偶数 之 间 的 增 量 为 2， 因 此 本 例 中 需要 将 步 长 值 设 置 为 2， 同 时 需要 将 初始 值 改 为 0， 这 样 
才能 将 数字 2 包含 在 计算 范围 之 内 。 其 他 代码 与 上 例 相 同 。 
Sub 计算 1 到 100 之 间 的 所 有 偶数 之 和 () 

Dim intCounter As Integer, intSum As Long 

For intCounter = 0 To 100 Step 2 

intSum = intSum + intCounter 
Next intCounter 


MsgBox "1 到 100 之 间 的 所 有 偶数 之 和 是 : " & intSum 
End Sub 
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还 可 以 将 For Next 循环 结构 与 fThen 或 Select Case 判断 结构 蔡 套 使 用 。 
案例 2-33 ”计算 指定 范围 内 的 所 有 整数 之 和 
下 面 的 代码 计算 从 数字 1 到 用 户 指定 的 数字 之 间 的 所 有 整数 之 和 。 由 于 用 户 在 InputBox 对 党 
话 框 中 输入 的 内 容 有 可 能 不 是 数字 ， 因 此 需要 先 使 用 下 语句 检测 用 户 输入 的 内 容 ， 如 果 是 数字 
才 会 执行 For Next 结构 中 的 代码 。 将 用 户 输入 的 数字 赋值 给 intNumber 变量 ， 然 后 将 该 变量 中 
的 值 作为 For Next 结构 中 的 终止 值 ， 这 样 就 实现 了 从 1 到 用 户 指定 的 数字 之 间 的 整数 范围 。 
Sub 计算 指定 范围 内 的 所 有 整数 之 和 () 
Dim intCounter As Integer, intNumber As Integer 
Dim lngSum As Long 
intNumber = InputBox (" 请 输入 一 个 整数 : ") 
If IsSNumeric (intNumber) Then 
For intCounter = 1 To intNumber 
lngSum = lngSum + intCounter 
Next intCounter 
MsgBox "1 到 " & intNumber & "之 间 的 整数 之 和 是 : " & lngSum 
End If 
End Sub 
实际 上 不 一 定 必须 完成 所 有 预定 次 数 的 循环 ， 而 是 可 以 在 满足 特定 条 件 时 中 途 退 出 循环 。 
为 了 实现 这 个 目的 , 通常 需要 在 For Next 结构 中 嵌入 fThen 结构 , 并 在 fThen 结构 中 使 用 Exit 
For 语句 。 
案例 2-34 ”达到 指定 值 时 结束 累加 
下 面 的 代码 计算 数字 1 到 10 之 间 的 所 有 整数 之 和 ,但 是 当 累 加 的 总 和 大 于 或 等 于 20 时 就 停 牟 
止 累加 ， 并 显示 达到 该 值 时 累加 到 的 那个 数字 。 本 例 中 的 intSum 变量 存储 累加 后 的 当前 总 和 , 在 
下 语句 中 判断 该 变量 的 值 是 否 大 于 等 于 20, 如 果 是 则 执行 Exit For 语句 退出 当前 的 For Next 循环 。 
最 后 在 对 话 框 中 显示 退出 For Next 循环 时 的 循环 计数 器 的 当前 值 , 该 值 保 存在 intCounter 变量 中 。 
Sub 达到 指定 值 时 结束 累加 () 
Dim intCounter As Integer, intSum As Long 
For intCounter = 1 To 10 
intSum = intSum + intCounter 


If intSum >= 20 Then Exit For 
Next intCounter 


MsgBox "总 和 达到 20 时 所 累加 到 的 数字 是 : " & intCounter 
End Sub 












































































































2.6.4 ”Do Loop 循环 结构 


如 果 无 法 预先 获悉 操作 要 循环 的 次 数 ， 但 是 知道 在 什么 情况 下 开始 或 停止 循环 ， 那 么 可 以 
使 用 Do Loop 循环 结构 。Do Loop 循环 结构 分 为 Do While 和 Do Until 两 种 形式 ， 下 面 将 分 别 对 
这 两 种 形式 进行 介绍 。 

1. Do While 循环 

Do While 用 于 不 知道 要 循环 的 次 数 , 但 是 知道 在 什么 条 件 下 开始 循环 的 情况 。 当 条 件 为 True 
时 执行 循环 ， 条 件 为 False 时 终止 循环 。Do While 分 为 以 下 两 种 形式 。 

形式 一 : 

Do While 要 检测 的 条 件 

条 件 成 立时 执行 的 代码 


Loop 





























。51 。 


Excel VBA 编程 实战 宝典 


形式 二 : 
Do 

条 件 成 立时 执行 的 代码 
Loop While 要 检测 的 条 件 


Do While 两 种 形式 的 区 别 在 于 在 循环 开始 之 前 ， 是 否 先 对 条 件 进行 一 次 判断 。 


| 
案例 2-35 ”使 用 Do While 结构 


下 面 两 段 代 码 检测 用 户 输入 的 用 户 名 是 否 是 “Admin”， 如 果 不 是 则 会 重新 显示 输入 对 话 
框 ， 如 果 是 则 显示 欢迎 信息 。 两 段 代 码 实现 的 功能 相同 ， 但 写法 不 同 。 


Sub DoWhile 结构 一 () 
Dim strUserName Rs String 
Do While LCase (strUserName) <> "admin" 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
Loop 
MsgBox "欢迎 " & strUserName & "登录 系统 ! " 
End Sub 















































Sub DoWhile 结构 二 () 
Dim strUserName Rs String 
Do 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
Loop While LCase (strUserName) <> "admin" 
MsgBox "欢迎 " & strUserName & "登录 系统 ! " 
End Sub 


如 果 和 希望 在 满足 指定 条 件 时 退出 Do While 循环 ， 可 以 使 用 Exit Do 语句 。 

案例 2-36 ”使 用 Exit Do 退出 循环 

在 上 面 的 案例 中 ， 只 有 输入 Admin 〈 大 小 写 形式 均 可 ) 才 会 退出 循环 ， 即 使 单 击 对 话 框 中 
的 “取消 ”按钮 也 无 法 退出 循环 。 正 常情 况 下 应 该 允许 用 户 在 单 击 “ 取 消 ”按钮 时 关闭 对 话 框 
并 退出 程序 ， 因 此 应 该 在 Do While 循环 中 加 入 检测 InputBox 函数 的 返回 值 是 否 为 空 的 判断 条 
件 ， 如 果 返 回 值 为 空 ， 则 使 用 Exit Do 语句 退出 Do While 循环 。 


Sub ExitDo 退出 循环 () 
Dim strUserName As String 
Do 












































strUserName = InputBox (" 请 输入 用 户 名 : ") 
If strUserName = "" Then Exit Do 
Loop While Lcase (strUserName) <> "admin" 
If strUserName <> "" Then MsgBox "欢迎 " & strUserName & "登录 系统 ! " 
End Sub 


提示 : 如 果 在 对 话 框 中 未 输入 任何 内 容 并 单 击 “ 确 定 ”按钮 ， 也 会 执行 Exit Do 语句 退出 
循环 。 

2. Do Until 循环 

Do Until 用 于 不 知道 要 循环 的 次 数 , 但 是 知道 在 什么 条 件 下 停止 循环 的 情况 。 当 条 件 为 False 
时 执行 循环 ， 条 件 为 True 时 终止 循环 。Do Until 分 为 以 下 两 种 形式 : 

形式 一 : 

Do Until 要 检测 的 条 件 

条 件 不 成 立时 执行 的 代码 


Loop 
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形式 二 : 
Do 

条 件 不 成 立时 执行 的 代码 
Loop Until 要 检测 的 条 件 


Do Until 两 种 形式 的 区 别 在 于 在 循环 开始 之 前 ， 是 否 先 对 条 件 进行 一 次 判断 。 
案例 2-37 使 用 Do Until 结构 
下 面 的 两 段 代 码 是 对 前 面 介绍 的 Do While 结构 的 两 个 案例 的 修改 版 ， 这 里 使 用 了 Do Until 

































































Sub DoUntil 结构 一 () 
Dim strUserName Rs String 
Do Until Lcase (strUserName) = "admin" 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
Loop 
MsgBox "欢迎 " & strUserName & "登录 系统 ! " 
End Sub 


Sub DoUntil 结构 二 () 
Dim strUserName Rs String 
Do 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
Loop Until Lcase (strUserName) = "admin" 
MsgBox "欢迎 " & strUserName & "登录 系统 ! " 
End Sub 


与 在 Do While 结构 中 使 用 Exit Do 语句 的 作用 类 似 ， 也 可 以 使 用 Exit Do 语句 在 满足 指定 
条 件 时 退出 Do Until 循环 ， 这 里 不 再 歼 述 。 























2.7 使 用 数组 


普通 变量 只 能 存储 一 个 数据 ， 如 果 希 望 在 一 个 变量 中 同时 存储 多 个 数据 ， 则 需要 使 用 数组 。 
数组 是 一 种 特殊 类 型 的 变量 ， 其 中 可 以 包含 多 个 数据 ， 这 些 数据 称 为 数组 元 素 ， 它 们 共享 同一 
个 变量 名 ， 通 过 使 用 不 同 的 索引 号 来 识别 和 引用 每 个 数组 元 素 。 根 据 不 同 的 划分 方式 可 以 将 数 
组 分 为 不 同 的 类 型 ， 按 维 数 划分 可 以 将 数组 分 为 一 维 数组 、 二 维 数组 和 多 维 数组 ， 按 使 用 方式 
划分 可 以 将 数组 分 为 静态 数组 和 动态 数组 。 本 节 将 介绍 数组 的 声明 、 赋 值 等 基本 操作 ， 还 介绍 
了 动态 数组 的 用 法 。 


2.7.1 数组 的 维 数 
数组 的 维 数 可 以 是 一 维 、 二 维 或 多 维 。 可 以 将 一 维 数组 想象 成 排列 在 一 行 或 一 列 中 的 数据 。 
数据 排列 在 一 行 中 的 数组 称 为 一 维 水 平 〈 横 向 ) 数组， 如 图 2-17 所 示 ， 数 组 元 素 之 间 以 逗号 分 
隔 。 下 面 的 一 维 水 平 数组 包含 6 个 数组 元 素 ， 分 别 为 数字 1、2、3、4、5、6。 
{1,2,3,4,5,6} 
如 果 数 组 元 素 是 文本 ， 则 需要 为 每 个 数组 元 素 添加 一 对 双 引 号 。 下 面 的 一 维 水 平 数组 包含 
3 个 文本 类 型 的 数组 元 素 。 
("星期 一 "， "星期二"， "星期 三 "} 
数据 排列 在 一 列 中 的 数组 称 为 一 维 垂直 〈 纵 向 ) 数组 ， 如 图 2-18 所 示 ， 数 组 元 素 之 间 以 分 
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号 分 隔 。 下 面 的 一 维 垂直 数组 包含 6 个 数组 元 素 ， 分 别 为 数字 1、2、3、4、5、6。 














={1;2;3;4;5;6} 


1 2 3 4 

















onapoNp 


图 2-17 一 维 水 平 数组 图 2-18 ”一 维 垂直 数组 











二 维 数组 中 的 数据 同时 排列 在 行 和 列 中 ， 水 平方 向 上 的 数组 元 素 以 逗号 分 隔 ， 垂 直方 向 上 
的 数组 元 素 以 分 号 分 隔 。 可 以 将 二 维 数组 看 作 是 由 行 和 列 构成 的 表 ， 表 中 的 每 一 个 单元 格 由 行 
和 列 的 编号 组 成 ， 表 中 包含 的 单元 格 数量 就 是 数组 包含 的 元 素 个 数 ， 也 可 以 由 表 中 的 行 数 与 列 
数 的 乘积 得 出 。 下 面 的 二 维 数组 由 2 行 3 列 组 成 , 第 一 行 包含 数字 1、2、3; 第 二 行 包含 数字 4、 
5、6， 该 数组 一 共 包 含 6 个 数组 元 素 。 


























={1,2,3;4,5,6} 


三 维 或 更 多 维 的 数组 很 少 用 到 ， 



































因此 本 书 不 做 过 多 介绍 。 


声明 一 维 数组 的 方法 与 声明 普通 变量 类 似 ， 可 以 使 用 Dim Static、Private、Public 关键 字 ， 


这 些 关键 字 的 区 别 在 于 使 数组 具有 不 同 的 作用 域 。 与 声明 普通 变量 不 同 的 是 ， 需 要 在 声明 的 数 
组 名 称 的 右 侧 包含 一 对 圆 括 号 ， 并 在 其 中 输入 表示 数组 上 界 的 数字 ， 上 界 是 数组 可 以 使 用 的 最 
大 索引 号 ， 即 最 后 一 个 数组 元 素 的 索引 号 。 下 面 的 代码 声明 了 一 个 名 为 Numbers 的 数组 ， 其 上 
界 为 2。 由 于 没有 明确 指定 数组 的 数据 类 型 ， 因 此 默认 为 Variant 类 型 。 














Dim Numbers (2) 





























数组 中 的 所 有 元 素 可 以 是 同一 种 数据 类 型 ， 也 可 以 是 不 同 的 数据 类 型 。 如 果 像 上 面 那样 将 
数组 声明 为 Variant 数据 类 型 ， 那 么 数组 中 的 元 素 可 以 是 不 同类 型 的 数据 。 也 可 以 在 声明 数组 时 
明确 指定 一 种 数据 类 型 ， 这 样 数组 中 的 元 素 都 将 是 该 种 数据 类 型 。 下 面 的 代码 将 上 面 的 数组 


明 为 Integer 数据 类 型 : 


Dim Numbers (2) As Integer 









































也 可 以 像 声明 普通 变量 那样 ， 为 数组 添加 表示 数据 类 型 的 前 级 。 为 了 与 普通 变量 区 分 ， 可 
以 在 数据 类 型 前 缀 之 前 使 用 小 写字 母 a 来 表示 变量 是 数组 ， 下 面 的 数组 名 称 中 的 字母 a 表示 数 
组 (Array) ，int 表示 Integer 数据 类 型 。 


Dim aintNumbers (2) As Integer 




















要 引用 一 个 数组 元 素 ,只 需 使 用 











元 素 。 


aintNumbers (1) 























数组 名 + 索引 号 。 下 面 的 代码 引用 数组 中 索引 号 为 1 的 数组 





默认 情况 下 ， 数 组 元 素 的 索引 号 从 0 开始 而 不 是 1， 因 此 前 面 声 明 的 aintNumbers(2) 数 组 包 


括 以 下 3 个 元 素 : 


aintNumbers (0) 
aintNumbers (1) 
aintNumbers (2) 


如 果 希 望 数组 元 素 的 索引 号 从 1 开始 ， 可 以 使 用 以 下 两 种 方法 : 


口 声明 数组 时 使 用 To 关键 字 ， 
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显 式 指定 数组 的 下 界 和 上 界 ， 如 下 所 示 : 
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Dim aintNumbers (1 To 3) As Integer 


口 在 模块 项 部 的 声明 部 分 输入 下 面 的 语句 , 在 该 模块 的 任意 过 程 中 声明 的 数组 的 下 界 默认 
都 变 为 1。 
Option Base 1 
可 以 使 用 VBA 内 置 的 LBound 和 UBound 函数 自动 检查 数组 的 下 界 和 上 界 。 如 果 模 块 项 部 
的 声明 部 分 没有 使 用 Option Base 1 语句 ， 在 声明 aintNumbers 数组 时 只 是 指定 了 上 界 ， 那 么 下 
本 的 代码 将 会 检测 到 数组 的 下 界 为 0， 上 界 为 2: 
Sub 检查 数组 的 上 下 界 () 
Dim aintNumbers (2) As Integer 
MsgBox LBound (aintNumbers 


MsgBox UBound (aintNumbers) 
End Sub 


如 果 模 块 顶部 的 声明 部 分 使 用 了 Option Base 1 语句 ， 在 声明 aintNumbers 数组 时 仍然 只 是 
指定 了 上 界 ， 那 么 下 面 的 代码 将 会 检测 到 数组 的 下 界 为 1， 上 界 为 2: 


Option Explicit 
Option Base 1 
































Sub 检查 数组 的 上 下 界 () 
Dim aintNumbers (2) As Integer 
MsgBox LBound (aintNumbers 
MsgBox UBound (aintNumbers 
End Sub 


使 用 LBound 和 UBound 函数 可 以 自动 计算 出 一 个 数组 包含 的 元 素 总 数 ， 而 不 必 在 乎 是 否 
使 用 了 Option Base 1 语句 ， 以 及 声明 数组 时 是 否 同时 指定 了 上 界 、 下 界 。 
案例 2-38 ”计算 数组 包含 的 元 素 总 数 [op 
下 面 的 代码 用 于 计算 aintNumbers 数组 包含 的 元 素 总 数 , 通过 使 用 LBound 和 UBound 函数 Re : 
可 以 避免 由 Option Base 1 语句 和 数组 声明 方式 带 来 的 上 界 、 下 界 的 不 确定 性 。 可 以 任意 改变 这 四 
个 数组 的 声明 方式 ， 包 括 改变 数组 的 上 界 、 使 用 To 关键 字 显 式 指 定 上 下 界 、 在 模块 顶部 的 声 
明 部 分 添加 Option Base 1 语句 ， 该 段 代码 都 能 正确 计算 出 数组 包含 的 元 素 总 数 。 
Sub 计算 数组 包含 的 元 素 总 数 () 


Dim aintNumbers (2) As Integer 
Dim intItems As Integer 
intItems = UBound (aintNumbers) - LBound (aintNumbers) + 1 
MsgBox intItems 
End Sub 


2.7.3 ”声明 二 维 数组 


声明 二 维 数组 的 方法 与 声明 一 维 数组 类 似 ， 但 是 比 一 维 数组 多 了 一 个 维度 ， 因 此 在 声明 数 “ 
组 时 ， 需 要 在 数组 名 称 右 侧 的 圆 括号 中 输入 表示 两 个 维度 上 界 的 数字 ， 第 一 个 数字 表示 数组 第 
一 维 的 上 界 ， 第 二 个 数字 表示 数组 第 二 维 的 上 界 ， 两 个 数字 之 间 以 逗号 分 隔 。 
下 面 的 代码 声明 了 一 个 二 维 数组 ,数组 第 一 维 的 上 界 是 2, 第 二 维 的 上 界 是 3。 如 果 没 有 在 
模块 顶部 的 声明 部 分 使 用 语句 ， 那 么 该 数组 两 个 维度 的 下 界 都 是 0， 该 数组 共 包含 3X4=12 个 
元 素 。 
Dim aintNumbers (2, 3) As Integer 
在 声明 二 维 数组 时 也 可 以 使 用 To 关键 字 ， 显 式 指定 数组 每 一 维 的 上 界 、 下 界 ， 如 下 所 示 : 


Dim aintNumbers (1 To 3, 1 To 6) As Integer 
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当 引 用 二 维 数组 中 的 元 素 时 ， 需 要 同时 使 用 两 个 维度 上 的 索引 号 ， 与 使 用 x 坐标 和 >] 坐标 
坐标 定位 一 个 点 类 似 。 可 以 将 二 维 数组 中 的 第 一 维 想象 成 行 ， 将 第 二 维 想象 成 列 。 下 面 的 代码 
将 数字 100 赋值 给 aintNumbers 数组 中 位 于 第 1 行 第 2 列 的 元 素 ， 这 里 假设 在 模块 顶部 的 声明 
部 分 没有 使 用 Option Base 1 语句 。 

aintNumbers(0, 1) = 100 

与 一 维 数组 类 似 ， 也 可 以 使 用 LBound 和 UBound 函数 检查 二 维 数组 的 下 界 和 上 界 。 由 于 二 维 
数组 包含 两 个 维度 ， 因 此 必须 在 LBound 和 UBound 函数 的 第 二 参数 中 指定 要 检查 的 是 哪个 维度 。 


案例 2-39 检查 二 维 数 组 每 一 维 的 上 下 界 

下 面 的 代码 在 对 话 框 中 显示 了 aintNumbers 数组 第 一 维和 第 二 维 的 下 界 和 上 界 ， 运 行 结果 
如 图 2-19 所 示 。 

Sub 检查 二 维 数组 每 一 维 的 上 下 界 () 


Dim aintNumbers (1 To 2, 3) Rs Integer, strMsg As String 
strMsg = "第 一 维 的 下 界 是 : " & LBound(aintNumbers, 1) & vbCrLf 
strMsg = strMsg & "第 一 维 的 上 界 是 : " & UBound (aintNumbers, 1) & vbCrLf 
strMsg = strMsg & "第 二 维 的 下 界 是 : " & LBound (aintNumbers, 2) & vbCrLf 
strMsg = strMsg & "第 二 维 的 上 界 是 : " & UBound (aintNumbers，2) 
MsgBox strMsg 

End Sub 
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第 一 维 的 下 界 是 : 
第 一 维 的 上 界 是 
第 二 维 的 下 界 是 
第 二 维 的 上 界 旦 
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图 2-19 检查 二 维 数组 每 一 维 的 上 下 界 
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2.7.4 ”为 数组 赋值 


为 数组 赋值 与 为 普通 变量 赋值 类 似 ， 需 要 在 等 号 的 左 侧 输入 数组 名 称 ， 在 等 号 的 右 侧 输入 
要 赋 的 值 。 与 普通 变量 不 同 的 是 ， 由 于 数组 包含 多 个 元 素 ， 因 此 在 赋值 时 需要 单独 为 数组 中 的 
每 一 个 元 素 分 别 赋值 。 下 面 的 代码 为 aintNumbers 数组 中 的 每 一 个 元 素 赋值 了 一 个 数字 : 

Sub 为 数组 赋值 () 


Dim tt As Integer 
aintNumbers (0) = 
aintNumbers (1) = 
aintNumbers (2) = 3 

End Sub 


于 数组 元 素 是 通过 连续 的 索引 号 来 识别 和 引用 的 ， 因 此 可 以 利用 循环 结构 批量 为 数组 元 
素 赋值 。 对 于 上 面 的 案例 而 言 ， 可 以 使 用 For Next 循环 结构 来 为 数组 批量 赋值 。 当 数组 中 包含 
大 量 元 素 时 ， 利 用 循环 可 以 明显 加 快 赋值 的 速度 。 

案例 2-40 ”利用 循环 结构 批量 为 数组 赋值 

下 面 的 代码 是 对 上 一 个 案例 进行 修改 后 的 版 本 , 使 用 VBA 内 置 函 数 LBound 和 UBound 自 
动 检查 数组 的 下 界 和 上 界 ， 以 便 作为 For Next 循环 计数 器 的 初始 值 和 终止 值 ， 从 而 实现 批量 赋 
值 的 目的 。 
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Sub 利用 循环 结构 批量 为 数组 赋值 () 
Dim aintNumbers (2) As Integer, intIndex As Integer 
Dim strMsg As String 
For intIndex = LBound (aintNumbers) To UBound (aintNumbers) 
aintNumbers (intIndex) = intIndex + 1 
Next intIndex 
End Sub 


为 数组 赋值 还 可 以 使 用 VBA 内 置 的 Array 函数 。 使 用 该 函数 可 以 创建 一 个 数据 列表 ， 并 将 
该 列表 赋值 给 一 个 Variant 数据 类 型 的 变量 , 从 而 创建 一 个 包含 列表 中 所 有 数据 的 数组 并 自动 完 
成 赋值 操作 。 下 面 的 代码 使 用 Array 函数 将 表示 文件 名 的 3 个 文本 赋值 给 aFileNames 变量 ， 该 
变量 的 数据 类 型 为 Variant。 

aFileNames = RARrray(" 一 季度 "，" 二 季度 "，" 三 季度 ") 

注意 : 如 果 直 接 使 用 Array 函数 ， 它 所 创建 的 数组 的 下 界 受 Option Base 1 语句 的 限制 。 但 
是 如 果 使 用 类 型 库 来 限定 Array 函数 ， 比 如 以 VBA.Array 这 种 形式 输入 Array 函数 ， 此 时 由 该 
通 数 创建 的 数组 则 不 受 Option Base 1 语句 的 限制 。 

使 用 Array 函数 创建 并 赋值 一 个 数组 后 ， 可 以 使 用 For Next 循环 结构 操作 这 个 数组 。 


案例 2-41 操作 Array 函数 创建 的 数组 

下 面 的 代码 首先 使 用 Array 函数 创建 了 一 个 包含 3 个 文件 名 的 数组 ， 然 后 在 For Next 循环 
结构 中 ， 通 过 Dir 函数 检查 指定 路 径 中 的 这 3 个 文件 是 否 存在 。 如 果 Dir 函数 的 返回 值 为 空 字 
符 串 ， 则 说 明 指定 文件 不 存在 ， 此 时 会 在 对 话 框 中 显示 文件 不 存在 的 提示 信息 。 

Sub 操作 Array 函数 创建 的 数组 () 


Dim aFileNames As Variant, intIndex As Integer 
aFileNames = Array ("一 季度 "，" 二 季度 "，" 三 季度 ") 
For intIndex = LBound(aFileNames) To UBound (aFileNames) 
































If Dir("C:\" & aFileNames (intIndex) & ".txt") = "" Then 
MsgBox aFileNames (intIndex) & ".txt 文件 不 存在 " 
End If 
Next intIndex 


End Sub 
注意 : 如 果 声 明 的 数组 要 使 用 Array 函数 进行 赋值 ， 那 么 该 数组 必须 声明 为 Variant 数据 类 
型 ， 而 且 在 数组 名 称 右 侧 不 能 包含 一 对 圆 括号 及 上 界 。 


2.7.5 ”使 用 动态 数组 


前 面 介绍 的 数组 在 声明 时 就 指定 了 数组 元 素 的 个 数 ， 这 种 数组 是 静态 数组 ， 在 程序 运行 期 
间 不 能 改变 静态 数组 的 大 小 。 但 是 在 很 多 实际 应 用 中 ， 在 程序 运行 前 无 法 确定 数组 包含 的 元 素 
个 数 ， 此 时 就 需要 使 用 动态 数组 技术 。 

动态 数组 与 静态 数组 在 声明 方式 上 的 唯一 区 别 ， 是 在 声明 动态 数组 时 不 需要 在 圆 括 号 中 指定 
数组 的 上 界 ， 但 是 必须 保留 一 对 空 括号 。 下 面 的 代码 声明 了 一 个 名 为 aintNumbers 的 动态 数组 。 

Dim aintNumbers() As Integer 

在 程序 运行 过 程 中 根据 实际 情况 ， 使 用 ReDim 语句 指定 动态 数组 的 上 界 。 

案例 2-42 ”创建 动态 数组 
下 面 的 代码 首先 声明 了 一 个 没有 上 界 的 动态 数组 ， 在 程序 运行 后 对 数组 重新 定义 ， 将 用 户 
输入 的 数字 指定 为 动态 数组 的 上 界 。 使 用 ISNumeric 函数 检查 用 户 输入 的 内 容 是 否 是 数字 ， 以 
避免 出 现 运行 时 错误 。 

Sub 创建 动态 数组 () 
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Dim aintNumbers () As Integer, strUBound As String 
strUBound = InputBox (" 请 输入 数组 的 上 界 : ") 
If IsNumeric (strUBound) Then 
ReDim aintNumbers (StrUBound) 
MsgBox "重新 定义 后 的 数组 上 界 是 : " & UBound (aintNumbers) 
End If 
End Sub 
如 果 在 程序 中 需要 多 次 使 用 ReDim 语句 定义 数组 的 大 小 ， 那 么 在 下 一 次 使 用 ReDim 语句 
时 会 自动 清除 数组 中 包含 的 数据 。 如 果 需 要 在 重新 定义 数组 的 大 小 时 保留 数组 中 的 数据 ， 则 可 
以 在 ReDim 语句 中 使 用 Preserve 关键 字 。 
四 。 案例 2-43 重新 定义 动态 数组 时 保留 原 有 数据 
: 下 面 的 代码 在 程序 开头 声明 了 一 个 动态 数组 ， 在 程序 运行 后 定义 该 数组 的 上 界 为 2， 然 后 
使 用 For Next 循环 结构 为 数组 中 的 元 素 赋值 ,之 后 在 对 话 框 中 显示 索引 号 为 1 的 数组 元 素 的 值 ， 
此 时 为 2。 再 次 使 用 ReDim Preserve 语句 定义 该 数组 的 上 界 为 3, 重新 在 对 话 框 中 显示 索引 号 为 
1 的 数组 元 素 的 值 ， 仍 为 原来 的 值 2。 
Sub 重新 定义 动态 数组 时 保留 原 有 数据 () 


Dim aintNumbers () As Integer, intIndex Rs Integer 
ReDim aintNumbers (2) 
For intIndex = LBound(aintNumbers) To UBound (aintNumbers) 
aintNumbers (intIndex) = intIndex + 1 
Next intIndex 
MsgBox aintNumbers (1) 
ReDim Preserve aintNumbers (3) 
MsgBox aintNumbers (1) 
End Sub 


如 果 将 上 面 代码 中 第 二 次 使 用 ReDim 语句 中 的 Preserve 关键 字 删 除 , 那么 第 二 次 在 对 话 框 
中 显示 索引 号 为 1 的 数组 元 素 的 值 时 则 变 为 默认 值 0 而 不 是 原来 的 2， 说 明 在 不 使 用 Preserve 
关键 字 重 新 定义 数组 时 会 清除 数组 中 原 有 的 数据 。 

对 于 二 维 数组 或 多 维 数组 而 言 , 在 ReDim 语句 中 使 用 Preserve 关键 字 只 能 改变 数组 最 后 一 
维 的 大 小 ， 并 且 不 能 改变 数组 的 维 数 。 





































































2.8 错误 处 理 


即使 再 熟悉 VBA 编程 的 开发 人 员 , 也 无 法 避免 在 编写 的 代码 中 不 包含 任何 错误 。 为 了 在 错 
误 发 生 时 可 以 为 最 终 用 户 提供 有 指导 意义 的 信息 ， 开 发 人 员 应 该 预先 考虑 到 在 程序 运行 期 间 ， 
由 于 客观 条 件 或 用 户 人 为 原因 导致 程序 可 能 出 现 的 问题 ， 然 后 编写 应 对 这 些 问 题 的 错误 处 理 程 
序 。 本 节 将 介绍 VBA 包含 的 三 种 错误 类 型 、 代 码 调试 工具 以 及 处 理 运行 时 错误 的 方法 。 


2.8.1 错误 类 型 

VBA 包 合 的 错误 分 为 三 类 : 编译 错误 、 运 行 时 错误 、 地 辑 错误 。 编 译 错误 通常 在 运行 代码 
前 就 能 被 VBA 检测 出 来 ， 运 行 时 错误 只 有 在 运行 代码 的 过 程 中 才能 被 发 现 ， 而 逻辑 错误 可 能 
很 难 被 发 现 。 本 节 将 对 这 三 种 错误 类 型 进行 详细 介绍 。 

1. 编译 错误 

编译 错误 是 指 代码 中 存在 不 符合 VBA 语法 规则 的 部 分 。 比 如 将 VBA 的 关键 字 、 语 句 、 函 
数 写 错 ， 又 比如 将 Dim 语句 写成 Din， 或 者 在 使 用 fThen 判断 结构 时 没有 输入 Then 关键 字 或 
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End If 语句 。 在 按 下 Enter 键 后 ，VBA 会 自动 弹出 编译 错误 的 提示 信息 ， 如 图 2-20 所 示 。 只 要 
将 错误 的 部 分 改 为 符合 语法 规则 的 正确 形式 ， 就 可 以 解决 编译 错误 。 
性 弄 坛 ssm - 重洋 1 (i) ENSaED 
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图 2-20 编译 错误 
2. 运行 时 错误 
运行 时 错误 是 指 代码 的 编写 符合 VBA 的 语法 规则 , 但 是 在 程序 运行 时 出 现 的 各 种 问题 , 它 
是 程序 出 现 的 最 主要 的 错误 类 型 。 导 致 运行 时 错误 的 主要 原因 是 程序 试图 执行 无 效 的 操作 。 下 
列 出 了 一 些 导致 运行 时 错误 的 常见 原因 : 
口 将 0 作为 除法 运算 中 的 分 母 。 
口 将 Null 值 传递 给 无 法 处 理 它 的 函数 。 在 从 文件 或 数据 库 等 不 同 来 源 获取 来 的 数据 中 可 
能 会 包含 无 效 的 Null 值 , 在 将 包含 Null 值 的 数据 作为 参数 传递 给 VBA 的 某 些 内 置 函数 
时 ， 将 会 产生 运行 时 错误 。 
口 对 不 存在 或 当前 处 于 不 可 用 状态 的 对 象 执行 操作 。 例如， 对 不 存在 的 文件 或 文件 夹 执 行 
打开 、 移 动 、 复 制 、 删 除 等 操作 ， 或 者 对 不 可 用 的 驱动 器 执行 操作 ， 都 会 产生 运行 时 错 
误 。 如 图 2-21 所 示 是 在 删除 一 个 不 存在 的 文件 时 显示 的 运行 时 错误 提示 信息 。 






























































Microsoft Visual Basic 
运行 时 锚 误 “53 
文件 未 找到 
结束 四) 者 助 () 





图 2-21 删除 不 存在 的 文件 时 产生 的 运行 时 错误 


可 以 在 程序 中 预先 编写 防御 性 代码 ， 以 便 在 出 现 这 些 问 题 时 具备 相应 的 处 理 能 力 。 下 面 给 
出 了 针对 以 上 3 种 情况 的 解决 方法 : 

口 对 于 第 一 种 情况 ， 可 以 在 执行 除法 运算 前 ， 先 使 用 下 Then 判断 结构 检查 除数 是 否 为 0， 
如 果 不 为 0 则 执行 除法 计算 ， 否 则 向 用 户 发 出 类 似 “ 除 数 不 能 为 零 ” 的 提示 信息 。 
口 对 于 第 二 种 情况 ， 可 以 使 用 VBA 的 内 置 函数 ISNull 检查 作为 参数 传递 的 数据 是 否 包含 
Null 值 ， 如 果 是 则 向 用 户 发 出 警告 信息 ， 如 果 不 是 则 将 其 作为 参数 传递 给 指定 的 函数 。 
口 对 于 第 三 种 情况 ， 需 要 先 使 用 VBA 的 错误 处 理 语句 尝试 捕获 错误 ， 如 果 发 生 了 错误 ， 
则 使 用 错误 处 理 程序 解决 发 生 的 错误 。 
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3. 逻辑 错误 

与 前 两 类 错误 不 同 ， 逻 辑 错误 在 程序 运行 过 程 中 通常 不 会 产生 错误 提示 信息 ， 因 此 并 不 会 
影响 程序 的 正常 运行 ， 但 是 却 会 导致 不 正确 的 程序 运行 结果 。 逮 辑 错误 具有 一 定 的 隐蔽 性 ， 通 
常 只 有 仔细 检查 和 测试 代码 ， 才 能 找到 并 解决 逻辑 错误 。 


2.8.2 ”调试 代码 


如 果 程序 运行 过 程 中 产生 运行 时 错误 ， 则 会 弹出 运行 时 错误 的 对 话 框 ， 其 中 显示 了 错误 编 
号 和 简要 说 明 。 如 果 单 击 “ 调 试 ”按钮 ，VBA 会 将 导致 错误 的 代码 标记 为 黄色 ， 代 码 行 的 左 侧 
还 会 显示 一 个 箭头 ， 如 图 2-22 所 示 。VBE 窗口 顶部 的 标题 栏 会 显示 “中 断 ” 字 样 ， 程 序 此 时 处 
于 中 断 模 式 ， 可 在 该 模式 下 修改 导致 问题 的 代码 。 
修正 错误 的 代码 后 ， 可 以 单 击 “标准 ” 或 “调试 ”工具 栏 中 的 “继续 ”按钮 或 按 F5 键 ， 
从 出 错 的 代码 处 继续 运行 程序 ， 以 检查 是 否 已 经 解决 问题 。 也 可 以 单 击 “标准 ” 或 “调试 ” 
工具 栏 中 的 “重新 设置 ”按钮 ， 再 单 击 “ 运 行 子 过 程 /用 户 窗 体 ”按钮 或 按 F5 键 从头 开 始 运 
行程 序 。 

如 果 怀 疑 某 条 语句 可 能 是 导致 问题 的 原因 , 则 可 以 将 这 条 语句 设置 为 断 点 , 在 程序 运行 
后 , 会 自动 在 断 点 位 置 停止 并 进入 中 断 模式 。 要 设置 断 点 ， 只 需 在 代码 窗口 中 单 击 要 设置 断 
点 的 语句 的 左 侧 位 置 , 设置 了 断 点 的 语句 会 自动 高 亮 显示 ,并 在 其 左 侧 显 示 一 个 圆 点 ， 如 图 
2-23 所 示 。 
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图 2-22 在 中 断 模式 下 修复 错误 的 代码 图 2-23 设置 断 点 
提示 : 可 以 在 代码 中 使 用 Stop 语句 实现 断 点 功能 ， 程 序 运 行 到 Stop 语句 会 自动 进入 中 断 
模式 。 
为 了 监视 程序 运行 过 程 中 的 某 个 变量 、 表 达 式 或 属性 的 值 ， 可 以 单 击 菜单 栏 中 的 “调试 ”| 


“添加 监视 ”命令 ， 打 开 如 图 2-24 所 示 的 “添加 监视 ”对 话 框 ， 在 “表达 式 ” 文 本 框 中 输入 要 
监视 的 内 容 。 
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直达 式 (E) 

Fen | 
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过 程 (p): test z=] 00 | 
模块 on): | 模块 1 | 
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监视 类 型 

他 监视 表达 式 (W) 

个 当 监 视 值 为 真 时 中 断 (T) 
个 当 监 视 值 改变 时 中 断 (C) 














图 2-24 “添加 监视 ”对 话 框 
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单 击 “ 确 定 ”按钮 ， 监 视窗 口 出 现在 VBE 窗口 的 底部 ， 如 图 2-25 所 示 。 在 程序 运行 过 程 
中 ， 监 视窗 口中 的 该 表达 式 的 值 会 发 生变 化 ， 通 过 观察 其 变化 ， 可 以 有 助 于 找到 出 错 的 原因 。 
侈 Microsoft Visual Basic for Applications - 测 过 xlsm [中 断 ] - [楼 块 1 (代码 )] 一 口 兴 
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MsgBox varjfall 
IE Tsjll (varliull) Then 
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End If 
nd Sub 
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图 2-25 使 用 监视 窗口 帮助 查找 代码 出 错 原 


在 调试 代码 时 , 还 可 以 使 用 F8 键 在 当前 过 程 中 逐 行 执行 每 一 条 语句 ， 以 观察 程序 的 运行 状 
况 并 尽快 发 现 出 错 的 地 方 。 


2.8.3 ”处 理 运行 时 错误 


错误 处 理 的 主要 任务 是 处 理 运 行 时 错误 ， 需 要 预先 考虑 到 程序 运行 过 程 中 可 能 会 发 生 的 错 
误 ， 然 后 编写 解决 这 些 错误 的 代码 并 将 其 嵌入 到 正常 的 程序 中 。VBA 提供 了 以 下 几 个 错误 处 理 
工具 : 

口 On Error Goto Line: 该 语句 用 于 在 错误 发 生 时 将 程序 的 执行 转 到 由 Line 指定 的 位 置 ， 

并 开始 执行 错误 处 理 程序 。 换 句 话说，Line 标志 着 错误 处 理 程序 的 起 点 。Line 表示 一 个 
标签 ， 可 以 是 任何 有 效 的 字符 串 ， 标 签 的 右 侧 必 须 包含 一 个 冒号 。 

口 On Error GoTo 0: 该 语句 用 于 关闭 之 前 的 错误 处 理 程序 ， 这 意味 着 如 果 在 该 语句 之 后 的 

代码 中 出 现 运行 时 错误 ，VBA 会 正常 显示 运行 时 错误 的 提示 信息 并 停止 程序 的 运行 。 

口 On Error Resume Next: 该 语句 用 于 关闭 错误 捕获 监控 功能 ， 这 意味 着 在 该 语句 之 后 
出 现 的 所 有 运行 时 错误 都 会 被 忽略 ， 而 不 会 显示 任何 提示 信息 。 使 用 该 语句 后 ， 当 
程序 中 出 现 运行 时 错误 时 ， 程 序 会 忽略 这 个 错误 ， 并 在 出 错 语 句 的 下 一 条 语句 继续 
执行 。 
口 Err 对 象 : Err 对 象 存储 着 最 近 一 次 出 现 的 运行 时 错误 的 相关 信息 ， 可 以 通过 检查 该 对 象 
中 的 内 容 来 判断 程序 是 否 出 现 了 运行 时 错误 。Err 对 象 的 Number 属性 包含 一 个 错误 号 ， 

可 以 通过 检查 该 属性 的 值 来 确定 是 否 发 生 了 特定 类 型 的 运行 时 错误 。 如 果 希 望 获得 错误 
的 描述 信息 ， 可 以 使 用 Err 对 象 的 Description 属性 , 但 是 开发 人 员 通 常会 在 错误 处 理 程 
序 中 自 定义 错误 的 提示 信息 。 由 于 Err 对 象 是 全 局 范围 的 固有 对 象 ， 因 此 在 使 用 前 不 需 
要 创建 该 对 象 的 实例 。 

可 以 使 用 以 下 步骤 创建 错误 处 理 程序 : 

(1) 在 可 能 导致 错误 的 语句 之 前 添加 On Error Goto Line 语句 ， 使 用 实际 的 标签 替换 Line。 

(2) 在 可 能 导致 错误 的 语句 之 后 添加 On Error Goto 0 语句 ， 关 闭 之 前 处 于 活动 状态 的 错误 
处 理 程序 。 

(3) 在 当前 过 程 中 的 正常 程序 的 末尾 添加 Exit Sub 或 Exit Function 语句 ， 以 免 在 未 发 生 错 
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误 时 仍然 执行 错误 处 理 程序 。 
(4) 在 Exit Sub 或 Exit Function 语句 的 下 一 行 添加 一 个 标签 ， 标 签 右 侧 必须 包含 一 个 冒号 ， 








标签 名 必须 与 前 面 的 
(5) 在 标签 的 下 














On Error Goto Line 语句 中 设置 的 Line 相同 。 





一 行 编写 错误 处 理 程序 的 代码 。 可 以 使 用 VBA 支持 的 流程 控制 结构 如 If 


Then 来 判断 不 同 的 情况 ， 以 便 执 行 不 同 的 错误 处 理 操作 。 在 错误 处 理 程序 中 通常 需要 根据 希望 
实现 的 操作 来 使 用 Resume Next 或 Resume 语句 : 如 果 希 望 在 错误 处 理 完成 后 重新 执行 出 错 的 


























那 条 语句 ， 则 需要 使 
条 语句 ， 则 需要 使 用 




















Resume 语句 ;如果 要 在 错误 处 理 完成 后 继续 执行 出 错 语句 之 后 的 下 一 
Resume Next 语句 。 如 果 希 望 在 错误 处 理 完成 后 执行 特定 的 语句 ， 而 不 是 














出 错 语句 或 出 错 语句 的 下 一 条 语句 ， 那 么 可 以 使 用 Resume Line 语句 ，Line 指明 了 要 执行 的 特 





定语 句 的 标签 。 


注意 : 如 果 在 程序 中 添加 了 多 个 错误 处 理 程序 ， 那 么 必须 确保 每 个 错误 处 理 程序 都 以 
Resume Next、Exit Sub 或 Exit Function 语句 结束 ， 以 免 当 前 的 错误 处 理 程 序 执行 结束 后 ， 又 继 
续 执行 其 后 的 错误 处 理 程序 。 














下 面 通过 几 个 案例 讲解 错误 处 理 程序 的 实际 应 用 。 
案例 2-44 ”捕获 并 处 理 运 行 时 错误 





























下 面 的 代码 使 用 

















户 在 对 话 框 中 输入 的 数字 作为 数组 的 上 界 来 创建 动态 数组 。 如 果 用 户 输 


入 的 不 是 一 个 有 效 的 数字 ,那么 在 使 用 ReDim 语句 定义 动态 数组 时 将 会 出 现 运行 时 错误 ， 此 时 
会 被 错误 处 理 程序 捕获 ， 从 而 执行 ErrTrap 标签 位 置 上 的 错误 处 理 代码 。 由 于 使 用 了 Resume 语 
句 ， 因 此 会 在 发 出 重新 输入 的 提示 信息 后 ， 重 新 显示 InputBox 对 话 框 要 求 用 户 重新 输入 数组 的 
上 界 。 只 有 输入 了 有 效 数 字 ， 才 会 执行 第 一 个 MsgBox 函数 所 在 的 语句 并 结束 当前 过 程 ， 和 否则 
会 一 直 重复 显示 输入 对 话 框 。 














Sub 错误 处 理 () 


Dim aNumbers 





























() As Integer 


On Error GoTo ErrTrap 
ReDim aNumbers (InputBox ("请 输入 数组 的 上 界 : ") ) 
MsgBox "创建 的 动态 数组 的 上 界 是 : " & UBound (aNumbers) 


Exit Sub 
ErrTrap: 


MsgBox "输入 的 内 容 不 是 一 个 有 效 数字 ， 请 重新 输入 ! " 


Resume 
End Sub 

















错误 之 后 ， 通 过 判断 
Err.Number 不 等 于 0， 
Sub 错误 处 理 () 


案例 2-45 ”使 用 Err 对 象 的 Number 属性 判断 是 否 出 现 运 行 时 错误 
下 面 的 代码 是 上 一 案例 的 另 一 种 处 理 方式 ， 它 没有 使 用 错误 处 理 标 签 ， 而 是 在 忽略 了 所 有 


Err 对 象 的 Number 属性 是 否 为 0， 来 判断 是 否 出 现 运行 时 错误 。 如 果 
则 说 明 程序 出 错 ， 从 而 给 出 提示 信息 并 退出 过 程 。 


Dim aNumbers() As Integer 
On Error Resume Next 
ReDim aNumbers (InputBox ("请 输入 数组 的 上 界 : ") ) 
If Err.Number = 0 Then 
MsgBox "创建 的 动态 数组 的 上 界 是 : " & UBound (aNumbers) 


Else 


MsgBox "输入 的 内 容 不 是 一 个 有 效 数字 ! " 


End If 
End Sub 
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案例 2-46 在 错误 处 理 中 使 用 On Error Resume Next 语句 
面 的 代码 使 用 On Error Resume Next 语句 忽略 了 所 有 运行 时 错误 ， 即 使 要 删除 的 文件 不 
存在 而 导致 运行 时 错误 ， 仍 会 毫 无 提示 地 显示 提示 信息 对 话 框 ， 因 为 文件 是 否 存在 并 不 重要 ， 
毕竟 这 才 是 该 有 的 逻辑 。 
Sub 错误 处 理 () 
Dim strFile As String 
strFile = "C:\ 销 量 情况 .txt" 


On Error Resume Next 
Kill strFile 


MsgBox "文件 不 存在 或 已 被 删除 ! " 
End Sub 









































2.9 规范 化 编写 代码 


为 了 让 编写 的 VBA 代码 易于 阅读 和 理解 , 我 们 应 该 有 意识 地 使 代码 规范 化 。 规范 化 代码 包 
括 多 个 方面 ， 例 如 使 用 变量 之 前 必须 先进 行 声明 、 使 用 流程 控制 结构 时 应 该 保持 缩 进 格式 、 为 
代码 添加 注释 等 。 编 写 规范 化 的 代码 还 可 以 减少 很 多 不 必要 的 错误 发 生 。 本 节 将 介绍 规范 化 编 
写 代码 需要 遵循 的 4 条 规则 。 


2.9.1 强制 变量 声明 


| 
变量 名 拼写 错误 会 导致 很 多 不 易 察觉 的 问题 ， 如 果 在 使 用 变量 前 先进 行 声 明 ， 则 可 以 避免 
很 多 不 必要 的 错误 。 为 了 在 工程 中 的 任何 位 置 都 强制 变量 声明 ， 需 要 将 下 面 的 语句 添加 到 每 个 
模块 顶部 的 声明 部 分 。 以 后 在 使 用 未 声明 的 变量 时 ， 将 会 自动 显示 “变量 未 定义 ”的 提示 信息 。 


Option Explicit 


2.9.2 ”使 用 缩 进 格式 


在 编写 代码 时 使 用 适当 的 缩 进 格式 ， 可 以 让 代码 易于 阅读 和 理解 ， 也 便于 检查 和 排除 代码 
中 的 错误 。 尤 其 在 代码 中 互相 嵌 套 判断 结构 和 循环 结构 时 ， 正 确 的 缩 进 格式 可 以 让 不 同 层次 的 
结构 变 得 清晰 直观 。 在 下 面 的 代码 中 包含 了 两 个 嵌 套 的 IThen 结构 , 使 用 正确 的 缩 进 格式 可 以 
很 容易 分 辨 出 哪些 代码 属于 内 层 的 IfThen 结构 。 
Sub 验证 用 户 名 () 
Dim strUserName Rs String 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
If strUserName = "Admin" Then 
MsgBox "你 好 ， 管理 员 " 
Else 
If strUserName = "User" Then 
MsgBox "你 好 ， 普 通用 户 " 
Else 
MsgBox "你 好 " & strUserName 
End If 
End If 
End Sub 


如 果 不 使 用 缩 进 格式 , 那么 代码 可 能 像 下 面 这 样 , 很 难 分 辨 每 个 Then 结构 的 开始 和 结束 
位 置 ， 使 代码 变 得 混乱 而 复杂 。 
Sub 验证 用 户 名 () 
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Dim strUserName Rs String 
strUserName = InputBox (" 请 输入 用 户 名 : ") 
If strUserName = "Admin" Then 
MsgBox "你 好 ， 管 理 员 " 
Else 
If strUserName = "User" Then 
MsgBox "你 好 ， 普 通用 户 " 
Else 
MsgBox "你 好 " & strUserName 
End If 
End If 

End Sub 


2.9.3 将 长 代码 分 成 多 行 


如 果 代码 窗口 中 的 某 行 代码 过 长 而 超出 了 窗口 的 宽度 ， 那 么 需要 拖 动 窗口 底部 的 水 平 滚动 
条 才能 看 到 位 于 窗口 外 的 代码 部 分 ， 给 查看 和 编写 代码 带 来 了 不 便 。 为 了 让 所 有 代码 都 能 完整 
地 显示 在 代码 窗口 的 可 视 区 域 中 ， 可 以 对 较 长 的 代码 进行 分 行 处 理 。 

将 插入 点 定位 到 代码 中 要 准备 换行 的 位 置 , 输入 一 个 空格 和 一 条 下 画 线 , 然后 按 下 Enter 
键 ， 插 入 一 个 VBA 可 以 识别 的 续 行 标记 ， 此 标记 之 后 的 代码 会 自动 移入 下 一 行 。 两 部 分 代 
码 虽 然 位 于 两 行 ， 但 它们 仍 属于 同一 条 语句 ， 在 运行 时 不 会 产生 语法 错误 。 如 图 2-26 所 示 
包含 UBound 和 LBound 函数 的 两 行 代码 就 是 经 过 分 行 处 理 后 的 效果 ， 它 们 实际 上 是 同一 条 
语句 。 











































































































灵光 试 xlsm - 模块 1 (人 到) en | 
[通用 7 了 | [所 查 玫 组 包含 的 元 素 -| 











|_ Option Explicit_ 








为 了 在 时 隔 多 日 之 后 还 能 理解 以 前 编写 的 代码 所 要 实现 的 功能 以 及 编写 思路 ， 应 该 养 成 为 
代码 添加 注释 的 习惯 ， 不 仅 方便 自己 ， 也 为 其 他 开发 人 员 了 解 和 维护 代码 提供 方便 。 运 行 VBA 
代码 时 会 自动 忽略 注释 内 容 。 可 以 使 用 以 下 几 种 方法 为 代码 添加 注释 : 
口 将 单 引 号 〈") 放置 在 注释 内 容 的 开头 。 
口 将 Rem 关键 字 放 置 在 注释 内 容 的 开头 。 
口 选择 要 转换 为 注释 的 一 行 或 多 行内 容 ， 然 后 单 击 “ 编 辑 ” 工 具 栏 中 的 “设置 注释 块 ” 按 
钮 加 。 如 果 要 取消 一 行 或 多 行 注释 内 容 ， 使 它们 变 成 可 被 VBA 识别 的 有 效 代码 ， 则 可 
以 单 击 “ 编 辑 ” 工 具 栏 中 的 “解除 注释 块 ”按钮 图 |。 
无 论 使 用 哪 种 方法 ， 注 释 内 容 都 可 以 单独 占据 一 行 ， 也 可 以 放 在 一 行 代码 的 右 侧 。 在 使 
Rem 关键 字 添加 注释 时 ， 根 据 注释 的 位 置 需要 使 用 不 同 的 格式 : 
口 如 果 将 注释 放 在 代码 行 的 上 方 ， 需 要 在 Rem 关键 字 和 注释 内 容 之 间 保留 一 个 空格 。 
口 如 果 将 注释 放 在 代码 行 的 右 侧 ， 需 要 在 Rem 关键 字 之 前 输入 一 个 冒号 ， 然 后 输入 Rem 
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和 注释 内 容 ，Rem 和 注释 内 容 之 间 保 留 一 个 空格 。 
提示 :如 果 输 入 的 内 容 被 VBA 正确 识别 为 注释 ,那么 这 些 内容 的 字体 颜色 默认 会 变 为 绿色 。 
下 面 的 代码 分 别 使 用 了 添加 注释 的 两 种 方法 ， 并 将 注释 放 在 了 不 同位 置 。 在 实际 应 用 中 通 
常 不 需要 为 每 一 行 代码 都 添加 注释 ， 这 里 主要 是 为 了 说 明 添加 注释 的 不 同方 法 。 
"下 面 的 过 程 演示 了 InputBox 函数 的 用 法 


Sub InputBox 函数 () 









































Dim strInput As String ' 声 明 一 个 String 数据 类 型 的 变量 
Rem 下 面 的 语句 将 用 户 输入 的 内 容 赋值 给 一 个 变量 


strInput = InputBox (" 请 输入 用 户 名 : ") 
MsgBox "用 户 名 是 : " & strInput: Rem 在 对 话 框 中 显示 用 户 名 
End Sub 
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本 书 前 两 章 详细 介绍 了 VBA 的 语法 规则 和 编程 技术 ， 这 些 内 容 虽 然 通 用 于 所 有 支持 VBA 
的 Microsoft Office 组 件 ， 但 是 要 想 在 Excel 中 通过 编程 来 完成 实际 工作 ， 还 需要 掌握 Excel 对 
象 模型 及 其 中 常用 对 象 的 使 用 方法 。 本 章 将 介绍 对 象 编程 的 基本 概念 和 技术 ， 这 些 内 容 是 使 用 
Excel VBA 编程 来 处 理 各 种 Excel 对 象 、 实 现 各 种 功能 的 基础 。 






































3.1 理解 类 、 对 象 与 集合 


对 象 是 Excel VBA 编程 的 核心 ， 在 Excel 中 进行 编程 的 整个 过 程 几乎 都 离 不 开 对 象 。 打 开 
一 个 工作 夭 ， 新 建 一 个 工作 表 ， 在 单元 格 中 输入 数据 ， 这 些 操作 中 的 工作 敌 、 工 作 表 、 单 元 格 
都 是 对 象 。 本 节 将 介绍 对 象 编程 的 基本 概念 ， 包 括 Excel 对 象 模型 、 类 和 对 象 、 使 用 对 象 浏览 
器 查看 类 和 对 象 的 相关 信息 、 引 用 集合 中 的 对 象 、 父 对 象 与 子 对 象 等 内 容 。 


3.1.1 ” Excel 对象 模 型 


虽然 在 Excel 中 编程 会 涉及 大 量 的 VBA 语言 元 素 和 语法 规则 ， 但 是 它们 操作 的 主体 都 是 
Excel 对 象 。 整 个 Excel 程序 由 大 量 的 对 象 组 成 ，Excel 程序 本 身 就 是 一 个 对 象 ， 其 内 部 的 工作 
敌 、 工 作 表 、 单 元 格 也 都 是 不 同 的 对 象 ， 所 有 这 些 对 象 按 照 特定 的 逻辑 结构 组 成 了 Excel 对 象 
模型 。 

Application 对 象 位 于 Excel 对 象 模型 的 顶层 ， 它 表示 Excel 程序 本 身 。 在 Excel 程序 中 可 以 
创建 很 多 个 工作 敌 ， 每 个 工作 簿 都 是 一 个 Workbook 对 象 。 每 个 工作 短 可 以 包含 很 多 个 工作 表 ， 
每 个 工作 表 都 是 一 个 Worksheet 对 象 。 每 个 工作 表 又 包含 很 多 个 单元 格 ， 每 个 单元 格 或 单元 格 
区 域 都 是 一 个 Range 对 象 。 上 述 几 种 对 象 的 层次 结构 可 以 表示 为 如 下 形式 。Excel 对 象 模型 中 的 
其 他 对 象 可 以 在 此 基本 结构 的 基础 上 继续 扩展 ， 从 而 构成 复杂 的 体系 结构 。 


RARPP1ication 一 Workbook 一 Worksheet 一 Range 


Excel VBA 帮助 系统 提供 了 Excel 对 象 模型 中 每 一 个 对 象 的 详细 说 明 。 由 于 Excel 对 象 模型 
中 包含 上 百 个 对 象 ,所 以 在 短 时 间 内 掌握 所 有 对 象 几乎 是 不 现实 的 , 可 以 先 学 习 较 常用 的 对 象 ， 
然后 再 逐步 扩展 到 其 他 对 象 。 


3.1.2 ”类 与 对 象 


类 是 面向 对 象 程序 设计 中 的 一 个 重要 概念 。 可 以 将 类 想象 成 Excel 中 的 工作 德 模板 ， 所 有 
新 建 的 工作 簿 都 是 基于 工作 短 模 板 创建 的 ， 这 些 新 建 的 工作 短 继 承 了 工作 德 模板 中 的 内 容 、 格 
式 设置 和 其 他 特性 。 可 以 根据 需要 , 在 创建 工作 敌后 对 工作 竹中 的 内 容 和 格式 进行 自 定义 设置 ， 
从 而 使 工作 籍 中 的 内 容 和 格式 不 同 于 其 他 工作 德 。 

对 于 类 而 言 ， 所 有 新 建 的 对 象 都 是 基于 类 创建 的 ， 这 些 对 象 称 为 类 的 实例 ， 它 们 继承 了 类 
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的 属性 、 方 法 和 事件 。 可 以 根据 需要 ， 在 创建 对 象 后 通过 设置 对 象 的 属性 、 方 法 和 事件 ， 使 同 
一 类 对 象 具 有 不 同 的 特征 和 行为 方式 。 例 如 ， 工 作 短 中 的 每 一 个 工作 表 都 是 一 个 Wordsheet 对 
象 ， 通 过 修改 工作 表 的 名 称 和 标签 颜色 ， 可 以 使 各 个 工作 表 具 有 不 同 的 名 称 和 标签 颜色 。 


3.1.3 ”使 用 对 象 浏 览 器 查看 类 和 对 象 的 相关 信息 




















系 ， 以 及 每 个 对 象 所 包含 的 属性 和 方法 。Excel 提供 了 一 个 用 于 查询 类 、 对 象 、 集 合 、 属 性 、 方 
法 、 事 件 、 常 数 的 易 用 工具 一 一 对 象 浏览 器 。 打 开 VBE 窗口 ， 可 以 使 用 以 下 几 种 方法 打开 对 象 
浏览 器 : 

口 单 击 菜单 栏 中 的 “视图 ”|“ 对 象 浏览 器 ”命令 。 

口 单 击 “ 标 准 ” 工 具 栏 中 的 “对 象 浏览 器 ”按钮 图 

口 按 F2 键 。 

打开 的 对 象 浏览 器 如 图 3-1 所 示 。 由 于 在 “工程 / 库 ” 中 默认 选择 的 是 “所 有 库 ”， 因 此 在 
“类 ”列表 中 会 显示 当前 引用 的 所 有 库 以 及 当前 工程 中 包含 的 所 有 类 。 如 果 想 要 查看 某 个 库 中 包 
含 的 内 容 ， 则 可 以 在 “工程 / 库 ” 列 表 中 选择 一 个 特定 的 库 ，“ 类 ”列表 会 自动 显示 所 选 库 中 的 
类 。 在 “类 ”列表 中 选择 一 个 类 ， 右 侧 会 显示 该 类 的 成 员 ， 即 类 的 属性 、 方 法 和 事件 。 如 果 想 
要 快速 查找 特定 信息 ， 可 以 在 搜索 框 中 输入 信息 的 名 称 ， 然 后 单 击 右 侧 的 搜索 按钮 典 |。 下 方 会 
显示 搜索 结果 ， 可 以 单 击 .¥| 按 钮 显示 或 隐藏 搜索 结果 
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显示 /隐藏 搜索 结果 


类 的 属性 、 方 法 、 事 件 等 
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3-1 对 象 浏览 器 


在 对 象 浏览 器 中 使 用 不 同 的 图 标 来 区 分 不 同 内容 ， 哄 表示 库 ， 中 表示 类 ， 喀 表示 对 象 的 
属性 、= 驴 表示 对 象 的 方法 ， 多 表示 对 象 的 事件 ， 国 表示 常数 。 


3.1.4 引用 集合 中 的 对 象 

同一 类 对 象 组 成 了 该 类 对 象 的 集合 ， 对 象 是 集合 中 的 成 员 。 在 Excel 对 象 模型 中 存在 着 很 
多 对 象 以 及 与 其 对 应 的 集合 ， 例 如 Worksheet 对 象 和 Worksheets 集合 ，Worksheet 表示 一 个 工 
作 表 ，Worksheets 表示 一 个 工作 短 中 的 所 有 工作 表 。 在 拼写 形式 上 ， 集 合 比 其 相关 的 对 象 在 名 
称 末尾 多 了 一 个 字母 s。 

有 时 需要 引用 集合 中 的 某 个 对 象 ， 可 以 使 用 对 象 的 名 称 或 索引 号 来 引用 集合 中 的 对 象 。 例 
如 ， 如 果 工 作 德 中 包含 从 左 到 右 依次 排列 的 名 为 “1 月 ”“2 月 ”和 “3 月 ”的 3 个 工作 表 ， 那 
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在 Excel 中 编程 遇 到 的 主要 困难 之 一 是 很 难 掌握 复杂 的 Excel 对 象 模型 中 各 对 象 之 间 的 关 
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么 当 需 要 引用 名 为 “2 月 ”的 工作 表 时 ， 可 以 使 用 以 下 两 种 方法 : 

使 用 名 称 进 行 引 用 : Worksheets ("2 月 ") 

使 用 索引 号 进行 引用 : Worksheets (2) 

第 一 种 方法 最 安全 ， 只 要 不 改变 工作 表 的 名 称 ， 即 使 调整 工作 表 的 排列 顺序 ， 使 用 同一 个 
名 称 始终 都 引用 同一 个 工作 表 。 而 第 二 种 方法 引用 的 是 位 于 第 2 个 位 置 上 的 工作 表 ， 如 果 调 整 
工作 表 的 顺序 ， 那 么 位 于 第 2 个 位 置 上 的 工作 表 就 不 一 定 是 名 为 “2 月 ”的 工作 表 了 ， 因 此 在 
引用 特定 工作 表 时 使 用 第 二 种 方法 并 不 安全 。 
需要 注意 的 是 ， 如 果 引 用 的 工作 表 所 在 的 工作 短 是 当前 活动 的 工作 短 ， 那 么 可 以 直接 使 用 
上 面 的 形式 来 引用 。 如 果 要 引用 的 工作 表 所 在 的 工作 短 不 是 活动 工作 短 ， 那 么 必须 添加 工作 短 
的 限定 ， 类 似 于 如 下 所 示 : 


Workbooks ("一 季度 ") .Worksheets ("2 月 ") 

















































































































1s 父 对 象 与 子 对 象 及 其 定位 方法 
Excel 对 象 模型 中 的 各 个 对 象 彼此 交错 关联 ， 形 成 了 相对 复杂 的 层次 结构 。 前 面 介绍 的 
Application 对 象 位 于 Excel 对 象 模 型 的 顶层 ，Workbook 对 象 位 于 Application 对 象 的 下 一 层 ， 
Worksheet 对 象 又 位 于 Workbook 对 象 的 下 一 层 。 可 以 将 处 于 上 一 层 的 对 象 称 为 父 对 象 ， 将 处 于 
下 一 层 的 对 象 称 为 子 对 象 。 那 么 在 上 面 的 例子 中 ，Workbook 对 象 的 父 对 象 是 Application 对 象 ， 
Workbook 对 象 的 子 对 象 是 Worksheet 对 象 。 
大 多 数 对 象 都 有 一 个 Parent 属性 ， 使 用 该 属性 可 以 返回 对 象 的 父 对 象 。 下 面 的 代码 返 
为 “2 月 ”的 工作 表 所 在 的 工作 籍 的 名 称 : 
Worksheets ("2 月 ") .Parent .Name 
由 于 Worksheet 对 象 的 父 对 象 是 Workbook 对 象 ， 因 此 Worksheets("2 月 ").Parent 返回 的 是 
名 为 “2 月 ”的 工作 表 所 在 的 工作 簿 的 Workbook 对 象 ， 之 后 使 用 该 对 象 的 Name 属性 返回 了 工 
作 短 的 名 称 。 
如 果 和 希望 返回 名 为 “2 月 ”的 工作 表 所 在 的 Excel 程序 的 版 本 号 , 那么 可 以 使 用 下 面 的 代码 ， 
通过 Parent 属性 从 当前 对 象 依次 返回 上 一 层 的 父 对 象 , 直到 Application 对 象 为 止 ,第 一 个 Parent 
属性 返回 的 是 Worksheet 对 象 的 父 对 象 ， 即 Workbook 对 象 。 第 二 个 Parent 属性 是 Workbook 对 
象 的 属性 ， 因 此 返回 Workbook 对 象 的 父 对 象 ， 即 Application 对 象 。 


Worksheets ("2 月 ") .Parent.Parent.Name 


如 果 对 象 的 层次 级 别 很 低 ， 那 么 在 上 面 的 代码 中 可 能 需要 使 用 更 多 的 Parent 属性 。 实 际 上 
Excel 提供 了 从 任意 层级 的 对 象 直接 跳 转 到 顶层 对 象 的 方法 ， 即 对 象 的 Application 属性 ， 大 多 
数 对 象 都 包含 该 属性 。 因 此 ， 可 以 将 前 面 的 代码 修改 为 以 下 形式 : 


Worksheets ("2 月 ") .Application.Version 
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3.2 对象 的 属性 


基于 同一 个 类 创建 的 一 系列 对 象 在 最 初 阶段 具有 完全 相同 的 外 观 和 特征 。 为 了 让 对 象 区 别 
于 其 他 同类 对 象 ， 可 以 通过 设置 对 象 的 属性 来 改变 对 象 所 具有 的 特征 。 例 如 ， 在 默认 情况 下 ， 
[ 作 表 中 的 单元 格 具有 相同 的 行 高 、 列 宽 、 填 充 色 。 当 改变 菜 个 单元 格 的 行 高 、 列 宽 、 填 充 色 
后 ， 该 单元 格 的 外 观 将 不 同 于 其 他 单元 格 。 行 高 、 列 宽 、 填 充 色 等 就 是 单元 格 的 属性 。 通 过 修 
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改 对 象 的 属性 ， 可 以 改变 对 象 的 外 观 或 状态 。 本 节 将 介绍 对 象 属性 的 引用 和 赋值 的 方法 ， 还 介 
绍 了 可 返回 对 象 的 属性 这 一 重要 概念 。 


3.2.1 引用 对 象 的 属性 


如 果 要 引用 一 个 对 象 的 属性 ， 可 以 使 用 以 下 格式 : 

对 象 的 名 称 .对 象 的 属性 

下 面 的 代码 引用 的 是 Application 对 象 的 Version 属性 。 由 于 VBA 具有 自动 弹出 成 员 列表 的 
功能 ， 因 此 在 输入 一 个 正确 的 对 象 名 称 和 一 个 英文 句点 后 ， 将 会 自动 弹出 该 对 象 包含 的 属性 和 
方法 的 成 员 列 表 ， 如 图 3-2 所 示 ， 使 用 方向 键 选择 所 需 的 属性 ， 然 后 按 Tab 键 将 其 输入 到 代码 
窗口 中 。 


Application.Version 












































































































































图 3-2 使 用 自动 弹出 的 成 员 列 表 查 看 和 输入 对 象 的 属性 


当然 ， 也 可 以 直接 手动 输入 属性 ， 但 要 确保 不 要 出 现 拼写 错误 ， 否 则 在 运行 代码 时 会 出 现 
运行 时 错误 。 
在 VBA 中 不 能 直接 运行 引用 了 对 象 属性 的 语句 , 否则 会 出 现 编译 错误 。 但 是 使 用 类 似 下 面 
的 语句 ， 则 可 以 正常 运行 该 语句 ， 并 在 对 话 框 中 显示 对 象 的 属性 值 。 
MsgBox Application.Version 
为 了 便于 使 用 对 象 的 属性 值 ， 可 以 将 其 赋值 给 一 个 变量 ， 然 后 在 后 面 的 代码 中 使 用 该 变量 
代替 对 象 属性 的 引用 ， 这 样 做 不 但 减少 了 代码 的 输入 量 ， 还 可 以 加 快 代码 的 运行 速度 。 下 面 的 
代码 将 Excel 程序 的 版 本 号 赋值 给 名 为 strVer 的 变量 。 


strVer = Application.Version 


3.2.2 ”设置 属性 的 值 

通过 设置 对 象 的 属性 ， 可 以 改变 对 象 的 特征 。 设 置 对 象 属性 的 方法 与 将 对 象 的 属性 赋值 给 
一 个 变量 类 似 ， 只 不 过 是 相反 的 过 程 。 要 设置 属性 的 值 ， 首 先 使 用 上 一 节 介绍 的 方法 输入 对 象 
属性 的 引用 ， 然 后 输入 一 个 等 号 ， 在 等 号 右 侧 输入 要 为 属性 设置 的 值 。 

案例 3-1 设置 工作 表 的 名 称 
下 面 的 代码 将 InputBox 函数 的 返回 值 赋值 给 Worksheet 对 象 的 Name 属性 ， 从 而 将 用 户 输 辑 
入 的 内 容 指定 为 当前 活动 工作 表 的 名 称 。 代 码 中 的 ActiveSheet 引用 当前 活动 的 工作 表 ， 它 是 
Application 对 象 的 一 个 属性 ， 第 4 章 将 会 详细 介绍 Application 对 象 及 其 应 用 。 

Sub 设置 工作 表 的 名 称 () 
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Dim strName As String 

strName = InputBox (" 请 输入 工作 表 的 名 称 : ") 

If strName <> "" Then ActiveSheet.Name = strName 
End Sub 


下 面 的 代码 将 数字 100 输入 到 当期 活动 工作 表 的 Al 单元 格 中 : 


Range ("A1") .Value = 100 


于 Value 属性 是 Range 对 象 的 默认 属性 , 因此 在 设置 该 属性 时 不 需要 输入 Value, 而 使 用 



























































下 面 的 形式 : 
Range ("RAl") = 100 
虽然 默认 属性 为 代码 的 输入 提供 了 方便 ， 但 是 仍然 建议 输入 完整 的 属性 名 ， 这 样 可 使 代码 
易于 理解 。 
国 崇 部 高 3 回 


由 3.2.3 ”可 返回 对 象 的 属性 


很 多 对 象 的 属性 可 以 返回 另 一 个 对 象 ， 这 句 话 看 起 来 可 能 不 容易 理解 。 下 面 的 代码 用 于 设 
置 Al 单元 格 中 的 字体 格式 。Range 是 一 个 对 象 ，Font 是 该 对 象 的 属性 ， 但 是 在 Font 之 后 还 有 
一 个 Name。Name 是 Font 的 属性 吗 ? 可 是 Font 不 是 Range 对 象 的 属性 吗 ? 所 以 Font 应 该 不 会 
是 对 象 ， 那 么 Name 又 是 什么 ? 对 于 没有 太 多 Excel VBA 编程 经 验 的 用 户 而 言 ， 这 句 代码 很 容 
易 带 来 困惑 。 


Range ("R1") .Font .Name = "宋体 " 


这 名 代码 中 的 Font 既是 属性 ， 又 是 对 象 。 首 先 ，Range("Al").Font 这 部 分 中 的 Font 是 作为 
Range 对 象 的 属性 出 现 的 ， 用 于 设置 Range 对 象 的 字体 格式 。 然 而 Excel 会 在 运行 
Range("Al").Font 之 后 , 通过 Font 属性 返回 一 个 Font 对 象 , 之 后 又 为 该 对 象 使 用 了 Name 属性 。 
此 ， 上 面 的 代码 相当 于 设置 的 是 Font 对 象 的 Name 属性 ， 开 头 的 Range("A1") 部 分 只 是 限定 
了 设置 字体 格式 的 是 哪个 单元 格 。 

Excel VBA 中 的 很 多 对 象 的 属性 都 能 返回 另 一 个 对 象 。 换 句 话 说 ， 某 个 对 象 其 自身 是 一 个 
独立 的 对 象 ， 但 同时 它 可 能 还 会 作为 另 一 个 对 象 的 属性 出 现 。 







































































3.3 对象 的 方法 


方法 是 对 象 自身 拥有 的 动作 ， 通 过 使 用 对 象 的 方法 ， 可 以 执行 与 对 象 相关 的 操作 ， 从 而 改 
变 对 象 的 状态 。 例如， 打开 工作 短 中 的 “打开 ”(Open) 就 是 Workbook 对 象 的 一 个 方法 , “ 打 
开 ” 这 个 方法 的 结果 是 向 工作 矢 集 合 中 添加 了 一 个 新 的 工作 憩 成员。 对象 的 方法 的 使 用 主要 在 
于 设置 方法 的 参数 ， 参 数 为 执行 的 操作 提供 了 所 需 的 数据 或 执行 方式 。 此 外 ， 与 可 返回 对 象 的 
属性 类 似 ， 某 些 对 象 的 方法 也 可 以 返回 另 一 个 对 象 。 除 了 属性 和 方法 ， 对 象 还 包含 事件 ， 第 12 
章 将 会 详细 介绍 对 象 的 事件 。 


回 
3.3.1 方法 的 参数 
: 为 了 给 对 象 的 方法 提供 所 需 操作 的 数据 或 操作 方式 ， 很 多 方法 都 包含 一 个 或 多 个 参数 。 例 


如 ，Workbooks 集合 有 一 个 Add 方法 ， 它 包含 一 个 参数 ， 用 于 指定 新 建 工作 短 时 以 哪个 模板 为 
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要 输入 对 象 的 方法 ， 首 先 需要 输入 对 象 的 名 称 ， 然 后 输入 一 个 英文 句点 。 如 果 对 象 名 称 的 
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拼写 正确 ， 则 会 自动 弹出 该 对 象 包含 的 属性 和 方法 的 成 员 列 表 ， 从 中 选择 所 需 的 方法 并 按 Tab 
键 ， 将 方法 输入 到 代码 窗口 中 。 按 一 下 空格 键 ， 将 会 显示 如 图 3-3 所 示 的 提示 信息 ， 加 粗 显示 
的 部 分 是 当前 准备 接收 用 户 输入 的 方法 的 第 一 个 参数 , 这 里 是 Template。 该 单词 用 方 括号 括 起 ， 
表示 这 是 一 个 可 选 参数 , 也 就 是 说 不 是 必须 要 提供 该 参数 的 值 。 如果 不 显示 可 选 参 数 的 值 , Excel 
会 自动 使 用 其 默认 值 。 















































Sub 新 建 工 作 等 0 
Workbooks. Add | 


End Sub Add([ 了 empIate]) As Workbook 
图 3-3 包含 一 个 参数 的 方法 


有 些 方法 包含 多 个 参数 ， 例 如 Worksheets 对 象 的 Add 方法 ， 它 包含 4 个 参数 ， 如 图 3-4 所 
示 。 这 些 参数 都 用 方 括号 括 起 ， 因 此 它们 都 是 可 选 参数 ， 在 使 用 Worksheets 对 象 的 Add 方法 时 
可 以 不 提供 任何 参数 的 值 ， 而 使 用 默认 设置 添加 新 的 工作 表 。 


Sub 方法 的 参数 0 
Worksheets. Add | 


End Sub Add([Before], [After]), [Count) [Typel) As Object 
图 3-4 包含 多 个 参数 的 方法 


在 输入 多 个 参数 的 值 时 ， 各 参数 值 之 间 需 要 以 英文 逗号 分 隔 ， 而 且 必 须 按照 各 参数 的 默认 
顺序 依次 输入 。 当 输入 第 一 个 参数 和 一 个 英文 逗号 后 ， 第 二 个 参数 的 名 称 会 自动 加 粗 显示 ， 如 
图 3-5 所 示 ， 从 而 提醒 用 户 当前 正在 设置 的 是 哪个 参数 。 


Sub 方法 的 参数 0 
Worksheets. Add worksheets (2),| 
End Sub Add([Before], [After], [Count) [Type As Object | 


3-5 ”输入 不 同 参数 时 会 以 加 粗 字 体 提醒 用 户 


如 果 要 省 略 其 中 的 某 个 参数 值 ， 而 跳 到 下 一 个 参数 值 的 设置 上 ， 则 必须 为 省 略 的 参数 保留 
一 个 英文 逗号 。 如 图 3-6 所 示 跳 过 了 第 二 个 参数 After， 而 直接 设置 第 三 个 参数 Count 的 值 ， 因 
此 需要 为 第 二 个 参数 额外 保留 一 个 英文 逗号 以 占 位 。 


Sub 方法 的 参数 0 
Worksheets. Add worksheets 


End Sub Add(l pe forel ed [ownt], [1ype]) As Object | 
图 3-6 省 略 某 个 参数 的 值 时 需要 为 其 保留 一 个 英文 逗号 


当然 ， 也 有 一 些 方法 不 需要 参数 ， 例 如 Workbook 对 象 的 Save 方法 ， 该 方法 不 包含 任何 参 
数 ， 下 面 的 代码 用 于 保存 当前 包含 代码 的 工作 敌 。 


ThisWorkbook.Save 


3.3.2 ”使 用 命名 参数 


在 为 一 个 方法 设置 多 个 参数 值 时 ， 如 果 省 略 了 其 中 的 某 个 参数 值 ， 则 必须 为 其 
文 逗 号 ， 以 便 让 Excel 可 以 根据 逗号 来 正确 识别 参数 值 的 对 应 关系 。 如 果 不 想 为 省 略 的 参数 额 
外 保留 一 个 英文 逗号 ， 则 可 以 使 用 命名 参数 的 方式 来 设置 参数 值 。 使 用 命名 参数 的 好 处 还 在 于 
可 以 按 任意 顺序 指定 参数 值 ， 以 及 增加 代码 的 可 读 性 。 

在 指定 参数 值 时 使 用 命名 参数 的 方法 是 : 先 输入 参数 的 名 称 ， 然 后 输入 一 个 冒号 和 一 个 等 
号 ， 最 后 输入 要 为 参数 指定 的 值 。 参 数 的 名 称 不 严格 区 分 大 小 写 。 下 面 的 代码 是 对 上 一 节 新 建 
工作 表 的 案例 修改 后 的 版 本 ， 其 中 使 用 了 命名 参数 。 参 数 的 指定 顺序 与 Add 方法 默认 的 参数 顺 
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序 不 同 ， 此 处 先 设置 的 是 第 三 参数 Count 的 值 ， 然 后 设置 的 是 第 二 参数 After 的 值 。 


Worksheets.Add Count:=5, After:=Worksheets (2) 


3.3.3 ”可 返回 对 象 的 方法 


5 某 些 属性 可 返回 新 的 对 象 类 似 ， 对 象 的 某 些 方法 也 可 以 返回 新 的 对 象 。 例 如 ， 在 使 
Worksheets 集合 的 Add 方法 新 建 工作 表 后 ， 默 认 情 况 下 会 返回 一 个 Worksheet 对 象 ， 表 示 对 刚 
刚 新 建 的 工作 表 的 引用 。 
如 果 要 在 后 面 的 代码 中 使 用 方法 所 返回 的 对 象 ， 那 么 通常 可 以 将 该 方法 的 返回 值 赋值 给 一 
个 对 象 变量 ， 然 后 在 代码 中 使 用 该 变量 来 代 蔡 返回 的 对 象 。 与 使 用 函数 的 返回 值 时 设置 参数 的 
方式 类 似 ， 需 要 将 对 象 的 方法 的 所 有 参数 值 放 置 在 一 对 圆 括 号 中 ， 然 后 通过 使 用 等 号 将 方法 的 

返回 值 赋值 给 一 个 变量 。 
案例 3-2 ”在 程序 中 使 用 由 方法 返回 的 对 象 
: 下 面 的 代码 将 Worksheets.Add 方法 新 建 的 工作 表 赋 值 给 名 为 wks 的 对 象 变 量 , 然后 使 用 wks 
变量 来 设置 新 建 工 作 表 的 名 称 。intIndex 变量 用 于 指定 新 建 工作 表 的 索引 号 ， 本 例 中 为 将 新 工作 
表 放置 在 最 后 一 个 工作 表 之 后 ， 因 此 通过 Worksheets.Count 获取 工作 竹中 包含 的 工作 表 总 数 。 
Sub 可 返回 对 象 的 方法 () 


Dim wks Rs Worksheet, intIndex Rs Integer 
intIndex = Worksheets.Count 
Set wks = Worksheets.Add (after:=Worksheets (intIndex)) 
wks.Name = "1 月 " 
End Sub 
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3.4 对 象 编程 技巧 


本 节 将 介绍 在 VBA 中 进行 对 象 编程 时 经 常用 到 的 3 个 技巧 ， 实 际 上 它们 也 属于 VBA 的 语 
言 元 素 ， 只 不 过 主要 用 在 对 象 编程 方面 。 下 面 列 出 了 这 3 个 技巧 的 简要 描述 ， 本 章 剩余 内 容 将 
对 它们 做 详细 介绍 。 
口 使 用 对 象 变量 : 简化 对 象 引 用 ， 减 少 代码 输入 量 ， 提 高 程序 运行 效率 。 
口 使 用 With 结构 : 简化 对 象 引 用 ， 减 少 代码 输入 量 ， 提 高 程序 运行 效率 。 
口 使 用 For Each 结构 : 遍历 集合 中 的 对 象 。 


3.4.1 使 用 对 象 变量 


在 VBA 中 , 对 象 也 是 一 种 数据 类 型 ， 可 以 将 变量 声明 为 一 般 对 象 类 型 或 特定 对 象 类 型 。 一 
般 对 象 类 型 表示 为 Object， 特 定 对 象 类 型 由 对 象 所 属 的 类 决定 ， 比 如 工作 敌对 象 类 型 表示 为 
Workbook， 工 作 表 对 象 类 型 表示 为 Worksheet。 

无 论 将 变量 声明 为 哪 种 对 象 类 型 ， 在 声明 和 使 用 对 象 变量 时 都 需要 遵循 以 下 3 个 步骤 ， 

声明 对 象 变量 一 为 对 象 变量 赋值 ~ 释放 对 象 变量 占用 的 内 存 空间 

声明 对 象 变量 的 方法 与 声明 普通 变量 类 似 。 下 面 的 代码 声明 了 一 个 Worksheet 类 型 的 对 象 
变量 wks， 该 变量 代表 一 个 工作 表 : 

Dim wks Rs Worksheet 


在 使 用 已 经 声明 好 的 对 象 变量 之 前 ， 需 要 使 用 Set 关键 字 将 某 个 具体 的 对 象 赋值 给 对 象 变 
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量 。 就 上 面 的 代码 而 言 ， 需 要 将 一 个 实际 的 工作 表 赋 值 给 wks 对 象 变量 。 假 设 在 当前 的 活动 工 
作 短 中 存在 一 个 名 为 “1 月 ”的 工作 表 ， 那 么 下 面 的 代码 将 该 工作 表 赋 值 给 wks 对 象 变量 。 

Set wks = Worksheets ("1 月 ") 

为 对 象 变量 赋值 后 ， 之 后 就 可 以 使 用 对 象 变量 代替 实际 的 对 象 引 用 ， 不 但 可 以 减少 对 象 引 
的 代码 输入 量 ， 还 可 以 提高 程序 的 运行 效率 。 本 例 中 可 以 使 用 wks 变量 代表 名 为 “1 月 ”的 
作 表 ， 下 面 的 代码 显示 名 为 “1 月 ”的 工作 表 的 名 称 。 

MsgBox wks.Name 

当 不 再 需要 使 用 对 象 变量 时 ， 应 该 使 用 Set 关键 字 将 对 象 变量 赋值 为 Nothing， 以 释放 对 象 
变量 占用 的 内 存 空间 ， 如 下 所 示 : 

Set wks = Nothing 

案例 3-3 ”使 用 对 象 变量 引用 特定 的 对 象 避 
下 面 的 代码 将 上 面 几 行 分 开 的 语句 合并 到 一 起 ， 形 成 完整 的 使 用 对 象 变量 的 案例 。 为 了 避 六 
免 由 于 指定 的 工作 表 不 存在 而 导致 的 运行 时 错误 ， 因 此 在 代码 中 加 入 了 防 错 机 制 。 如 果 指 定 的 
工作 表 不 存在 ， 则 会 显示 一 条 提示 信息 并 退出 程序 ， 否 则 显示 工作 表 的 名 称 。 

Sub 使 用 对 象 变量 () 


Dim wks Rs Worksheet 

On Error Resume Next 

Set wks = Worksheets("1 月") 

If Err.Number <> 0 Then 
MsgBox "指定 的 工作 表 不 存在 " 
Exit Sub 

End If 

MsgBox wks.Name 

End Sub 








































































































































































































3.4.2 ”使 用 With 结构 


正常 情况 下 ， 当 需要 对 同一 个 对 象 进行 多 种 操作 时 ， 会 在 代码 中 多 次 引用 该 对 象 。 下 面 的 
代码 对 活动 工作 簿 中 的 第 一 个 工作 表 的 A1:C6 单元 格 区 域 进行 了 一 系列 设置 : 
Sub 对 同一 对 象 执行 多 个 操作 () 
Worksheets (1) .Range ("RA1:C6") .Font.Bold = True 
Worksheets (1) .Range ("A1:C6") .Font.Italic = True 
Worksheets (1) .Range ("A1:C6") .Font .Color = RGB(255, 0, 0) 
Worksheets (1) .Range ("Al1:C6") .Columns.AutoFit 
MsgBox Worksheets (1) .Range ("Al:C6") .Rows .Count 
MsgBox Worksheets (1) .Range ("RA1:C6") .Columns .Count 


MsgBox Worksheets (1) .Range ("R1:C6") .Count 
End Sub 


代码 中 的 Worksheets(1).Range("A1:C6") 部 分 重复 出 现 了 7 次 , VBA 会 对 每 次 遇 到 的 对 象 之 
间 的 英文 句点 进行 解析 ， 因 此 上 面 这 段 代码 的 运行 效率 会 受到 严重 影响 。 

在 VBA 中 ， 当 需要 在 代码 中 反复 引用 同一 个 对 象 时 , 为 了 提高 程序 的 运行 效率 ,同时 减少 
代码 的 输入 量 ， 可 以 使 用 With 结构 简化 对 象 的 引用 。With 结构 的 格式 如 下 : 


With 要 引用 的 对 象 


要 为 对 象 执行 的 操作 
End With 


在 With 语句 之 后 输入 要 引用 的 对 象 ， 按 Enter 键 后 VBA 会 自动 添加 End With 语句 。 在 
With 语句 和 End With 语句 之 间 放 置 要 为 对 象 执行 的 操作 ， 通 常 是 为 了 设置 位 于 With 语句 之 后 
的 对 象 的 属性 和 方法 。 这 些 属性 和 方法 以 英文 句点 开头 ， 然 后 可 从 自动 弹出 的 成 员 列 表 中 选择 
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所 需 的 属性 和 方法 。 
案例 3-4 ”使 用 With 结构 简化 对 象 的 引用 


下 面 的 代码 使 用 With 结构 对 上 一 个 案例 进行 了 修改 ,在 With 和 End With 之 间 省 略 了 
Worksheets(1).Range("A1:C6") 部 分 ， 代 码 看 起 来 更 简洁 。 
Sub 使 用 With 结构 () 


With Worksheets (1) .Range ("Al:C6") 
.Font.Bold = True 
.Font.Italic = True 
.Font.Color = RGB(255, 0, 0) 
.Columns .RutoFit 
MsgBox .Rows .Count 
MsgBox .Columns .Count 
MsgBox .Count 

End With 

End Sub 


With 结构 也 可 以 撕 套 在 另 一 个 With 结构 中 。 上 面 代码 中 的 第 3 一 5 行 重复 出 现 了 3 次 Font， 
因此 也 可 以 使 用 With 结构 对 该 对 象 的 引用 进行 简化 。 下 面 的 代码 使 用 了 顽 套 的 With 结构 ， 外 
层 的 With 结构 处 理 的 是 Range 对 象 ， 内 层 的 With 结构 处 理 的 是 Font 对 象 。 


Sub 使 用 With 结构 2() 
With Worksheets (1) .Range ("Al:C6") 
With .Font 
‘Bold = True 
.Italic = True 
.Color = RGB(255, 0, 0) 
End With 
.Columns.AutoFit 
MsgBox .Rows.Count 
MsgBox .Columns.Count 
MsgBox .Count 
End With 
End Sub 









































3.4.3 使 用 For Each 结构 


For Each 结构 主要 用 于 处 理 集合 中 的 对 象 ， 尤 其 适用 于 包含 大 量 对 象 的 集合 ， 而 且 预 先 不 
知道 对 象 的 数量 的 情况 。 可 以 使 用 For Each 结构 对 逐个 对 象 进行 处 理 ， 也 可 以 只 处 理 集合 中 符 
合 特定 条 件 的 某 些 对 象 。 

For Each 结构 的 语法 格式 如 下 : 


For Each element In group 
[statements] 
[Exit For] 
[statements] 

Next [element] 


口 element: 必 选 ， 用 于 遍历 集合 中 的 每 一 个 对 象 或 数组 中 的 每 一 个 元 素 的 变量 。 

口 group: 必 选 ， 要 在 其 内 部 进行 遍历 的 集合 或 数组 。 

口 statements: 可 选 ，For Each 结构 中 包含 的 VBA 代码 ， 它 们 将 被 重复 执行 ， 直 到 处 理 完 

集合 中 的 最 后 一 个 对 象 。 

口 Exit For: 可 选 ， 中 途 退 出 For Each 循环 。 

For Each 结构 与 For Next 结构 有 些 类 似 ， 都 用 于 循环 执行 特定 的 代码 ， 但 是 For Each 结构 
是 对 集合 中 的 每 一 个 对 象 重复 执行 相同 的 代码 ， 而 不 是 重复 执行 指定 次 数 的 代码 ，For Each 结 
构 对 代码 进行 重复 执行 的 次 数 取决 于 集合 中 的 对 象 总 数 。 当 处 理 完 集合 中 的 最 后 一 个 对 象 后 ， 
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将 会 自动 退出 For Each 结构 , 也 可 以 使 用 下 Then 结构 设置 判断 条 件 , 只 对 符合 条 件 的 对 象 执行 














操作 ， 并 使 用 Exit For 语句 中 途 退 出 循环 。 
案例 3-5 ”使 用 For Each 结构 遍历 集合 中 的 对 象 


















































工作 短 中 包含 的 工作 表 数 量 ， 因 此 很 适合 使 用 For Each 结构 来 进行 处 理 。 


Sub ForEach 结构 () 
Dim wks As Worksheet 
For Each wks In Worksheets 
MsgBox wks.Name 
Next wks 
End Sub 




















For Each 结构 也 可 以 嵌 套 使 用 ， 即 在 一 个 For Each 结构 中 嵌 套 另 一 个 For Each 结构 。 下 面 
和 代码 显示 了 当前 打开 的 每 一 个 工作 短 中 的 每 一 个 工作 表 的 名 称 ， 由 于 运行 代码 前 无 法 确定 当 
前 一 共 打开 了 多 少 个 工作 短 ， 以 及 每 个 工作 短 中 包含 多 少 个 工作 表 ， 因 此 使 用 两 个 嵌 套 的 For 
于 处 











Each 结构 ,外 层 的 For Each 结构 用 于 处 理 打开 的 每 一 个 工作 夭 ， 内 层 的 For Each 结构 
工作 短 中 的 每 一 个 工作 表 。 


Sub ForEach 结构 2() 
Dim wkb As Workbook, wks As Worksheet 
For Each wkb In Workbooks 
For Each wks In Worksheets 
MsgBox wks.Name 








Next wks 
Next wkb 
End Sub 














下 面 的 代码 显示 了 当前 活动 工作 竹中 的 每 个 工作 表 的 名 称 。 由 于 运行 代码 前 无 法 确定 活动 
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Application 对 象 代表 整个 Excel 程序 , 它 位 于 Excel 对 象 模型 的 顶层 , 其 中 包含 其 他 所 有 的 
Excel 对 象 , 通过 Application 对 象 可 以 引用 其 他 任何 Excel 对 象 。Application 对 象 包含 用 于 完成 
Excel 应 用 程序 范围 的 选项 设置 和 操作 的 属性 和 方法 。 本 章 将 详细 介绍 Application 对 象 常用 的 
属性 、 方 法 的 功能 以 及 它们 在 实际 中 的 应 用 。Application 对 象 的 一 些 方法 (如 Intersect 和 Union) 
用 于 处 理 单 元 格 区 域 ， 这 部 分 内 容 将 会 在 第 7 章 介绍 数据 区 域 的 处 理 时 进行 统一 讲解 。 
Application 对 象 的 一 些 属 性 〈 如 Dialogs 和 FileDialog) 用 于 处 理 对 话 框 ， 这 部 分 内 容 将 在 第 1 
章 介 绍 Excel 对 话 框 时 进行 统一 讲解 。 




































































4.1 理解 Application 对 象 和 全 局 属性 


Application 对 象 的 很 多 属性 和 方法 都 是 全 局 成 员 。 按 F2 键 打开 对 象 浏览 器 ， 在 “工程 / 库 ” 
下 拉 列 表 中 选择 Excel， 然 后 在 “类 ”列表 中 选择 “全 局 ”， 可 以 在 右 侧 看 到 Excel 对 象 模型 中 
的 所 有 全 局 成 员 ， 如 图 4-1 所 示 。 



































图 4-1 在 对 象 浏览 器 中 查看 Excel 中 的 全 局 成 员 
全 局 成 员 的 一 个 优势 是 在 代码 中 使 用 它们 时 ， 可 以 不 必 在 全 局 的 属性 和 方法 之 前 使 用 对 象 
































限定 符 Application。 下 面 的 两 行 代码 具有 相同 的 功能 ， 由 于 ActiveSheet 是 全 局 成 员 ， 因 此 可 以 
省 略 其 左 侧 的 Application 对 象 的 限定 。 


Application.ActiveSheet 
ActiveSheet 


全 局 成 员 中 以 Active 开头 的 属性 用 于 表示 当前 活动 的 对 象 ， 无 论 这 些 对 象 的 名 称 是 什么 ， 
都 自动 引用 当前 活动 的 对 象 ， 这 样 就 可 以 利用 这 些 属 性 来 编写 适应 性 强 的 通用 代码 。 表 4-1 列 
出 了 以 Active 开头 的 全 局 属性 的 名 称 、 返 回 对 象 的 类 型 以 及 说 明 。 
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表 4-1 以 Active 开头 的 全 局 属性 
返回 对 象 说 明 
表示 当前 活动 工作 竹中 的 活动 工作 表 中 的 活动 单元 格 
表示 当前 活动 工作 短 中 的 活动 的 图 表 工作 表 
表示 当前 活动 工作 短 中 的 活动 工作 表 
表示 当前 应 用 程序 中 的 活动 工作 簿 窗口 
表示 当前 活动 的 工作 乱 
















ActiveCell 

















ActiveChart 






















ActiveSheet Object 















ActiveWindow Window 





ActiveWorkbook Workbook 











无 论 当前 打开 了 多 少 个 工作 短 ， 下 面 的 代码 始终 显示 当前 处 于 活动 状态 的 工作 敌 的 名 称 : 














MsgBox ActiveWorkbook.Name 

下 面 的 代码 将 文字 “商品 ”输入 到 当前 活动 的 单元 格 中 。 如 果 当 前 活动 的 单元 格 是 Al1， 则 
会 将 文字 输入 到 Al 中 ; 如果 当 前 活动 的 单元 格 变 成 B6， 则 会 将 文字 输入 到 B6 中 。 

ActiveCell.Value = "商品 " 

Application 对 象 还 有 一 个 Selection 属性 , 它 表 示 在 当前 活动 的 工作 敌 窗 口中 所 选择 的 对 象 。 
选中 的 对 象 可 以 是 单元 格 或 单元 格 区 域 ， 也 可 以 是 图 片 、 图 形 、 图 表 等 不 同类 型 的 内 容 。 下 面 
的 代码 在 当前 选中 的 单元 格 或 单元 格 区 域 中 输入 文字 “姓名 ”: 

Selection.Value = "姓名 " 

如 果 当 前 选择 的 对 象 不 是 单元 格 或 单元 格 区 域 ， 而 是 其 他 对 象 ， 比 如 图 片 或 图 表 ， 运 行 上 
面 的 代码 将 会 出 现 运行 时 错误 ， 因 为 这 些 对 象 不 支持 Value 属性 。 解 决 这 类 问题 的 方法 是 在 设 
置 对 象 的 属性 之 前 ， 先 使 用 TypeName 函数 检查 所 选 对 象 的 类 型 ， 之 后 再 对 特定 对 象 执行 适当 
的 操作 。 


案例 4-1 在 选区 中 输入 内 容 
下 面 的 代码 使 用 If Then 判断 结构 检查 Selection 对 象 的 类 型 ， 如 果 是 Range， 则 在 选区 
入 内 容 ， 否 则 显示 提示 信息 以 告知 用 户 当前 选择 的 不 是 单元 格 或 单元 格 区 域 。 
Sub 在 选区 中 输入 内 容 () 
If TypeName (Selection) = "Range" Then 
Selection.Value = "姓名 " 
Else 
MsgBox "选中 的 不 是 单元 格 或 单元 格 区 域 ! " 


End If 
End Sub 


注意 : 由 于 VBA 默认 使 用 二 进 制 方式 来 比较 文本 , 因此 与 TypeName 函数 的 返回 值 进行 比 
较 的 表示 对 象 类 型 的 字符 囊 必须 严格 遵守 大 小 写 格式 ， 即 以 大 写字 母 开 头 ， 其 他 字母 小 写 。 

与 预想 的 不 同 ， 在 输入 Selection 和 一 个 英文 句点 后 并 不 会 自动 弹出 包含 属性 和 方法 的 
成 员 列 表 ， 这 对 于 编写 代码 而 言 很 不 方便 。 解决 这 个 问题 的 一 种 方法 是 ， 先 声明 一 个 Range 
类 型 的 对 象 变量 ， 然 后 将 Selection 赋值 给 这 个 变量 ， 就 能 获得 自动 弹出 的 成 员 列 表 ， 如 
4-2 所 示 。 

Sub 在 选区 中 输入 内 容 () 


Dim rngSelection As Range 

Set rngSelection = Selection 

rngSelection.Value = "姓名 " 
End Sub 
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人 测试 xsm - 模块 1 (代码 ) 9 ES 
| 通用 了 | 技 革 选区 的 字体 
Dption Explicit 
sub 设置 选区 的 字体 () 
Din rngSelection As Range 
Set rngselection = Selection 
rngselection | 
End Sub Rotivate I 
SS AddC omment 
图 ! AddIndent 
图 Address 
EP AddressLocal 
AdvancedFilter 
:® AllocateChanges v 
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图 4-2 为 Selection 显示 自动 成 员 列 表 





4.2 ”获取 Excel 程序 的 相关 信息 


本 节 将 介绍 通过 Application 对 象 的 一 些 属性 来 获取 Excel 程序 的 相关 信息 的 方法 ， 这 些 信 
息 包括 Excel 版 本 号 、 用 户 名 、 安 装 路 径 、 启 动 文件 夹 路 径 以 及 工作 短 模 板 路 径 。 





4.2.1 获取 Excel 程序 的 版 本 号 
以 通过 Application 对 象 的 Version 属性 获取 Excel 程序 的 版 本 号 。 下 面 的 代码 返回 Excel 
程序 的 版 本 号 。 


Application.Version 


可 以 在 判断 结构 中 检测 Excel 程序 的 版 本 号 ， 然 后 给 出 不 同 的 提示 信息 或 适当 的 操作 。 


案例 4-2 根据 Excel 版 本 显示 不 同 信息 
下 面 的 代码 根据 检测 到 的 Excel 版 本 号 而 显示 不 同 的 信息 。Val 函数 是 VBA 的 一 个 内 置 函 
数 ， 使 用 该 函数 将 由 Version 属性 返回 的 字符 品类 型 的 版 本 号 转换 为 数值 ， 然 后 以 此 作为 Select 
Case 检测 的 值 ， 根 据 不 同 的 版 本 号 显示 不 同 的 信息 。 
Sub 根据 Excel 版 本 显示 不 同 信息 () 
Dim strMsg Rs String 
Select Case Val (Application.Version) 
Case 16: strMsg = "Excel 2016" 
Case 15: strMsg = "Excel 2013" 
Case 14: strMsg = "Excel 2010" 


Case 12: strMsg = "Excel 2007" 
Case Is <= 11: strMsg = "Excel 2003 或 更 低 版 本 " 


End Select 
MsgBox "当前 使 用 的 Excel 版 本 是 : " & strMsg 


End Sub 

提示 : Val 函数 返回 字符 串 中 从 第 一 个 字符 开始 的 连续 数字 。 如 果 字 符 串 由 数字 和 非 数 字 组 成 ， 
那么 Val 函数 只 会 返回 从 第 一 个 数字 开始 ， 直 到 遇 到 第 一 个 不 是 数字 的 字符 之 前 包含 的 这 些 数字 。 
例如 ，Val("1.68ABC168") 的 返回 值 是 1.68。 如 果 字 符 串 的 第 一 个 字符 不 是 数字 ，Val 函数 会 返回 0。 
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4.2.2 ”获取 在 Excel 程序 中 设置 的 用 户 名 
使 用 Application 对 象 的 UserName 属性 可 以 获取 在 “Excel 选项 ”对 话 框 中 设置 的 用 户 名 ， 
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如 图 4-3 所 示 。 下 面 的 代码 返回 Excel 程序 的 用 户 名 : 
Application.UserName 
Excel 选项 下 x 














图 4-3 在 “Excel 选项 ”对 话 框 中 设置 的 用 户 名 


4.2.3 ”获取 Excel 安装 路 径 、 启 动 文件 夹 路 径 和 工作 簿 模板 路 径 


1. 获取 Excel 程序 的 安装 路 径 

我 们 有 时 可 能 需要 知道 Excel 程序 的 安装 位 置 ， 从 而 在 程序 中 执行 一 些 特殊 操作 。 使 
Application 对 象 的 Path 属性 可 以 获取 Excel 程序 的 安装 路 径 ， 如 下 所 示 : 

Application.Path 

2. 获取 Excel 启动 文件 夹 的 路 径 

如 果 希 望 让 某 些 工作 短 随 Excel 自动 启动 ,以便 在 Excel 程序 运行 期 间 , 该 工作 适中 的 功能 
可 以 被 其 他 打开 的 工作 敌 使 用 。 使 用 Application 对 象 的 StartupPath 属性 可 以 获取 Excel 启动 文 
件 夹 的 路 径 ， 如 下 所 示 : 

Application.StartupPath 

3. 获取 Excel 工作 簿 模板 的 路 径 

如 果 需 要 处 理 Excel 的 工作 德 模板 ， 那 么 需要 知道 工作 短 模 板 的 路 径 。 使 用 Application 对 
象 的 TemplatesPath 属性 可 以 获取 Excel 工作 簿 模板 的 路 径 ， 如 下 所 示 : 


Application.TemplatesPath 



































4.3 设置 Excel 程序 的 界面 环境 与 操作 方式 


Application 对 象 的 一 个 主要 用 途 是 设置 Excel 程序 的 界面 环境 和 通用 选项 ， 通 常用 于 对 
Excel 操作 环境 的 初始 化 设置 。 本 节 将 介绍 一 些 用 于 控制 Excel 程序 界面 环境 与 操作 方式 的 
Application 对 象 的 属性 。 

4.3.1 设置 Excel 程序 的 可 见 性 
正常 情况 下 ， 启 动 的 Excel 程序 是 可 见 的 。 出 于 某 些 特殊 目的 ， 有 时 希望 以 隐藏 状态 启动 
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Excel 程序 并 在 幕后 执行 一 些 操 作 ， 此 时 可 以 使 用 Application 对 象 的 Visible 属性 。 该 属性 返回 
或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 表示 Excel 程序 可 见 ， 如 果 为 False 则 表示 Excel 
程序 不 可 见 ， 即 隐藏 。 下 面 的 代码 将 Excel 程序 设置 为 隐藏 状态 。 


Application.Visible = False 


4.3.2 ”设置 Excel 程序 窗口 是 否 全 屏 显 示 


Excel 程序 窗口 的 全 屏 显 示 与 窗口 最 大 化 不 同 ， 全 屏 显 示 会 将 Excel 窗口 中 的 标题 栏 、 功 能 
区 、 状 态 栏 和 编辑 栏 全 都 隐藏 起 来 ， 为 用 户 提供 最 大 尺寸 的 编辑 区 域 。 如 果 希 望 Excel 程序 窗 
全 屏 显 示 ， 而 不 是 普通 窗口 大 小 ， 那 么 可 以 设置 Application 对 象 的 DisplayFullScreen 属性 。 
属性 返回 或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 表示 Excel 程序 窗口 处 于 全 屏 显 示 ， 
果 为 False 则 表示 Excel 程序 窗口 未 全 屏 显 示 。 


案例 4-3 ”设置 Excel 窗口 全 屏 显 示 
下 面 的 代码 检查 Excel 程序 窗口 是 否 全 屏 显 示 ， 如 果 没 有 则 将 其 全 屏 显 示 。 


Sub 设置 Excel 窗口 全 屏 显 示 () 
If Not Application.DisplayFullScreen Then 
Application.DisplayFullScreen = True 
End If 
End Sub 


如 果 希 望 可 以 自动 在 全 屏 与 非 全 屏 之 间 切 换 显 示 ， 即 如 果 当 前 未 全 屏 显示 ， 则 将 Excel 程 
序 窗口 设置 为 全 屏 显示 ， 如 果 当 前 已 经 全 屏 显示 ， 则 将 Excel 程序 窗口 设置 为 非 全 屏 显 示 ， 那 
么 可 以 使 用 下 面 的 代码 : 


Sub 在 全 屏 与 非 全 屏 之 间 切 换 () 


Application.DisplayFullScreen = Not Application.DisplayFullScreen 
End Sub 


于 Application.DisplayFullScreen 返回 的 是 一 个 True 或 False， 因 此 对 该 返回 值 使 用 Not 
运算 符 取 反 则 得 到 一 个 与 返回 值 相反 的 False 或 True 。 例 如 ， 如 果 等 号 左边 的 
Application.DisplayFullScreen 的 返回 值 是 True， 则 表示 当前 处 于 全 屏 显 示 状 态 ， 那 么 在 等 号 右 
边 使 用 Not 运算 符 取 反 后 得 到 的 是 False， 然 后 将 该 结果 赋值 给 等 号 左边 的 DisplayFullScreen， 
就 可 以 将 全 屏 显示 改 为 非 全 屏 显 示 。 


4.3.3 ”设置 Excel 程序 窗口 的 状态 


窗口 的 状态 是 指 最 大 化 、 最 小 化 、 正 常 等 窗口 显示 方式 .使 用 Application 对 象 的 WindowState 
属性 可 以 返回 或 设置 窗口 的 状态 ， 返 回 或 设置 的 值 由 XIWindowState 常量 提供 ， 见 表 4-2。 
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表 4-2 XIWindowState 常量 











名 称 值 说 明 
xlMaximized -4137 最 大 化 
xlMinimized -4140 最 小 化 





XlNormal -4143 正常 























下 面 的 代码 将 当前 活动 的 Excel 程序 窗口 设置 为 最 大 化 : 
Application.WindowState = xlMaximized 


可 以 使 用 循环 结构 为 当前 打开 的 所 有 工作 德 窗口 设置 一 种 指定 的 窗口 状态 。 
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案例 4-4 ”将 所 有 Excel 窗口 最 大 化 
下 面 的 代码 使 用 For Each 循环 结构 将 打开 的 每 一 个 工作 敌 窗 口 都 设置 为 最 大 化 。 


Sub 将 所 有 Excel 窗口 最 大 化 () 
Dim winMyWindow As Window 
For Each winMyWindow In Windows 
winMyWindow.WindowState = xlMaximized 
Next winMyWindow 
End Sub 


下 面 的 代码 使 用 For Next 循环 结构 完成 了 相同 的 功能 : 
Sub 将 所 有 Excel 窗口 最 大 化 2() 


Dim intIndex As Integer 
For intIndex = 1 To Windows .Count 
Windows (intIndex) .WindowwState = xlMaximized 
Next intIndex 
End Sub 


4.3.4 设置 Excel 程序 窗口 的 尺寸 和 位 置 


Application 对 象 的 Height 和 Width 属性 用 于 设置 Excel 程序 窗口 的 高 度 和 宽度 ， 默 认 以 磅 
为 单位 。 由 于 厘米 通常 是 屏幕 尺寸 中 的 常用 单位 ， 因 为 可 以 使 用 Application 对 象 的 
CentimetersToPoints 方法 将 厘米 转换 为 磅 。 

在 设置 Height 和 Width 属性 时 需要 注意 ， 如 果 窗 口 的 状态 为 最 大 化 ， 那 么 无 法 设置 这 两 个 
属性 ， 如 果 窗 口 的 状态 为 最 小 化 ， 那 么 Height 属性 表示 的 是 该 Excel 窗口 的 任务 栏 按 钮 的 图 标 
高 度 。 换 句 话说， 只 有 在 窗口 的 状态 为 正常 时 ， 才 能 设置 Height 和 Width 属性 。 因 此 ， 在 设置 
Height 和 Width 属性 之 前 ， 需 要 检查 Excel 程序 窗口 的 当前 状态 。 

案例 4-5 ”设置 Excel 窗口 的 尺寸 

下 面 的 代码 将 当前 活动 的 Excel 窗口 的 宽度 设置 为 25 厘米 ， 高 度 设 置 为 18 厘米 。 首 先 检 
查 WindowState 属性 的 值 是 否 为 xINormal， 如 果 是 则 说 明 窗口 处 于 正常 状态 ， 此 时 可 以 设置 窗 
的 尺寸 。 然 后 使 用 Application 对 象 的 CentimetersToPoints 方法 将 输入 的 以 厘米 为 单位 的 宽度 
高 度 值 转换 为 磅 , 以 实现 按照 厘米 来 设置 窗口 的 尺寸 .代码 中 使 用 With 结 构 简 化 对 Application 
} 象 的 引用 。 

Sub 设置 Excel 窗口 的 尺寸 () 


With Application 
If .WindowState = xlNormal Then 
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学 


.Width = .CentimetersToPoints (25) 
.Height = .CentimetersToPoints (18) 
End If 
End With 


End Sub 

如 果 希 望 控制 Excel 程序 窗口 在 屏幕 中 的 位 置 , 则 可 以 使 用 Application 对 象 的 Left 和 Top 属性。 
Left 属性 用 于 设置 从 屏幕 左边 缘 到 Excel 程序 窗口 左边 缘 的 距离 ，Top 属性 用 于 设置 从 屏幕 上 边缘 
到 Excel 程序 窗口 上 边缘 的 距离 。 这 两 个 设置 都 以 磅 为 单位 如 果 希 望 使 用 厘米 为 单位 来 进行 设置 ， 
则 需要 使 用 上 一 个 案例 用 到 的 Application 对 象 的 CentimetersToPoints 方法 进行 转换 。 


案例 4-6 ”设置 Excel 窗口 在 屏幕 中 的 位 置 
下 面 的 代码 将 当前 活动 的 Excel 程序 窗口 的 位 置 设置 为 距离 屏幕 左边 缘 5 厘米 ， 同 时 距离 
屏幕 上 边缘 2 厘米 。 
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Sub 设置 Excel 窗口 在 屏幕 中 的 位 置 () 


With Application 


.Left = .CentimetersToPoints (5) 
.Top = .CentimetersToPoints (2) 
End With 
End Sub 























4.3.5 设置 Excel 程序 窗口 标题 栏 中 显示 的 名 称 


在 Excel 程序 窗口 的 标题 栏 中 同时 显示 了 当前 打开 的 工作 敌 的 名 称 以 及 Excel 程序 的 名 称 。 
Application 对 象 的 Caption 属性 用 于 返回 或 设置 Excel 程序 窗口 标题 栏 中 的 Excel 程序 名 ， 默 认 











显示 为 “Excel”。 下 面 的 代码 将 Excel 程序 窗口 标题 栏 中 的 程序 名 改 为 “人 事 管理 系统 ”， 效 








果 如 图 4-4 所 示 。 


Application.Caption = "人 事 管理 系统 " 
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图 4-4 设置 Excel 程序 窗口 标题 栏 中 显示 的 程序 名 称 


如 果 希 望 不 显示 Excel 程序 的 名 称 ， 可 以 将 只 包含 空格 的 字符 串 赋 值 给 Caption 属性 ， 如 下 
所 示 : 

Application.Caption = " 

如 果 希 望 恢复 为 默认 名 称 ， 可 以 将 空 字符 串 赋值 给 Caption 属性 ， 如 下 所 示 : 


Application.Caption = "" 


4.3.6 ”设置 编辑 栏 、 浮 动工 具 栏 和 “开发 工具 ”选项 卡 的 显示 状态 


1. 设置 编辑 栏 











编辑 栏 是 Excel 中 输入 公式 的 地 方 ， 默 认 情况 下 显示 编辑 栏 。 使 用 Application 对 象 的 
DisplayFormulaBar 属性 可 以 设置 编辑 栏 的 显示 状态 , 该 属性 返回 或 设置 一 个 Boolean 类 型 的 值 ， 
如 果 为 True 则 表示 显示 编辑 栏 ， 如 果 为 False 则 表示 隐藏 编辑 栏 。 下 面 的 代码 将 编辑 栏 隐藏 起 








来 ， 效 果 如 图 4-5 所 示 。 



































Application.DisplayFormulaBar = False 


2. 设置 浮动 工具 栏 





























相同 。ShowSelectionFloaties 属性 返回 
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于 设置 浮动 工具 栏 显示 状态 的 属性 有 两 个 ， 一 个 是 Application 对 象 的 ShowSelectionFloaties 
属性 ， 该 属性 与 “Excel 选项 ”对 话 框 “ 常 规 ” 选 项 卡 中 的 “选择 时 显示 浮动 工具 栏 ” 选 项 的 作 























或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 不 显示 浮动 工 
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有 具 栏 ， 如 果 为 False 则 显示 浮动 工具 栏 。 下 面 的 代码 在 单元 格 中 选择 内 容 时 禁止 显示 浮动 工具 栏 : 


Application.ShowSelectionFloaties = True 
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4-5 ”隐藏 编辑 栏 


虽然 ShowSelectionFloaties 属性 可 以 禁止 单元 格 处 理 编辑 状态 下， 选择 单元 格 中 的 内 容 时 
不 会 显示 浮动 工具 栏 ， 但 是 无 法 禁止 右 击 单元 格 时 显示 的 浮动 工具 栏 。 

如 果 希 望 在 右 击 单元 格 时 不 显示 浮动 工具 栏 ， 则 可 以 使 用 Application 对 象 的 
ShowMenuFloaties 属性 ， 该 属性 返回 或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 不 显示 浮动 
工具 栏 ， 如 果 为 False 则 显示 浮动 工具 栏 。 下 面 的 代码 禁止 在 右 击 单元 格 时 显示 浮动 工具 栏 ; 

Application.ShowMenuFloaties = True 

如 果 要 彻底 禁用 浮动 工具 栏 ， 则 可 以 将 ShowSelectionFloaties 和 ShowMenuFloaties 属性 都 
设置 为 True。 

3. 设置 “开发 工具 ”选项 卡 

使 用 Application 对 象 的 ShowDevTools 属性 可 以 设置 “开发 工具 ”选项 卡 的 显示 状态 ， 该 
属性 与 在 “Excel 选项 ”对 话 框 “ 自 定义 功能 区 ”选项 卡 右 侧 的 列表 框 中 是 否 选中 “开发 工具 ” 
复 选 框 的 作用 相同 ， 如 图 4-6 所 示 。 


Excel 选项 ? x 





















































“es 
| 自 定义 功能 区 .。 


从 下 列 位 置 选 泽 命令 (C) 


党 用 命令 





新 寻 运 页 #W | | 新 组 (W) | | 重 全 名 (W)- 
sx [nee | 











[evese -| 
3 
在 “Excel 选项 ”对 话 框 中 设置 “开发 工具 ”选项 卡 的 显示 状态 
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ShowDevTools 属性 返回 或 设置 一 个 Boolean 类 型 的 值 , 如 果 为 True 则 在 功能 区 中 显示 “ 开 
发 工具 ”选项 卡 ， 如 果 为 False 则 在 功能 区 中 不 显示 “开发 工具 ”选项 卡 。 下 面 的 代码 将 “ 开 
发 工具 ”选项 卡 显示 在 功能 区 中 。 


Application.ShowDevTools = True 


4.3.7 ”设置 状态 栏 中 显示 的 信息 


默认 情况 下 ，Excel 程序 窗口 底部 的 状态 栏 中 显示 了 单元 格 当 前 的 编辑 模式 。 我们 可 能 希望 
在 运行 一 个 耗 时 较 长 的 程序 时 能 够 显示 一 些 对 用 户 有 用 的 信息 ， 比 如 程序 运行 的 当前 进度 。 使 
Application 对 象 的 StatusBar 属性 可 以 返回 或 设置 状态 栏 中 显示 的 信息 。 
案例 4-7 自 定义 状态 栏 中 显示 的 信息 
时 下 面 的 代码 可 以 测试 For Each 循环 结构 中 的 对 象 变量 对 集合 中 每 一 个 对 象 的 引用 情况 。 首 
先 使 用 InputBox 函数 显示 一 个 对 话 框 ， 要 求 用 户 输入 一 个 表示 单元 格 区 域 的 地 址 。 然 后 将 这 个 
地 址 转换 为 Range 对 象 并 赋值 给 mgCells 对 象 变量 。 为 了 避免 由 于 用 户 输入 无 效 地 址 而 不 能 正 
确 转换 为 可 被 Excel 识别 的 单元 格 区 域 ， 因 此 加 入 了 防 错 程序 。 最 后 在 For Each 循环 结构 中 使 
用 mgCell 对 象 变量 在 指定 的 单元 格 区 域 中 依次 遍历 每 一 个 单元 格 , 并 在 状态 栏 中 显示 当前 处 理 
的 单元 格 的 地 址 。 程 序 的 运行 效果 如 图 4-7 所 示 。 
Sub 控制 状态 栏 中 显示 的 信息 () 
Dim rngCell As Range, rngCells As Range, strRange As String 
strRange = InputBox ("请 输入 单元 格 区 域 的 地 址 :") 
On Error Resume Next 
Set rngCells = Range (strRange) 
If Err.Number <> 0 Then MsgBox "输入 的 地 址 无 效 ! ": Exit Sub 
On Error GoTo 0 
For Each rngCell In rngCells 
Application.StatusBar = "正在 处 理 单元 格 : " & rngCell.Address (0，0) 


Next rngCell 
Application.StatusBar = False 
































































































































End Sub 
| 窒 例 4-7 - Excel 登录 国 口 
| 插入 ”页面 布局 公式 ”数据 ”审阅 ”视图 开发 工具 ”加载 项 。 @ 告诉 先 只 # 享 
让 
代码 加 载 项 控件 XML 和 
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Sheet1 ® 1 








正在 处 理 单元 格 : B112 





图 4-7 设置 状态 栏 中 显示 的 信息 
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注意 : 如 果 希 望 在 程序 运行 结束 后 将 状态 栏 的 控制 权 交 还 给 Excel， 以 使 状态 栏 恢 复 默 认 的 
操作 ， 则 需要 将 StatusBar 属性 设置 为 False， 正 如 在 上 面 案 例 中 看 到 的 ， 否 则 最 后 的 信息 会 一 
直 停 留 在 状态 栏 中 。 

4.3.8 设置 警告 信息 的 显示 方式 
[ 作 表 时 会 自动 弹出 如 图 4-8 所 示 的 对 话 框 ， 单 击 “ 删 除 ” 按 钮 ， 将 会 删除 该 


当 删 除 一 个 了 
工作 表 。 在 Excel 中 执行 的 很 多 操作 都 会 收 到 类 似 的 警告 信息 ， 比 如 关闭 未 保存 的 工作 敌 、 覆 
[ 作 短 、 合 并 非 空 单元 格 等 。 








盖 已 存在 的 了 











当 在 VBA 代码 中 包含 会 弹出 警告 信息 对 话 框 的 操作 时 , 程序 将 被 迫 中 断 











Microsoft Excel x 
上。 Microsoft Excel 将 永久 删除 此 工作 才 。 是 否 继续 ? 


Ew | Es 


图 4-8 执行 某 些 操作 时 显示 的 警告 信息 




















等 待 用 户 做 出 选 








择 。 但 是 即使 用 户 做 出 的 选择 与 VBA 代码 执行 的 操作 相反 ，Excel 也 会 认为 已 经 执行 了 代码 所 
要 执行 的 操作 。 仍然 以 上 面 提 到 的 删除 工作 表 为 例 , 如 果 用 户 在 警告 信息 对 话 框 中 没有 单 击 “ 删 
除 ”按钮 而 是 站 
而 导致 意外 的 结果 。 另 一 方面 ， 在 VBA 代码 运行 期 间 总 是 频繁 弹出 需要 用 户 确认 的 警告 信息 ， 
很 大 程度 上 会 影响 程序 执行 的 效率 和 流畅 度 。 


Application 对 象 的 DisplayAlerts 属性 用 于 设置 警告 信息 的 显示 方式 。 该 属性 返 
个 Boolean 类 型 的 值 ， 如 果 为 True 则 正常 显示 操作 过 程 中 


i 

















了 “取消 ”按钮 ， 那 么 Excel 仍然 会 认为 已 经 执行 了 删除 了 





[ 作 表 的 操作 ， 从 





EE 





或 设置 一 





Fb 产 生 的 警告 信息 ， 如 果 为 False 则 不 





显示 警告 信息 ， 并 自动 执行 与 警告 信息 对 话 框 中 默认 的 按钮 相关 联 的 操作 ， 比 如 在 删除 工作 表 
时 显示 的 警告 信息 对 话 框 中 的 默认 操作 是 单 击 “删除 ”按钮 。 
案例 4-8 ”控制 警告 信息 的 显示 方式 
下 面 的 代码 在 执行 删除 当前 活动 的 工作 表 操 作 之 前 ， 屏 蔽 了 警告 信息 对 话 框 ， 在 删除 工作 
表 操 作 之 后 ， 重 新 恢复 显示 Excel 默认 的 警告 信息 对 话 框 。 
Sub 控制 警告 信息 的 显示 方式 () 


Application.DisplayAlerts = False 
ActiveSheet .Delete 
Application.DisplayAlerts = True 

















End Sub 








在 执行 完 可 能 会 显示 提示 信息 对 话 框 的 操作 后 ， 应 该 将 DisplayAlerts 属性 设置 为 True， 以 
恢复 Excel 默认 的 提示 信息 功能 ， 从 而 避免 在 没有 任何 提示 的 情况 下 执行 意 想不到 的 操作 。 当 
VBA 过 程 运行 结束 后 ，Excel 会 自动 将 DisplayAlerts 属性 设置 为 True。 


4.3.9 ”设置 新 工作 簿 中 默认 包含 的 工作 表 数 量 





认 包含 3 个 工 f 





中 默认 包含 的 了 


Lf 











FE 表 数量 ， 该 属性 与 在 “Excel 选项 ”对 话 框 “ 常 规 ”选项 卡 








的 人 




















相同， 如 图 4-9 所 示 。 








在 Excel 2016 中 新 建 的 工作 禾 默 认 只 包含 一 个 工作 表 ， 而 在 Excel 2010 中 新 建 的 工作 禾 默 
E 表 。 使 用 Application 对 象 的 SheetsInNewWorkbook 属性 可 以 设置 新 建 的 工作 敌 











Pp 的 “包含 的 工作 
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[使 用 Excel 时 采用 的 常规 选项 . 
Lase 


校对 用 户 界面 选项 








图 4-9 设置 新 建 的 工作 簿 中 默认 包含 的 工作 表 数 量 


下 面 的 代码 将 默认 工作 表 的 数量 设置 为 6， 以 后 每 次 新 建 工 作 短 时 ， 其 中 都 会 自动 包含 6 
个 工作 表 。 


Application.SheetsInNewWorkbook = 6 


吉 4.3.10 ”设置 工作 簿 的 默认 字体 和 字号 


使 用 Application 对 象 的 StandardFont 和 StandardFontSize 属性 可 以 设置 新 建 的 工作 适中 默 
认 使 用 的 字体 和 字号 。StandardFont 属性 用 于 设置 默认 字体 ，StandardFontSize 属性 用 于 设置 默 
认 字 号 。 这 两 个 属性 与 在 “Excel 选项 ”对 话 框 “常规 ”选项 卡 中 的 “使 用 此 字体 作为 默认 字体 ” 
和 “字号 ”选项 的 作用 相同 。 下 面 的 代码 分 别 将 新 建 的 工作 短 中 的 默认 字体 设置 为 “黑体 ” 
默认 字号 设置 为 “16”: 


Application.StandardFont = "黑体 " 
Application.StandardFontSize = 16 

























































































提示 : 要 使 新 设置 的 默认 字体 和 字号 生效 ， 必 须 退 出 Excel 程序 并 重新 启动 。 


4.3.11 设置 打开 文件 时 的 默认 路 径 


默认 情况 下 ， 当 在 Excel 中 显示 “打开 ”对 话 框 以 打开 某 个 文件 时 ， 对 话 框 中 默认 定位 到 
的 位 置 是 当前 登录 系统 的 用 户 的 “我 的 文档 ”文件 夹 ， 这 是 Excel 中 打开 文件 的 默认 位 置 。 如 
果 经 常 使 用 的 文件 位 于 某 个 特定 位 置 ， 则 可 以 将 该 位 置 设置 为 Excel 中 默认 的 文件 打开 位 置 ， 
以 加 快 打 开 文 件 的 速度 。 

使 用 Application 对 象 的 DefaultFilePath 属性 可 以 设置 打开 文件 的 默认 位 置 , 该 属性 与 在 “Excel 
选项 ”对 话 框 “ 保 存 ” 选 项 卡 中 的 “默认 本 地 文件 位 置 ” 选 项 的 作用 相同 ， 如 图 4-10 所 示 。 

下 面 的 代码 将 打开 文件 的 默认 位 置 设置 为 E 盘 根 目 录 下 名 为 “重要 文件 ”的 文件 夹 : 


Application.DefaultFilePath = "E:\ 重 要 文件 " 


如 果 为 DefaultFilePath 属性 指定 的 文件 夹 不 存在 ， 则 将 不 会 改变 最 近 一 次 成 功 设置 的 打 
文件 的 默认 位 置 ， 而 且 也 不 会 显示 设置 失败 的 提示 信息 。 因 此 ， 为 了 避免 设置 了 无 效 的 位 置 ， 
可 以 加 入 防 错 代码 。 
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园 XI 和 Re 方法 . 












IC\Users\sxi\Documents 








(*.csv) 时 显示 数据 丢失 警告 











图 4-10 设置 打开 文件 的 默认 位 置 


案例 4-9 设置 打开 文件 的 默认 位 置 

下 面 的 代码 使 用 一 个 String 数据 类 型 的 变量 存储 用 户 在 对 话 框 中 输入 的 表示 默认 位 置 的 路 
径 。 然 后 在 I Then 结构 中 使 用 VBA 内 置 的 Dir 函数 检查 输入 的 路 径 是 否 存在 ， 如 果 该 函数 返 
可 空 字符 串 ， 则 表示 路 径 不 存在 ， 和 否则 表示 路 径 存在 。 如 果 路 径 不 存在 ， 则 会 显示 提示 信息 并 
结束 程序 ， 如 果 路 径 存在 则 将 其 设置 为 打开 文件 的 默认 位 置 。 


Sub 设置 打开 文件 的 默认 位 置 () 
Dim strPath As String 
strPath = InputBox (" 请 指定 打开 文件 的 默认 位 置 : ") 





















































IE strPath = "OF Dir(strPath) = "" Then 
MsgBox "指定 的 位 置 不 存在 ! " 
Exit Sub 
Else 
Application.DefaultFilePath = strPath 
End If 
End Sub 


4.3.12 ”控制 屏幕 刷新 


在 运行 一 段 耗 时 较 长 的 程序 时 ， 可 能 不 想 看 到 频繁 闪烁 的 屏幕 。 使 用 Application 对 象 的 
ScreenUpdating 属性 可 以 控制 屏幕 刷新 的 方式 。 该 属性 返回 或 设置 一 个 Boolean 类 型 的 值 , 如 果 
为 True 则 开启 屏幕 刷新 ， 如 果 为 False 则 关闭 屏幕 刷新 。 

下 面 的 代码 关闭 了 屏幕 刷新 ， 在 程序 运行 的 过 程 中 屏幕 显示 将 不 会 发 生变 化 ， 从 而 可 以 加 
快 程序 的 运行 速度 。 

Application.ScreenUpdating = False 

当 程序 运行 结束 后 ， 才 会 在 屏幕 中 显示 最 终结 果 。 或 者 可 以 在 代码 中 的 任何 位 置 加 入 下 面 
的 语句 ， 以 随时 显示 屏幕 的 变化 情况 。 

Application.ScreenUpdating = True 

提示 : 如 果 需 要 在 程序 运行 的 过 程 中 显示 Excel 内 置 对 话 框 或 用 户 窗 体 ， 那 么 需要 开启 屏 
幕 刷新 ， 否 则 在 拖 动 对 话 框 时 ， 将 会 在 屏幕 上 产生 橡皮 擦 的 效果 。 
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4.4 使 用 Excel 程序 


本 节 将 介绍 使 用 Application 对 象 的 几 个 方法 来 完成 一 些 有 用 的 工作 ， 有 具体 包括 以 下 几 个 方 
法 : OnTim、OnKey、Evaluate、SendKeys。 还 介绍 了 如 何在 VBA 中 使 用 工作 表 函 数 。 






































4.4.1 定时 自动 运行 VBA 过 程 
使 用 Application 对 象 的 OnTime 方法 可 以 在 指定 的 时 间 自 动 运行 指 定 的 VBA 过 程 。 实 现 
这 一 功能 的 前 提 条 件 是 必须 已 经 启动 了 Excel 程序 , 让 Excel 程序 运行 于 内 存 中 。 在 定时 自动 执 
行 指定 的 VBA 过 程 之 前 ， 用 户 在 Excel 中 进行 的 各 种 操作 都 不 受 影响 。OnTime 方法 包含 4 个 
参数 ， 语 法 格式 如 下 : 
Application.OnTime (EarliestTime, Procedure, LatestTime, Schedule) 
口 EarliestTime: 必 选 ， 运 行 VBA 过 程 的 时 间 。 
口 Procedure: 必 选 ， 要 运行 的 VBA 过 程 的 名 称 。 
口 LatestTime: 可 选 ， 开 始 运行 VBA 过 程 的 最 晚 时 间 。 
口 Schedule: 可 选 , 一 个 Boolean 类 型 的 值 。 如 果 为 True 则 设置 一 个 新 的 定时 运行 的 VBA 
过 程 ， 如 果 为 False 则 清除 之 前 设置 的 某 个 VBA 过 程 。 如 果 省 略 该 参数 ， 则 其 值 默认 
为 True。 
在 指定 过 程 运行 的 时 间 时 , 可 以 使 用 VBA 内 置 的 TimeValue 或 TimeSerial 函数 .TimeValue 
函数 包含 一 个 参数 ， 是 一 个 表示 时 间 的 字符 串 。TimeSerial 函数 包含 3 个 参数 ， 分 别 表示 时 间 
中 的 时 、 分 、 秒 。 下 面 两 种 形式 表示 的 都 是 下 午 两 点 半 : 


TimeValue ("14:30:00") 
TimeSerial (14, 30, 0) 


























案例 4-10 ”在 指定 时 间 定时 执行 任务 

下 面 的 代码 将 在 当天 下 午 2 点 30 分 自动 运行 名 为 “会 议 提醒 ”的 VBA 过 程 ， 用 于 向 用 户 
发 出 会 议 提醒 的 提示 信息 ， 其 中 使 用 TimeValue 函数 来 指定 时 间 。 编 写 好 代码 后 ， 需 要 运行 名 
为 “定时 执行 任务 ”的 过 程 ， 在 下 午 2 点 30 分 将 会 自动 显示 “今天 下 午 4 点 有 个 重要 会 议 ! ” 
的 提示 信息 。 

Sub 定时 执行 任务 () 


Application.OnTime TimeValue ("14:30:00") ，" 会 议 提醒 " 
End Sub 












































Sub 会 议 提醒 () 
MsgBox "今天 下 午 4 点 有 个 重要 会 议 ! " 
End Sub 


下 面 的 代码 可 以 完成 相同 的 任务 ， 但 是 使 用 TimeSerial 函数 来 指定 时 间 。 


Sub 定时 执行 任务 2 () 
Application.OnTime TimeSerial(14，30，0) ，" 会 议 提 醒 2" 
End Sub 

















Sub 会 议 提醒 2 () 
MsgBox "今天 下 午 4 点 有 个 重要 会 议 ! " 
End Sub 
也 可 以 指定 在 距离 现在 多 长 时 间 之 后 运行 VBA 过 程 ， 此 时 可 以 使 用 Now 函数 来 表示 当前 
时 间 ， 将 其 与 TimeValue 或 TimeSerial 函数 相 加 即 可 得 到 间隔 多 久之 后 的 时 间 。 
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案例 4-11 隔 多 长 时 间 后 定时 执行 任务 

下 面 的 代码 在 30 分 钟 后 运行 名 为 “会 议 提醒 ”的 VBA 过 程 ， 其 中 使 用 TimeValue 函数 来 
指定 时 间 。 

Sub 定时 执行 任务 () 


Application.OnTime Now + TimeValue ("00:30:00")， "会议 提醒 " 
End Sub 






































Sub 会 议 提醒 () 
MsgBox "今天 下 午 4 点 有 个 重要 会 议 ! " 
End Sub 
下 面 的 代码 可 以 完成 相同 的 任务 ， 但 是 使 用 TimeSerial 函数 来 指定 时 间 。 
Sub 定时 执行 任务 2 () 


Application.OnTime Now + TimeSerial(0，30，0) ，" 会 议 提醒 2" 
End Sub 

















Sub 会 议 提醒 2 () 
MsgBox "今天 下 午 4 点 有 个 重要 会 议 ! " 
End Sub 


除了 按照 预定 的 时 间 自 动 运行 VBA 过 程 之 外 , 还 能 够 以 固定 的 时 间 间 隔 自动 重复 运行 VBA 
过 程 ， 方 法 是 在 要 运行 的 VBA 过 程 内 部 使 用 Application 对 象 的 OnTime 方法 ， 并 将 Procedure 
参数 指定 为 该 过 程 本 身 。 

案例 4-12 ”定时 重复 执行 任务 

下 面 的 代码 每 隔 30 分 钟 发 出 一 次 会 议 提醒 的 提示 信息 ， 在 OnTime 方法 中 将 Procedure 参 
数 指定 为 该 过 程 自身 ， 即 “会 议 提 醒 ”。 运 行 该 过 程 后 ， 将 会 每 隔 30 分 钟 收 到 一 次 会 议 提 醒 的 

Sub 会 议 提醒 () 


Application.OnTime Now + TimeSerial(0，30，0) ，" 会 议 提醒 " 


MsgBox "今天 下 午 4 点 有 个 重要 会 议 ! " 
End Sub 


有 时 可 能 需要 取消 已 经 进入 自动 执行 状态 的 VBA 过 程 , 尤其 是 像 上 面 设置 为 以 指定 时 间 间 
复 运行 的 VBA 过 程 ， 为 此 需要 将 OnTime 方法 的 第 4 个 参数 设置 为 False。 

案例 4-13 ”取消 定时 任务 

下 面 的 代码 在 模块 顶部 的 声明 部 分 创建 了 一 个 名 为 datTime 的 模块 级 变量 ， 用 于 存储 需要 
停止 自动 运行 的 VBA 过 程 的 时 间 安 排 ， 该 变量 中 的 值 可 在 模块 中 的 各 个 过 程 之 间 传递 。 运 行 
名 为 “会 议 提醒 ”的 过 程 后 ， 将 会 每 隔 30 分 钟 自动 运行 该 过 程 自身 。 如 果 要 停止 执行 该 任务 计 
划 ， 则 需要 运行 名 为 “取消 会 议 提醒 ”的 过 程 。 


Dim datTime Rs Date 















































jh 
哪 
































Sub 会 议 提醒 () 
datTime = Now + (TimeSerial(0, 30, 0)) 
Application.OnTime datTime，" 会 议 提 醒 " 


MsgBox "今天 下 午 4 点 有 个 重要 会 议 ! " 
End Sub 


Sub 取消 会 议 提醒 () 
Application.OnTime datTime，" 会 议 提醒 "，，False 
End Sub 


。89 。 


Excel VBA 编程 实战 宝典 


4.4.2 为 VBA 过 程 指定 快捷 键 


使 用 Application 对 象 的 OnKey 方法 可 以 为 指定 的 VBA 过 程 设置 快捷 键 ， 按 下 快捷 键 后 将 
会 执行 该 过 程 。OnKey 方法 的 功能 与 “录制 宏 ” 对 话 框 中 的 快捷 键 设置 类 似 ， 但 是 可 以 提供 更 
多 的 按键 选择 ， 比 如 由 Ctrl、Shift、Alt 键 与 其 他 按键 的 组 合 。OnKey 方法 的 语法 格式 如 下 : 

Application.OnKey (Key, Procedure) 

口 Key: 必 选 ， 要 指定 给 VBA 过 程 的 快捷 键 ， 可 以 是 单个 按键 或 多 个 按键 的 组 合 。 

口 Procedure: 可 选 ， 要 设置 快捷 键 的 VBA 过 程 的 名 称 。 

表 4-3 列 出 了 除 字 母 键 、 数 字 键 和 符号 键 之 外 的 其 他 按键 在 OnKey 方法 中 的 表示 方式 。 字 
母 键 、 数 字 键 和 符号 键 表示 为 其 本 身 ， 比 如 字母 A 在 OnKey 中 表示 为 “A”。 符 号 键 中 的 ^、+ 
和 % 分 别 用 于 表示 Ctrl、Shift 和 Alt 键 ， 因 此 如 果 要 将 这 3 个 键 作 为 快捷 键 组 合 中 的 按键 ， 那 
么 需要 为 它们 加 上 大 括号 ， 比 如 由 Ctrl 与 加 号 键 组 成 的 组 合 键 表示 为 “^{+}”。 


表 4-3 ”按键 在 OnKey 方法 中 对 应 的 代码 


wa 












































Shift + FI1~F15 Fl} 一 {F15} 
Ctrl ^ Tab TAB} 

Alt % Ins {INSERT} 
Enter {ENTER} 或 一 (波形 符 ) Break BREAK} 

Esc {ESCAPE} 或 {ESC} 向 上 {UP} 
Backspace {BACKSPACE} 或 {BS} 向 下 DOWN} 
Delete 或 Del {DELETE} 或 {DEL} 向 左 LEFT} 

Home {HOME} 向 右 RIGHT} 

End {END} Caps Lock CAPSLOCK} 
Pageup {PGUP} Num Lock NUMLOCK} 
Pagedown {PGDN} Scroll Lock SCROLLLOCK} 


案例 4-14 ”使 用 快捷 键 加 快 过 程 的 运行 速度 

下 面 的 代码 将 Ctrl+C 组 合 键 指定 给 名 为 “显示 欢迎 信息 ”的 过 程 。 之 后 运行 名 为 “设置 快 
捷 键 ”的 过 程 ， 然 后 就 可 以 使 用 Ctrl+C 组 合 键 来 运行 名 为 “显示 欢迎 信息 ”的 过 程 ， 该 组 合 键 
默认 的 用 于 完成 复制 操作 的 功能 将 被 “显示 欢迎 信息 ”过 程 代 替 。 

Sub 设置 快捷 键 () 


Application.OnKey "^c"，" 显 示 欢 迎 信息 " 
End Sub 









































Sub 显示 欢迎 信息 () 
MsgBox "Hello" 
End Sub 


提示 : 指定 快捷 键 的 过 程 只 需 运 行 一 次 ， 快 捷 键 即 可 在 当前 打开 的 所 有 工作 簿 中 有 效 ， 但 
有 效 期 仅 在 Excel 程序 运行 期 间 。 
如 果 希 望 将 按键 恢复 为 Excel 的 默认 功能 ， 则 可 以 省 略 OnKey 方法 的 第 二 参数 ， 下 面 的 代 
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码 恢复 Ctrl+C 组 合 键 在 Excel 中 的 默认 功能 : 





Application.OnKey eh 
如 果 要 禁用 按键 的 正常 功能 ， 则 可 以 将 OnKey 方法 的 第 二 参数 设置 为 空 字符 串 。 下 面 的 代 
码 禁 用 完成 复制 操作 的 组 合 键 Ctrl+C: 


Application.OnKey "^c", "" 


上 面 代码 中 使 用 的 是 小 写字 母 C， 如 果 改 为 大 写字 母 C， 则 “^C” 表 示 的 是 Ctrl+Shift+C 










































































4.4.3 ”向 其 他 程序 发 送 按键 信息 


使 用 Application 对 象 的 SendKeys 方法 可 以 发 送 按键 信息 来 控制 不 支持 其 他 交互 形式 的 应 

程序 ， 比 如 OLE 或 DDE。SendKeys 方法 的 语法 格式 如 下 : 

Application.SendKeys (Keys, Wait) 

口 Keys: 必 选 ， 以 字符 串 形式 发 送 给 其 他 程序 的 一 个 或 多 个 按键 。 按 键 在 SendKeys 方法 
中 的 表示 方式 与 OnKey 方法 相同 ， 具 体 的 按键 代码 可 参考 4.4.2 节 。 

口 Wait: 可 选 ， 一 个 Boolean 类 型 的 值 。 如 果 为 True 则 Excel 会 等 到 处 理 完 按键 后 将 控制 
权 交 给 当前 的 VBA 过 程 ， 如 果 为 False 则 继续 运行 程序 而 不 会 等 到 处 理 完 按键 。 如 果 
省 略 该 参数 ， 则 默认 其 值 为 False。 

案例 4-15 使 用 SendKeys 方法 发 送 按键 信息 

下 面 的 代码 启动 Windows 系统 中 的 记事 本 程序 ， 并 在 其 中 输入 了 “Hello”， 然 后 打开 记 

本 程序 的 “另存 为 ”对 话 框 。 
Sub 使 用 SendKeys 方法 发 送 按键 信息 () 


Shell "notepad.exe", vbNormalFocus 
Application.SendKeys "Hello", True 
Application.SendKeys "%fa" 

End Sub 


提示 : 当前 处 于 活动 状态 的 语言 输入 法 会 影响 SendKeys 方法 发 送 按键 信息 的 结果 。 

当 需 要 在 对 话 框 中 填写 一 些 内 容 , 比如 密码 , 那么 必须 在 显示 对 话 框 之 前 , 先 使 用 SendKeys 
方法 发 送 与 输入 的 内 容 对 应 的 按键 信息 。 

案例 4-16 使 用 SendKeys 方法 向 对 话 框 发 送 按键 信息 

下 面 的 代码 在 对 话 框 中 填写 “Hello”， 在 显示 由 InputBox 函数 产生 的 对 话 框 之 前 ， 先 使 用 
SendKeys 方法 发 送 了 按键 信息 。 

Sub 使 用 SendKeys 方法 向 对 话 框 发 送 按键 信息 () 


Application.SendKeys "Hello", True 
InputBox "请 输入 问候 语 : " 
End Sub 


4.4.4 计算 字符 串 表 达 式 


使 用 Application 对 象 的 Evaluate 方法 可 以 将 一 个 字符 串 表 达 式 转换 为 一 个 Excel 对 象 或 一 
个 值 ， 语 法 格式 如 下 : 
Application.Evaluate (Name) 


该 方法 只 有 一 个 参数 ， 表 示 要 进行 转换 的 字符 串 表达 式 。 
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Evaluate 方法 还 支持 一 种 更 简洁 的 格式 : 使 用 一 对 方 括号 将 字符 串 表达 式 包围 起 来 ， 不 需 
要 使 用 Evaluate 关键 字 。 下 面 两 行 代码 的 作用 相同 ， 都 用 于 引用 Al 单元 格 : 


Application.Evaluate ("Al") 
Al] 


下 面 两 行 代码 都 可 以 计算 2、5 和 8 三 个 数 的 乘积 。 使 用 Evaluate 方法 时 可 以 省 略 其 左 侧 的 
Application 对 象 。 


Evaluate ("2*5*8") 
[2*5*8] 


使 用 方 括号 的 优点 是 可 以 使 代码 更 简洁 。 使 用 Evaluate 关键 字 的 优点 在 于 可 以 随意 组 合 构 
成 其 参数 的 字符 串 表 达 式 ， 而 且 可 以 在 其 中 使 用 变量 ， 让 字符 串 表 达 式 变 得 更 灵活 。 
案例 4-17 在 Evaluate 方法 中 使 用 变量 
下 面 的 代码 用 于 计算 由 用 户 指定 的 数字 的 平方 根 ， 在 Evaluate 方法 的 参数 中 使 用 了 一 个 变 
量 ， 该 变量 存储 用 户 在 对 话 框 中 输入 的 数字 。 
Sub 在 Evaluate 方法 中 使 用 变量 () 
Dim strNumber As String 
strNumber = InputBox (" 请 输入 要 计算 的 数字 : ") 
If ISNumeric (stINumber) Then 
MsgBox strNumber & "的 平方 根 是 " & Evaluate("sqrt(" & strNumber & ")") 


End If 
End Sub 


注意 : 上 面 代 码 中 用 于 计算 平方 根 的 函数 是 工作 表 中 的 SQRT 函数 ， 不 能 在 Evaluate 方法 
中 以 字符 串 的 形式 使 用 VBA 内 置 的 SQR 函数 ， 否 则 会 出 现 运行 时 错误 。 


4.4.5 在 VBA 中 使 用 Excel 工作 表 函 数 


在 VBA 中 可 以 使 用 两 组 内 置 函 数 ， 一 组 函数 是 VBA 语言 元 素 中 的 一 部 分 ， 另 一 组 函数 是 
在 Excel 工作 表 公式 中 使 用 的 函数 。 在 VBA 代码 中 可 以 直接 使 用 VBA 内 置 函数 ， 而 如 果 要 在 
VBA 代码 中 使 用 Excel 工作 表 函 数 ， 则 需要 通过 Application 对 象 的 WorksheetFunction 属性 来 
实现 。Application 对 象 的 WorksheetFunction 属性 返回 WorksheetFunction 对 象 ， 该 对 象 包 含 的 
方法 就 是 Excel 工作 表 函 数 的 子 集 。 
如 果 一 个 VBA 内 置 函数 和 一 个 Excel 工作 表 函 数 具 有 相同 的 功能 ， 那 么 在 VBA 代码 中 就 
不 能 直接 使 用 Excel 工作 表 函 数 。 例 如 ，VBA 内 置 的 SQR 函数 与 Excel 工作 表 函 数 SQRT 都 可 
用 于 计算 数字 的 平方 根 ， 因 此 在 VBA 中 只 能 使 用 SQR 函数 ， 而 不 能 直接 使 用 SQRT 函数 。 如 
果 要 在 VBA 中 使 用 与 SQR 函数 具有 相同 功能 的 工作 表 函 数 SQRT， 则 需要 使 用 前 面 介绍 的 
Evaluate 方法 以 字符 串 的 形式 来 实现 。 

VBA 内 置 函数 并 没有 提供 很 多 常用 的 计算 和 统计 功能 ， 比 如 求 和 、 计 数 、 求 最 大 值 /最 小 
值 等 ， 而 使 用 现成 的 工作 表 函 数 则 可 以 使 代码 的 编写 更 简单 。 
案例 4-18 在 VBA 中 使 用 工作 表 函 数 
下 面 的 代码 要 求 用 户 在 对 话 框 中 输入 以 英文 逗号 分 隔 的 多 个 数字 ， 然 后 使 用 VBA 内 置 的 
Split 函数 将 其 解析 为 一 个 数组 , 最 后 使 用 Excel 工作 表 函 数 COUNTA 统计 该 数组 中 包含 的 元 素 
个 数 。 本 例 代码 的 运行 效果 如 图 4-11 所 示 。 

Sub 在 VBA 中 使 用 工作 表 函 数 () 


Dim varNumbers As Variant 
varNumbers = Split (InputBox (" 请 输入 以 英文 逗号 分 隔 的 多 个 数字 : ")，",") 
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MsgBox "一 共 输 入 了 " & Application.WorksheetFunction.CountA(varNumbers) & "个 数字 " 
End Sub 





Microsoft Excel x 





Microsoft Excel x 
请 给 入 以 基文 运 号 分 隔 的 多 个 数字 : | 一 共 给 入 了 3 个 数字 

取消 
ra 


图 4-11 使 用 工作 表 函 数 统计 输入 数字 的 个 数 


提示 : Split 函数 一 共有 4 个 参数 ， 最 常用 的 是 前 两 个 参数 ， 第 一 个 参数 表示 要 解析 为 数组 
的 字符 串 ， 第 二 个 参数 表示 用 于 标识 子 字符 串 边 界 的 字符 ， 子 字符 串 就 是 要 作为 解析 为 数组 中 
包含 的 数组 元 素 。 
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Excel 对 象 模型 中 的 Workbook 对 象 专门 用 于 处 理工 作 短 , 但 是 新 建 与 打开 工作 短 的 操作 需 
要 使 用 Workbooks 集合 进行 处 理 。 本 章 将 同时 介绍 Workbooks 集合 与 Workbook 对 象 ， 使 用 它 
们 提供 的 属性 和 方法 可 以 完成 与 工作 敌 相 关 的 大 量 操作 。 














5.1 理解 Workbooks 集合 与 Workbook 对 象 


Workbooks 集合 包含 当前 打开 的 所 有 工作 短 ， 其 中 的 每 一 个 工作 夭 都 是 一 个 Workbook 对 
象 。 本 节 将 介绍 Workbooks 集合 与 Workbook 对 象 的 基本 概念 及 其 常用 的 属性 和 方法 ， 在 本 章 
后 面 的 内 容 中 将 会 详细 介绍 这 些 属 性 和 方法 的 具体 应 用 。 
5.1.1 Workbooks 集合 的 常用 属性 和 方法 

Workbooks 集合 只 包含 几 个 属性 和 方法 , 表 5-1 和 表 5-2 列 出 了 其 中 比较 常用 的 属性 和 方法 。 


表 5-1 Workbooks 集合 的 常用 属性 















































属 性 说 了 明 
Count 返回 当前 打开 的 所 有 工作 短 的 总 数 
Item 以 名 称 或 索引 号 来 引用 当前 打开 的 某 个 工作 迁 











表 5-2 Workbooks 集合 的 常用 方法 











por 说 了 明 
Add 新 建 一 个 工作 短 ， 并 使 其 成 为 活动 工作 短 
Close 关闭 当前 打开 的 所 有 工作 短 
Open 打开 一 个 工作 短 


5.1.2 ”Workbook 对 象 的 常用 属性 和 方法 
Workbook 对 象 包含 很 多 属性 和 方法 ， 表 5-3 和 表 5-4 列 出 了 其 中 比较 常用 的 属性 和 方法 。 
表 5-3 Workbook 对 象 的 常用 属性 











































































































属 性 说 明 
ActiveChart 返回 工作 矢 中 的 活动 图 表 ， 可 能 是 图 表 工 作 表 ， 也 可 能 是 由 入 式 图 表 
ActiveSheet | 返回 工作 夭 中 的 活动 工作 表 ， 可 能 是 工作 表 ， 也 可 能 是 图 表 工 作 表 
Charts | 返回 工作 短 中 的 所 有 图 表 工 作 表 
FullName 返回 工作 矢 的 完整 路 径 ， 同 时 包含 工作 入 "的 路 径 和 名 称 
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续 表 
属 性 说 明 
HasPassword 返回 是 否 为 工作 短 设 置 了 密码 ， 如 果 是 则 为 True， 否 则 为 False 
Name 返回 工作 等 的 文件 名 
了 Password 返回 或 设置 工作 簿 的 密码 ， 该 密码 是 在 打开 工作 短 时 需要 提供 的 密码 
Path 返回 工作 短 的 路 径 ， 不 包含 路 径 末 尾 的 分 隔 符 和 文件 名 
Saved 返 加 或 设置 工作 短 从 上 次 保存 至 今 是 否 发 生 过 更 改 , 如 果 是 则 为 True, 否则 
为 False 
Sheets 返回 工作 短 中 的 所 有 工作 表 和 图 表 工 作 表 
ee 返回 工作 短 中 的 所 有 窗口 。 如 果 在 Windows 属性 之 前 不 使 用 对 象限 定 符 ， 
则 返回 Excel 中 的 所 有 窗口 ， 而 不 只 是 指定 工作 簿 中 的 所 有 窗口 
Worksheets 返回 工作 短 中 的 所 有 工作 表 ， 不 包含 图 表 工 作 表 
表 5-4 Workbook 对 象 的 常用 方法 
2 说 明 
Close 关闭 工作 簿 
Save 保存 对 指定 工作 夭 所 做 的 更 改 
SaveAs 在 另 一 不 同文 件 中 保存 对 工作 短 所 做 的 更 改 
5.1.3 引用 工作 簿 





引用 工作 矢 是 使 用 VBA 对 工作 短 执 行 很 多 操作 的 前 提 , 因为 它 指明 了 要 操作 的 是 哪个 或 哪 ss 
些 工作 短 。 第 3 章 介绍 对 象 编程 的 基础 知识 时 已 经 介绍 过 如 何 引 用 集合 中 的 对 象 ， 引 用 工作 短 
的 方法 与 其 类 似 。 
Workbooks 表示 当前 打开 的 所 有 工作 短 ， 要 从 中 引用 某 个 特定 的 工作 夭 ， 可 以 使 用 工作 短 
的 名 称 或 索引 号 。 如 果 在 当前 打开 的 所 有 工作 短 中 存在 一 个 名 为 “销售 数据 ”的 工作 夭 ， 并 且 
该 工作 短 是 第 二 个 打开 的 工作 短 ， 那 么 下 面 两 行 代码 都 可 以 引用 该 工作 短 : 


Workbooks (" 销 售 数据 ") 
Workbooks (2) 


除了 上 面 介绍 的 引用 特定 工作 敌 的 常规 方法 之 外 , Excel 还 提供 了 引用 工作 德 的 其 他 两 种 方 
法 一 一 ActiveWorkbook 和 ThisWorkbook。ActiveWorkbook 引用 的 是 活动 工作 敌 ， 无 论 其 名 称 是 
什么 ， 引用 的 都 是 处 于 活动 状态 的 那个 工作 夭 ， 为 编写 通用 的 代码 提供 了 方便 。ThisWorkbook 引 
的 是 包含 正在 运行 的 VBA 代码 的 工作 夭 ，ThisWorkbook 是 加 载 项 工作 德 引 用 其 自身 的 唯一 方 
法 。 如 果 包 含 代码 的 工作 短 是 活动 工作 夭 ， 那 么 下 面 两 行 代码 的 作用 相同 ， 都 将 返回 该 工作 憩 的 
名 称 。 


ActiveWorkbook.Name 
ThisWorkbook.Name 
















































































































































































5.2 ”新 建 工作 簿 


本 节 将 介绍 在 VBA 中 新 建 工 作 短 的 方法 ， 需 要 使 用 Workbooks 集合 的 Add 方法 来 完成 。 
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新 建 一 个 工作 秒 


王朝 族 5 5.2.1 
二 
| 使 用 Workbooks 集合 的 Add 方法 可 以 新 建 工 作 短 。Add 方法 只 有 一 个 可 选 参数 Template， 





























于 指定 新 建 工作 敌 时 所 使 用 的 模板 。 如 果 省 略 该 参数 ，Excel 将 以 默认 的 模板 新 建 工作 夭 。 使 
Application 对 象 的 SheetsInNewWorkbook 属性 可 以 指定 新 建 的 工作 簿 中 默认 包含 的 工作 表 的 
数量 ， 该 属性 已 在 第 4 章 介绍 过 。 




















下 





面 的 代码 以 F 盘 根 目录 中 名 为 “一 季度 .xlsx” 的 工作 敌 为 模板 新 建 了 一 个 工作 敌 。 如 果 




















作为 模板 的 工作 短 不 存在 或 文件 名 有 误 ， 则 会 出 现 运 行 时 错误 。 


Workbooks .Add "F:\ 一 季度 .xlsx" 








使 用 Add 方法 新 建 工 作 敌后 将 会 返回 一 个 Workbook 对 象 , 该 对 象 表示 刚刚 新 建 的 工作 敌 ， 


并 且 新 建 的 工作 敌 会 自动 成 为 活动 工作 短 , 此 时 可 以 使 用 ActiveWorkbook 来 引用 这 个 新 建 的 工 


作乱 。 


案例 5-1 使 用 ActiveWorkbook 引用 新 建 的 工作 筹 









































F 











为 代码 以 默认 模板 新 建 了 一 个 工作 短 ， 然 后 在 对 话 框 中 显示 该 工作 短 的 名 称 。 














Sub 使 用 ActiveWorkbook 引用 新 建 的 工作 秒 () 


Workbooks.Add 
MsgBox ActiveWorkbook.Name 


End Sub 

如 果 以 后 需要 追踪 新 建 的 工作 夭 ， 则 可 以 在 新 建 工作 适时 将 其 赋值 给 一 个 Workbook 对 象 
变量 ， 这 样 在 以 后 任何 时 候 都 可 以 通过 这 个 对 象 变 量 来 引用 这 个 新 建 的 工作 敌 ， 而 不 必 在 乎 它 
是 否 是 活动 工作 短 。 

案例 5-2 ”使 用 对 象 变量 引用 新 建 的 工作 簿 





























下 








而 的 代码 声明 了 一 个 Workbook 类 型 的 对 象 变量 ， 然 后 将 由 Add 方法 新 建 的 工作 短 赋 值 











给 这 个 变量 , 使 用 该 变量 引用 新 建 的 工作 短 ， 并 通过 使 用 Name 属性 来 显示 新 建 工 作 夭 的 名 称 。 
Sub 使 用 对 象 变量 引用 新 建 的 工作 簿 () 








Dim wkb As Workbook 
Set wkb = Workbooks.Add 
MsgBox wkb.Name 


End Sub 


5.2.2 


新 建 多 个 工作 秒 


Workbooks 集合 的 Add 方法 每 次 只 能 新 建 一 个 工作 矢 , 但 是 有 时 可 能 需要 新 建 多 个 工作 竹 ， 


在 这 种 | 








博 况 下 可 以 在 循环 结构 中 使 用 Add 方法 来 一 次 性 新 建 多 个 工作 短 。 


案例 5-3 ”使 用 ForNext 新 建 多 个 工作 简 

















下 面 的 代码 一 次 性 创建 指定 数量 的 多 个 工作 敌 , 该 数量 由 用 户 在 对 话 框 中 输入 的 数字 决定 。 




















Sub 使 用 ForNext 新 建 多 个 工作 簿 () 


Dim strCount As String, intCounter As Integer 
strCount = InputBox ("请 输入 新 建 工 作 簿 的 数量 :") 
IE IsNumeric(strCount) Then 

For intCounter = 1 To strCount 

Workbooks .Add 

Next intCounter 
End If 
MsgBox "一 共 创 建 了 " & strCount & "个 工作 每 ! " 


End Sub 
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还 可 以 使 用 Do Loop 循环 结构 新 建 多 个 工作 短 。 使 用 一 个 变量 记录 Do Loop 循环 的 执行 次 
数 ， 该 次 数 等 同 于 新 建 工 作 敌 的 数量 。 然 后 将 该 值 与 要 新 建 的 工作 簿 的 目标 数量 进行 比较 ， 如 
果 未 达到 则 继续 新 建 工 作 籍 ， 否 则 退出 Do Loop 循环 结束 操作 。 


案例 5-4 ”使 用 Do Loop 新 建 多 个 工作 敌 


























下 面 的 代码 使 用 Do Loop 循环 结构 创建 由 用 户 指定 的 多 个 工作 短 。strCount 变量 存储 由 用 
























































户 指定 的 要 新 建 的 工作 簿 的 数量 , intCounter 变量 记录 新 建 工 作 簿 的 次 数 , 也 就 相当 于 当前 已 经 
新 建 的 工作 短 的 数量 .在 每 次 Do Loop 循环 的 最 后 判断 intCounter 中 的 值 是 否 还 未 达到 strCount， 
如 果 是 则 继续 执行 新 建 工作 德 的 操作 ， 和 否则 退出 Do Loop 循环 停止 新 建 工 作 敌 的 操作 。 














Sub 使 用 Do Loop 新 建 多 个 工作 每 () 





Dim strCount As String, intCounter AS Integer 


strCount = InputBox ("请 输入 新 建 工 作 簿 的 数量 :") 


If ISNumeric (strCount) Then 
Do 
Workbooks .Rdd 


intCounter = intCounter + 1 
Loop While intCounter < strCount 


End If 
MsgBox "一 共 创建 了 " & strCount & 
End Sub 


5.3 


"个 工作 筹 ! " 


打开 工作 簿 


与 新 建 工 作 短 类 似 ， 打 开工 作 敌 的 操作 也 需要 使 用 Workbooks 集合 来 完成 。 本 节 将 介绍 在 











VBA 中 打开 工作 敌 的 方法 ， 还 介绍 了 在 打开 工作 短 之 前 如 何 判 断 工作 短 是 否 存在 ， 以 及 获取 工 











作 德 的 路 径 及 名 称 的 方法 。 
5.3.1 ”打开 一 个 工作 簿 


使 用 Workbooks 集合 的 Open 方法 可 以 打开 一 个 工作 短 ， 该 方法 包含 多 个 参数 ， 最 常 使 
的 是 第 一 个 参数 Filename， 用 于 指定 要 打开 的 工作 短 的 路 径 和 文件 名 。 除 了 第 一 个 参数 以 外 的 


其 他 参数 都 是 可 选 参数 。 























下 面 的 代码 打开 下 盘 根 目录 中 名 为 “一 季度 .xlsx” 的 工作 短 : 


Workbooks .Open "F:\ 一 季度 .xlsx" 


可 以 使 用 变量 保存 工作 簿 的 完整 路 径 ， 





参数 的 值 。 





如 果 要 打开 的 工作 矢 与 当前 包含 VBA 代码 的 工作 矢 位 于 同一 个 文件 夹 ， 则 可 以 使 用 





然后 在 Open 方法 中 使 用 这 个 变量 来 作为 Filename 

















ThisWorkbook 对 象 的 Path 属性 自动 获得 包含 代码 的 工作 德 的 路 径 ， 然 后 使 用 该 路 径 作 为 Open 
方法 Filename 参数 的 路 径 部 分 , 再 将 工作 敌 的 名 称 添加 到 路 径 之 后 ， 即 可 指定 完整 的 FileName 














参数 的 值 ， 如 下 所 示 : 





Workbooks .Open ThisWorkbook.Path & "\ 一 季度 xlsx" 


注意 : Path 属性 返回 的 路 径 不 包含 末尾 的 分 隔 符 ， 因 此 在 指定 要 打开 的 工作 簿 的 完整 路 径 


时 需要 手动 添加 。 
与 新 建 工 作 簿 时 的 Add 方法 可 以 返回 











一 个 Workbook 对 象 类 似 ， 使 用 Open 方法 打开 一 个 
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作 敌 后 也 会 返回 一 个 Workbook 对 象 ， 该 对 象 表示 刚 打 开 的 工作 短 ， 并 且 该 工作 短 会 自动 成 
为 活动 工作 德 。 
在 使 用 Open 方法 打开 一 个 工作 憩 时， 如 果 Excel 找 不 到 该 文件 ， 则 会 出 现 运行 时 错误 ， 可 

以 通过 编写 错误 处 理 程序 来 解决 这 个 问题 。 
也 ”案例 5-5 判断 工作 簿 是 否 存在 
下 面 的 代码 在 执行 Open 方法 之 前 加 入 了 On Error Resume Next 语句 , 以 忽略 接 下 来 可 能 发 
生 的 运行 时 错误 。 在 执行 Open 方法 后 检查 Err 对 象 的 Number 属性 是 否 为 0， 如 果 不 为 0 则 说 
明 出 现 了 运行 时 错误 ， 那 么 最 可 能 的 原因 就 是 Excel 没有 找到 要 打开 的 文件 ， 此 时 向 用 户 发 出 
文件 不 存在 的 提示 信息 。 如 果 为 0 则 说 明 没 出 现 运 行 时 错误 ， 文 件 正常 打开 。 
Sub 判断 工作 簿 是 否 存在 () 

Dim strFileName As String 

strFileName = "F:\ 一 季度 .xlsx" 

On Error Resume Next 

Workbooks.Open strFileName 


If Err.Number <> 0 Then MsgBox "未 找到 文件 ,无 法 打开 ! " 
End Sub 


5.3.2 ”打开 多 个 工作 簿 


我 们 可 能 希望 一 次 性 打开 多 个 工作 短 ， 此 时 可 以 使 用 Array 函数 创建 一 个 包含 工作 簿 名 称 
的 数组 ， 然 后 在 For Next 循环 结构 中 使 用 计数 器 变量 作为 数组 元 素 的 索引 号 ， 来 从 之 前 创建 的 
数组 中 引用 指定 名 称 的 工作 短 ， 从 而 实现 批量 打开 多 个 工作 等 的 目的 。 

案例 5-6 一 次 性 打开 指定 的 多 个 工作 簿 
下 面 的 代码 使 用 Array 函数 创建 了 一 个 包含 3 个 文件 名 的 数组 ， 并 将 其 赋值 给 一 个 Variant 
数据 类 型 的 变量 ,然后 通过 LBound 和 UBound 函数 自动 检测 该 数组 的 下 界 和 上 界 ,使 用 intmdex 
变量 作为 For Next 循环 中 的 计数 器 ， 在 下 界 和 上 界 之 间 循 环 执行 Open 方法 来 打开 指定 的 工作 
短工 作 短 的 名 称 通过 从 数组 中 引用 的 数组 元 素 动态 获得 。 如 果 指定 的 文件 不 存在 ， 使 用 Open 
方法 时 会 出 现 运行 时 错误 ， 因 此 加 入 了 防 错 代码 。 

Sub 打开 多 个 工作 每 () 


Dim varName As Variant，intIndex As IntegeL 

varName = Rrray(" 一 季度 "， "二 季度 "，" 三 季度 ") 

On Error Resume Next 

For intIndex = LBound(varName) To UBound (varName) 
Workbooks.Open "F:\" & varName (intIndex) & ".xlsx" 
If Err.Number <> 0 Then 

MsgBox varName (intIndex) & ".xlsx" & "文件 不 存在 " 

End If 

Next intIndex 

End Sub 


5.3.3 ”获取 工作 往 的 路 径 和 名 称 

Excel 提供 了 获取 工作 敌 的 路 径 和 名 称 的 方法 ， 它 们 是 Workbook 对 象 的 以 下 3 个 属性 : 
FullName 属性 、Name 属性 、Path 属性 。 

1. FullName 属性 

使 用 Workbook 对 象 的 FulIName 属性 可 以 获取 工作 敌 的 完整 路 径 , 其 中 同时 包含 工作 短 的 
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路 径 和 文件 名 。 下 面 的 代码 显示 活动 工作 舌 的 路 径 和 名 称 。 如 果 工 作 短 从 未 被 保存 到 磁盘 中 ， 
则 只 返回 工作 矢 的 默认 名 称 且 不 包含 路 径 ， 默 认 名 称 如 “工作 矫 1”“ 工 作 短 2” 等 。 

ActiveWorkbook.FullName 

2. Name 属性 

使 用 Workbook 对 象 的 Name 属性 可 以 获取 工作 短 的 名 称 。 如 果 工 作 短 是 还 没有 保存 到 磁 
盘 中 的 新 建 工 作 短 ， 那 么 返回 的 文件 名 不 会 包含 扩展 名 ， 否 则 会 返回 包含 扩展 名 的 文件 名 。 

案例 5-7 显示 所 有 打开 的 工作 秒 的 名 称 列表 

下 面 的 代码 显示 当前 打开 的 所 有 工作 短 的 名 称 列表 ， 如 图 5-1 所 示 。 

Sub 显示 所 有 打开 的 工作 簿 的 名 称 列表 () 


Dim strMsg As String, wkb As Workbook 
For Each wkb In Workbooks 
strMsg = strMsg & wkb.Name & vbCrLf 







































































Next wkb 
MsgBox strMsg 
End Sub 
Microsoft Excel XX 
测试 xlsm 
窒 例 5-6xlsm 
窒 例 5-5xlsm 
[| 
图 5-1 显示 所 有 打开 的 工作 矢 的 名 称 列表 
3. Path 属性 
使 用 Workbook 对 象 的 Path 属性 可 以 获取 工作 敌 的 路 径 ， 路 径 中 不 包含 末尾 的 分 隔 符 和 文 





件 名 。 下 面 的 代码 显示 了 活动 工作 短 的 路 径 ， 如 果 工 作 短 从 未 被 保存 到 磁盘 中 ， 则 显示 为 空 。 
ActiveWorkbook.Path 
结合 使 用 Path 和 Name 属性 可 以 实现 FullName 属性 的 功能 。 下 面 两 行 代码 的 效果 相同 : 


ActiveWorkbook.FullName 
ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 


如 果 希 望 在 不 同 平台 上 都 能 获得 正确 的 路 径 ， 那 么 可 以 将 上 面 代码 中 的 “\” 替 换 为 下 面 的 
代码 : 


Application.PathSeparator 






































5.4 保存 工作 簿 


Workbook 对 象 提供 了 几 种 保存 工作 矢 的 方法 ， 分 别 适用 于 不 同 的 情况 ， 常 用 的 是 Save 和 
SaveAs 方法 ， 本 节 将 介绍 使 用 这 两 种 方法 保存 工作 短 。 


5.4.1 保存 和 另存 工作 簿 
使 用 Workbook 对 象 的 Save 方法 可 以 保存 对 工作 舌 所 做 的 更 改 ， 该 方法 适用 于 已 经 保存 到 
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磁盘 中 的 工作 德 。 下 面 的 代码 保存 对 活动 工作 矢 的 更 改 : 

ActiveWorkbook.Save 

如 果 工 作 敌 从 未 保存 到 磁盘 中 ， 使 用 该 方法 将 会 弹出 “另存 为 ”对 话 框 ， 用 户 需 要 设置 工 
作 短 的 保存 位 置 和 文件 名 。 因 此 如 果 是 首次 保存 工作 短 ， 则 应 该 使 用 Workbook 对 象 的 SaveAs 
方法 ， 从 而 在 代码 中 直接 指定 保存 位 置 和 文件 名 。 

SaveAs 方法 包含 多 个 参数 ， 最 常 使 用 的 是 第 一 个 参数 Filename， 该 参数 用 于 指定 工作 夭 的 
保存 路 径 和 文件 名 。 下 面 的 代码 将 活动 工作 德 以 “测试 副本 ”文件 名 保存 到 下 盘 根 目录 中 。 如 
果 系 统 中 没有 E 盘 ， 则 会 出 现 运行 时 错误 。 

ActiveWorkbook.SaveAs "F:\ 测 试 副本 .xlsx" 

提示 : 如 果 不 指 定 SaveAs 方法 的 Filename 参数 ， 则 默认 将 工作 簿 以 当前 的 文件 名 保存 到 
当前 路 径 中 。 


5.4.2 ”覆盖 现 有 工作 簿 


当 使 用 SaveAs 方法 以 指定 的 名 称 和 路 径 保存 工作 短 时 , 如 果 在 目标 位 置 已 经 存在 相同 名 称 
的 工作 夭 ， 则 会 显示 如 图 5-2 所 示 的 提示 信息 ， 要 求 用 户 做 出 是 否 用 当前 文件 蔡 换 原 有 文件 的 
选择 。 


































































































Microsol ft Excel x 
0 在 当前 位 置 发 现 已 经 存在 人 为 " 席 直 sm” 的 文件 。 您 希望 格 该 文件 莹 换 拉 吗 ? 


到 可 
图 5-2 替换 文件 的 提示 信息 


使 用 Application 对 象 的 DisplayAlerts 属性 可 以 屏蔽 这 类 提示 信息 ， 在 第 4 章 介绍 
Application 对 象 时 也 曾 介 绍 过 该 属性 的 用 法 。 将 DisplayAlerts 属性 设置 为 False 即 可 屏蔽 蔡 
换文 件 的 提示 信息 ， 在 完成 另存 工作 憩 的 操作 后 ， 可 以 将 该 属性 设置 为 True 以 开启 Excel 
正常 的 提示 功能 。 

Application.DisplayAlerts = False 


ActiveWorkbook.SaveAs 
Application.DisplayAlerts = True 





























5.5 关闭 工作 簿 


在 VBA 中 可 以 使 用 Workbook 对 象 的 Close 方 法 关闭 指定 的 工作 敌 ， 每 次 只 能 关闭 一 个 工 
作 敌 。 如 果 希 望 一 次 性 关闭 多 个 工作 敌 ， 则 需要 在 循环 结构 中 使 用 Close 方法 。 本 节 除 了 介绍 
关闭 工作 敌 的 方法 之 外 ， 还 介绍 了 关闭 同一 个 工作 短 的 多 个 窗口 的 方法 。 


5.5.1 关闭 一 个 工作 簿 


使 用 Workbook 对 象 的 Close 方法 可 以 关闭 指定 的 工作 夭 。Close 方法 包含 3 个 参数 ， 都 是 
可 选 参 数 ， 语 法 格式 如 下 : 
Close (SaveChanges, Filename, RouteWorkbook) 


口 SaveChanges: 可 选 ， 如 果 在 关闭 工作 憩 之 前 对 工作 憩 进行 了 更 改 但 是 还 未 保存 ， 那 么 
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将 该 参数 设置 为 True 可 以 自动 保存 更 改 并 关闭 工作 短 , 将 该 参数 设置 为 False 则 不 保存 
更 改 并 关闭 工作 籍 。 如 果 希 望 让 用 户 选择 是 否 保存 对 工作 籍 的 更 改 , 则 可 以 省 略 该 参数 ， 
这 样 将 会 显示 是 否 保存 的 提示 信息 。 
口 Filename: 可 选 ， 如 果 将 SaveChanges 参数 设置 为 True， 并 且 工 作 敌 从 未 被 保存 到 磁盘 
中 ， 则 可 以 使 用 Filename 参数 指定 工作 簿 的 保存 路 径 和 文件 名 。 
口 RouteWorkbook: 可 选 ， 如 果 工 作 短 不 需要 传送 给 下 一 个 收 件 人 ， 则 省 略 该 参数 。 否 风 
将 根据 该 参数 的 值 传送 工作 短 ， 如 果 为 True 则 将 工作 短 传 送 给 下 一 个 收 件 人 ， 如 果 为 
False 则 不 传送 工作 夭 。 
下 面 的 代码 用 于 关闭 名 为 “一 季度 ”的 工作 籍 。 由 于 将 Close 方法 的 SaveChanges 参数 设 
置 为 True， 因 此 在 关闭 前 会 自动 保存 对 该 工作 短 所 做 的 更 改 。 如 果 当 前 没有 打开 该 工作 短 ， 则 
会 出 现 运 行 时 错误 。 
Workbooks ("一 季度 ") .Close True 
在 方法 中 使 用 命名 参数 会 使 代码 更 易 理 解 ， 如 下 所 示 : 


Workbooks ("一 季度 ") .Close SaveChanges:=True 


下 面 的 代码 在 关闭 工作 短 时 不 保存 在 工作 短 打 开 期 间 自 上 次 保存 之 后 所 做 的 更 改 : 


Workbooks ("一 季度 ") .Close SaveChanges:=False 


Workbook 对 象 有 一 个 Saved 属性 , 该 属性 返回 或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 
则 表示 已 经 保存 了 对 工作 短 的 更 改 ， 如 果 为 False 则 表示 还 未 保存 对 工作 短 的 更 改 。 下 面 两 段 
代码 的 作用 相同 ， 都 是 不 保存 更 改 并 关闭 工作 德 : 


ActiveWorkbook.Saved = True 
ActiveWorkbook.Close 


等 同 于 

ActiveWorkbook.Close SaveChanges:=False 

注意 ; 将 Saved 属性 设置 为 True 时 需要 格外 谨慎 ， 因 为 Excel 会 认为 在 保存 之 后 工作 簿 未 
发 生 过 任何 更 改 ， 即 使 实际 上 并 没有 真正 保存 过 对 工作 簿 的 更 改 。 换 名 话说， 将 Saved 属性 设 
置 为 True 会 丢失 最 后 一 次 保存 工作 簿 之 后 所 做 的 任何 更 改 。 


5.5.2 关闭 多 个 工作 簿 


默认 情况 下 ，Workbook 对 象 的 Close 方法 每 次 只 能 关闭 一 个 工作 夭 。 如 果 希 望 同时 关闭 多 
个 工作 短 ， 则 可 以 在 循环 结构 中 使 用 Close 方法 。 
案例 5-8 ”关闭 当前 工作 筹 以 外 的 其 他 工作 筹 
下 面 的 代码 一 次 性 关闭 除了 包含 本 代码 的 工作 憩 之 外 的 其 他 所 有 工作 德 。 通 过 在 IfThen 结 
构 中 使 用 Workbook 对 象 的 Name 属性 来 判断 当前 正在 关闭 的 工作 敌 不 是 包含 代码 的 工作 短 ， 
从 而 排除 包含 代码 的 工作 舌 。 


Sub 关闭 多 个 工作 每 () 
Dim wkb As Workbook 
For Each wkb In Workbooks 
If wkb.Name <> ThisWorkbook.Name Then 
wkb .Close True 
End If 
Next wkb 
End Sub 
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如 果 希 望 连同 包含 代码 的 工作 矢 一 起 关闭 ， 则 可 以 在 关闭 了 其 他 所 有 工作 敌 并 退出 For 
Each 循环 结构 后 ， 加 上 下 面 这 名 代码 : 


ThisWorkbook.Close True 


5.5.3 ”关闭 多 余 的 工作 秒 窗 口 


默认 情况 下 ， 在 打开 一 个 工作 敌后 ， 该 工作 敌 显 示 在 一 个 独立 的 窗口 中 。 如 果 希 望 同时 查 
看 一 个 工作 簿 的 不 同 部 分 , 则 可 以 为 该 工作 短 添 加 多 个 窗口 , 每 个 窗口 以 阿拉 伯 数 字 自 动 编号 ， 
这 些 窗口 同属 于 同一 个 工作 短 ， 但 是 可 以 在 各 个 窗口 中 显示 不 同 的 内 容 。Workbook 对 象 的 
Windows 集合 包含 了 特定 工作 敌 关 联 的 所 有 窗口 ， 其 中 的 每 一 个 窗口 都 是 一 个 Window 对 象 ， 
可 以 使 用 第 3 章 介 绍 的 引用 集合 中 对 象 的 方法 来 引用 Windows 集合 中 的 某 个 特定 窗口 。 
如 果 已 经 为 一 个 工作 矢 打 开 了 多 个 窗口 ， 当 只 想 保留 其 中 的 一 个 窗口 而 关闭 其 他 窗口 时 ， 
则 可 以 使 用 VBA 程序 代 蔡 手动 操作 。 


案例 5-9 ”关闭 指定 工作 簿 的 多 余 窗 口 
下 面 的 代码 关闭 了 属于 活动 工作 簿 的 多 余 的 窗口 ， 最 后 只 保留 该 工作 簿 的 一 个 窗口 。 
判断 活动 工作 敌 的 窗口 总 数 是 否 大 于 1， 如 果 是 则 进入 For Each 循环 来 遍历 每 一 个 窗口 。 上 
窗口 的 编号 位 于 窗口 标题 的 末尾 ， 并 以 1、2、3 等 连续 数字 进行 编排 ， 因 此 使 用 Window 对 
的 Caption 属性 获取 每 一 个 窗口 的 标题 ， 并 使 用 VBA 内 置 的 Right 函数 截取 标题 的 最 后 一 个 
符 并 判断 其 是 否 不 是 1， 如 果 不 是 1 则 说 明 该 工作 矢 当 前 不 止 一 个 窗口 。 由 于 每 次 关闭 一 个 
的 同时 窗口 总 数 都 在 减少 ， 因 此 还 要 判断 当前 窗口 的 总 数 是 否 大 于 1。 只 有 同时 满足 窗 
题 最 后 一 个 字符 不 是 1 且 当 前 工作 簿 的 窗口 总 数 大 于 1 这 两 个 条 件 ， 才 将 窗口 关闭 ， 当 内科 
一 个 窗口 时 则 将 其 保留 。 
Sub 关闭 多 余 的 工作 簿 窗口 () 
Dim win As Window, wins As Windows 
Set wins = ActiveWorkbook.Windows 
If wins.Count > 1 Then 
For Each win In wins 
IE Right (win.Caption, 1) <> 1 And wins.Count > 1 Then 
win.Close 
End If 
Next win 


End If 
End Sub 


上 面 的 代码 无 法 关闭 编号 为 11、21、31 这 样 的 窗口 。 下 面 的 代码 解决 了 这 个 问题 ， 当 一 个 
工作 筹 包含 多 个 窗口 时 ， 会 使 用 冒号 分 隔 窗 口 的 标题 和 编号 ， 当 只 剩 一 个 窗口 时 ， 窗 口 标题 不 
包含 冒号 和 编号 。 下 面 的 代码 使 用 VBA 内 置 的 InStr 函数 在 每 个 窗口 标题 中 查找 冒号 ， 如 果 找 
到 则 返回 一 个 表示 冒号 出 现 位 置 的 数字 ， 说 明 当前 窗口 是 带 有 编号 的 窗口 ， 可 以 将 其 关闭 。 如 
果 找 不 到 则 返回 0， 说 明 当 前 窗口 的 标题 中 不 包含 冒号 ， 那 么 该 窗口 就 是 这 个 工作 矢 的 唯一 窗 
， 就 不 需要 关闭 了 。 

Sub 关闭 多 余 的 工作 每 窗口 2 () 
Dim win As Window, wins As Windows 
Set wins = ActiveWorkbook.Windows 
If wins.Count > 1 Then 
For Each win In wins 
If InStr(win.Caption, ":") <> 0 Then 


win.Close 
End If 
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Next win 
End If 
End Sub 


5.6 保护 工作 簿 


除了 本 章 前 面 介绍 的 一 些 常用 的 工作 敌 的 基本 操作 之 外 ， 为 工作 短 设 置 密 码 以 增强 安全 性 
也 是 经 常 触及 的 操作 。Workbook 对 象 提供 了 与 工作 簿 密码 相关 的 一 些 属性 , 使 用 这 些 属性 可 以 
设置 或 清除 工作 簿 的 密码 。 


5.6.1 ”为 工作 筹 设置 打开 密码 


对 于 当前 已 经 打开 的 工作 每， 可 以 使 用 Workbook 对 象 的 Password 属性 为 它们 设置 打开 文 
件 的 密码 , 当 以 后 打开 设置 了 密码 的 工作 短 时 ,只 有 输入 正确 的 密码 才能 成 功 打 开 这 个 工作 簿 。 

案例 5-10 ”设置 工作 短 的 打开 密码 
下 面 的 代码 会 要 求 用 户 为 当前 包含 VBA 代码 的 工作 敌 设 置 一 个 打开 文件 的 密码 ， 设置 宙 码 
后 会 自动 保存 并 关闭 该 工作 簿 。 在 下 次 打开 该 工作 短 时 ， 将 会 显示 如 图 5-3 所 示 的 对 话 框 ， ee 
有 输入 上 次 设置 的 密码 ， 才 能 打开 该 工作 德 。 

Sub 设置 工作 簿 的 打开 密码 () 


Dim strPassword As String 
strPassword = InputBox ("请 输入 工作 短 的 打开 密码 : ") 
If strPassword = "" Then 
MsgBox "密码 不 能 为 空 ! " 
Exit Sub 
End If 
ThisWorkbook.Password = strPassword 
ThisWorkbook.Close True 
End Sub 


































































































密码 ? x 
“案例 5-10.xlsm "有 密码 保护 。 


密码 (中 ): 


Cre | ww 


图 5-3 打开 工作 矢 时 要 求 输入 密码 


5.6.2 ”清除 工作 得 中 的 密码 


有 时 可 能 需要 清除 工作 短 中 设置 的 打开 文件 的 密码 ， 为 此 只 需 将 一 个 空 字 符 串 赋 值 给 
Workbook 对 象 的 Password 属性 ， 如 下 所 示 : 

ActiveWorkbook.Password = "" 

使 用 Workbook 对 象 的 HasPassword 属性 可 以 检查 工作 夭 中 是 否 包 含 打开 文件 的 密码 ， 如 
果 包 含 密码 则 执行 清除 密码 的 操作 。HasPassword 属性 返回 一 个 Boolean 类 型 的 值 , 如 果 为 True 
则 表示 工作 敌 包 含 打开 文件 的 密码 ， 如 果 为 False 则 表示 工作 敌 不 包含 打开 文件 的 密码 。 

案例 5-11 ”清除 打开 的 所 有 工作 往 中 的 密码 

下 面 的 代码 清除 当前 打开 的 所 有 工作 短 中 的 打开 文件 的 密码 ， 其 中 使 用 HasPassword 属性 
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检查 工作 短 中 是 否 包 含 密码 ， 因 此 只 对 包含 密码 的 工作 短 执 行 清除 密码 操作 。 
Sub 清除 打开 的 所 有 工作 每 中 的 密码 () 


Dim wkb As Workbook 
For Each wkb In Workbooks 
If wkb.HasPassword Then wkb.Password = "" 
Next wkb 
End Sub 


提示 : 如 果 需 要 清除 工作 簿 中 的 修改 内 容 的 密码 , 则 可 以 将 一 个 空 字符 串 赋值 给 Workbook 
对 象 的 WritePassword 属性 。 




















"104。 


第 6 章 使 用 Worksheet 对 象 处 理工 作 表 





Excel 对 象 模型 中 的 Worksheet 对 象 专门 用 于 处 理工 作 表 , 但 是 工作 表 的 新 建 、 打 开 等 操作 
需要 使 用 Worksheets 集合 进行 处 理 。 本 章 将 同时 介绍 Worksheets 集合 与 Worksheet 对 象 ， 以 及 
它们 包含 的 属性 和 方法 ， 主 要 介绍 如 何 使 用 这 些 属性 和 方法 对 工作 表 本 身 进行 操作 ， 对 工作 表 
中 的 单元 格 或 单元 格 区 域 的 处 理 将 在 第 7 章 进行 详细 介绍 。 























6.1 理解 Worksheets 集合 与 Worksheet 对 象 


Worksheets 集合 表示 工作 短 中 包含 的 所 有 工作 表 , 其 中 的 每 一 个 工作 表 都 是 一 个 Worksheet 
对 象 。 图 表 工 作 表 不 是 Worksheets 集合 的 成 员 。 本 节 将 介绍 Worksheets 集合 与 Worksheet 对 象 
的 基本 概念 及 其 常用 的 属性 和 方法 ， 在 本 章 后 面 的 内 容 中 将 会 详细 介绍 这 些 属 性 和 方法 的 具体 
应 用 。 











6.1.1 Worksheets 集合 的 常用 属性 和 方法 
Worksheets 集合 只 包含 几 个 属性 和 方法 , 表 6-1 和 表 6-2 列 出 了 其 中 比较 常用 的 属性 和 方法 。 


表 6-1 Worksheets 集合 的 常用 属性 














工作 短 中 的 工作 表 总 数 





表 6-2 Worksheets 集合 的 常用 方法 
说 明 





新 建 一 个 工作 表 ， 并 使 其 成 为 活动 工作 表 
Sheets 集合 包含 的 属性 和 方法 与 Worksheets 集合 类 似 ， 但 可 以 新 建 图 表 工作 表 或 宏 表 。 


























6.1.2 ”Worksheet 对 象 的 常用 属性 和 方法 
Worksheet 对 象 包含 很 多 属性 和 方法 ， 表 6-3 和 表 6-4 列 出 了 其 中 比较 常用 的 属性 和 方法 。 
表 6-3 Worksheet 对 象 的 常用 属性 
属 性 说 明 
Cells 返回 工作 表 中 的 所 有 单元 格 
Columns | 返回 工作 表 中 的 所 有 列 


Name 返回 或 设置 工作 表 的 名 称 ， 即 工作 表 标 签 上 显示 的 内 容 
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集合 
然后 


则 需 
如 下 


6.1. 











续 表 
属性 说 明 
Range 返回 工作 表 中 的 单元 格 或 单元 格 区 域 
Rows 返回 工作 表 中 的 所 有 行 
ScrollArea 返回 或 设置 工作 表 中 允许 滚动 的 单元 格 区 域 
Type 返回 工作 表 的 类 型 
UsedRange 返回 工作 表 中 已 使 用 的 单元 格 区 域 
Visible 返回 或 设置 工作 表 的 显示 或 隐藏 状态 
表 6-4 Worksheet 对 象 的 常用 方法 

p71 说 ”了 明 
Activate 激活 一 个 工作 表 ， 使 其 成 为 活动 工作 表 
ChartObjects 返回 工作 表 中 的 所 有 嵌入 式 图 表 
Copy 复制 工作 表 ， 可 以 在 工作 短 内 复制 ， 也 可 以 将 工作 表 复 制 到 新 工作 适中 
Delete 删除 工作 表 
Move 移动 工作 表 ， 可 以 在 工作 短 内 移动 ， 也 可 以 将 工作 表 移 动 到 新 工作 短 中 
SaveAs 将 工作 表 保存 为 一 个 独立 的 工作 短 
Select 选择 工作 表 





3 ”Worksheets 集合 与 Sheets 集合 


Worksheets 集 合 只 包含 Worksheet 对 象 , 即 平时 最 常 使 用 的 包含 单元 格 区 域 的 工作 表 。Sheets 
可 以 同时 包含 两 种 工作 表 ， 一 种 是 工作 表 (Worksheet) ， 另 一 种 是 图 表 工 作 表 〈Chart) 。 
要 遍历 Worksheets 集合 中 的 每 一 个 工作 表 时 ， 可 以 声明 一 个 Worksheet 类 型 的 对 象 变 量 ， 
使 用 For Each 循环 结构 在 Worksheets 集合 中 进行 遍历 。 
如 果 要 遍历 工作 夭 中 的 每 一 个 工作 表 ， 而 不 管 是 Worksheet 工作 表 还 是 Chart 图 表 工作 表 ， 
要 声明 一 个 一 般 对 象 变量 Object， 然 后 使 用 For Each 循环 结构 在 Sheets 集合 中 进行 遍历 ， 

面 的 两 段 代 码 所 示 : 

Sub 遍历 工作 表 () 


Dim wks As Worksheet 
For Each wks In Worksheets 
要 执行 的 代码 
Next wks 
End Sub 












































Sub 遍历 工作 表 和 图 表 工 作 表 () 
Dim sht As Object 
For Each sht In Sheets 
要 执行 的 代码 
Next sht 
End Sub 


4 引用 工作 表 
在 Worksheets 和 Sheets 集合 中 引用 工作 表 的 方法 , 与 第 5 章 介 绍 的 在 Workbooks 集合 中 引 
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[ 作 短 的 方法 类 似 。 可 以 使 用 工作 表 的 名 称 或 索引 号 从 Worksheets 集合 中 引用 某 个 特定 的 工 
作 表 。 如 果 在 活动 工作 短 中 存在 名 为 “2 月 ”的 工作 表 ， 并 且 该 工作 表 在 工作 表 标签 栏 上 位 于 
第 2 个 位 置 ， 那 么 下 面 两 行 代码 都 可 以 引用 该 工作 表 : 


Worksheets ("2 月 ") 
Worksheets (2) 


还 可 以 使 用 ActiveSheet 引用 活动 工作 表 , 无 论 其 名 称 是 什么 ， 引用 的 都 是 处 于 活动 状态 的 
那个 工作 表 ， 这 种 方式 为 编写 通用 的 代码 提供 了 方便 。 下 面 的 代码 返回 活动 工作 表 的 名 称 : 

RctiveSheet .Name 

Worksheet 对 象 有 一 个 Index 属性 ， 它 返回 的 是 工作 表 在 Sheets 集合 中 的 索引 号 ， 而 不 是 在 
Worksheets 集合 中 的 索引 号 。 在 如 图 6-1 所 示 的 工作 短 中 包含 两 个 工作 表 (Sheetl 和 Sheet2 ) 
和 两 个 图 表 工作 表 (Chartl 和 Chart2), 它们 的 排列 顺序 从 左 到 右 依次 为 : Chart1、 Sheetl、Chart2、 
Sheet2。 下 面 的 代码 返回 Worksheets 集合 中 的 第 二 个 工作 表 〈 即 Sheet2) 在 整个 工作 舌 所 有 工 
作 表 中 的 索引 号 。 运 行 结果 为 4， 这 是 因为 Sheet2 是 4 个 工作 表 中 的 最 后 一 个 ， 它 在 所 有 工作 
表 中 的 索引 号 是 4， 而 Sheet2 在 Worksheets 集合 中 的 索引 号 为 2。 


Worksheets (2) .index 



































































































































Chart1 Sheet1 Chart2 Sheet2 由 








图 6-1 工作 矢 中 4 个 工作 表 的 排列 顺序 











6.2 ”获取 工作 表 的 相关 信息 


在 对 工作 表 执 行 一 些 操作 之 前 ， 为 了 避免 出 现 运 行 时 错误 ， 通 常 需要 对 工作 表 的 类 型 和 一 
些 设置 情况 进行 检查 ， 以 确定 当前 是 否 适合 执行 相关 的 操作 。 本 节 主 要 介绍 工作 表 的 3 个 方面 
的 信息 : 工作 表 类 型 、 工 作 簿 结构 的 保护 状态 、 工 作 表 的 保护 状态 。 


6.2.1 获取 工作 表 的 类 型 


在 使 用 ActiveSheet 引 用 活动 工作 表 或 使 用 Sheets 集 合 引用 工作 表 时 , 在 执行 后 续 操作 之 前 , 
应 该 先 检查 当前 引用 的 工作 表 的 类 型 。 如 果 当 前 引用 的 工作 表 是 图 表 工 作 表 ， 由 于 图 表 工 作 表 
不 包含 单元 格 ， 因 此 在 对 图 表 工 作 表 执行 与 单元 格 相关 的 操作 时 将 会 出 现 运行 时 错误 。 

可 以 使 用 Worksheet 对 象 的 Type 属性 来 检查 工作 表 的 类 型 , 该 属性 返回 的 值 由 XISheetType 
常量 提供 ， 表 示 工 作 表 的 类 型 ， 见 表 6-5。XlSheetType 常量 包含 5 个 值 ， 表 中 只 提供 了 两 个 最 
常用 的 值 。 




















































































































表 6-5 XISheetType 常量 











名 称 值 说 明 
xlWorksheet -4167 工作 表 
xlChart -4109 图 表 工 作 表 




















可 以 在 于 Then 判断 结构 中 检查 所 引用 的 工作 表 的 类 型 。 下 面 的 代码 检查 活动 工作 表 的 类 

















型 ， 如 果 它 是 Worksheet 则 显示 一 条 信息 : 


.0 
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Sub 使 用 Type 属性 检查 工作 表 的 类 型 () 
If ActiveSheet.Type = xlWorksheet Then 
MsgBox "活动 工作 表 是 一 个 Worksheet" 
End If 
End Sub 


除了 Worksheet 对 象 的 Type 属性 之 外 ， 还 可 以 使 用 VBA 内 置 的 TypeName 函数 来 检查 所 
引用 的 工作 表 的 类 型 。 实 际 上 可 以 使 用 TypeName 函数 检查 任何 内 容 的 数据 类 型 ， 被 检查 的 内 
容 可 以 是 常量 、 变 量 、 对 象 或 字面 量 〈 如 输入 的 数字 、 文 本 等 ) 。TypeName 函数 返回 一 个 表 
示 被 检查 内 容 的 数据 类 型 的 字符 串 ， 可 以 将 TypeName 的 返回 值 与 表示 特定 数据 类 型 的 字符 串 
进行 比较 ， 以 此 判断 被 检查 的 内 容 是 否 是 特定 的 类 型 。 在 Excel VBA 中 通常 使 用 TypeName 函 
数 来 检查 对 象 的 类 型 ， 比 如 判断 工作 表 或 当前 所 选 对 象 的 类 型 。 

案例 6-1 使 用 TypeName 函数 检查 工作 表 的 类 型 
下 面 的 代码 使 用 TypeName 函数 检查 活动 工作 表 的 类 型 , 将 TypeName 的 返回 值 作为 Select 
Case 的 判断 条 件 ， 在 Case 语句 中 放置 表示 工作 表 对 象 类 型 的 字符 串 ， 使 用 Case Else 语句 以 匹 
配 工作 表 的 类 型 既 不 是 Worksheet 又 不 是 Chart 的 情况 。 最 后 使 用 MsgBox 函数 在 对 话 框 中 显示 
活动 工作 表 的 类 型 。 

Sub 使 用 TypeName 函数 检查 工作 表 的 类 型 () 

Dim strMsg As String 
Select Case TypeName (ActiveSheet) 
Case "Worksheet" 
strMsg = "活动 工作 表 是 一 个 Worksheet" 
Case "Chart" 
strMsg = "活动 工作 表 是 一 个 Chart" 
Case Else 
strMsg = "活动 工作 表 不 是 Worksheet 或 Chart" 
End Select 


MsgBox strMsg 
End Sub 


6.2.2 ”获取 工作 秒 结 构 的 保护 状态 


如 果 工 作 敌 的 结构 处 于 保护 状态 ， 则 无 法 在 该 工作 竹中 新 建 工作 表 ， 也 无 法 对 工作 表 执行 
重 命 名 、 移 动 、 复 制 和 删除 等 操作 。 在 VBA 中 如 果 在 保护 工作 德 结构 的 情况 下 执行 上 面 列 出 
的 工作 表 操 作 ， 则 会 出 现 运行 时 错误 。 

使 用 Workbook 对 象 的 ProtectStructure 属性 可 以 返回 工作 敌 结 构 的 保护 状态 。 该 属性 返 
本 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 表示 正 处 于 保护 状态 ， 如 果 为 False 则 表示 未 进行 保 
护 。 在 执行 工作 表 的 相关 操作 之 前 ， 应 该 先 检查 ProtectStructure 属性 的 值 以 确保 工作 敌 结 构 
未 被 保护 。 

案例 6-2 ”根据 工作 得 结 构 的 保护 状态 执行 不 同 操作 
下 面 的 代码 在 新 建 工 作 表 之 前 先 检查 ProtectStructure 属性 的 值 ， 如 果 返 回 True， 则 向 用 户 
发 出 解除 保护 状态 的 提示 信息 , 否则 使 用 Worksheets 对 象 Add 方法 的 默认 操作 在 活动 工作 表 的 
左 侧 新 建 一 个 工作 表 。 

Sub 获取 工作 簿 结构 的 保护 状态 () 


If ActiveWorkbook.ProtectStructure Then 
MsgBox "请 先 解除 工作 每 结构 的 保护 状态 ! " 
Else 
Worksheets.Add 
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nd 
End Sub 


6.2.3 ”获取 工作 表 的 保护 状态 


当 工作 表 处 于 保护 状态 时 ， 对 工作 表 中 的 单元 格 所 能 进行 的 操作 将 会 受到 限制 。 在 此 状态 
下 如 果 在 VBA 中 对 工作 表 中 的 单元 格 进行 操作 ， 将 会 显示 运行 时 错误 。 

使 用 Worksheet 对 象 的 ProtectContents 属性 可 以 返回 工作 表 的 保护 状态 。 该 属性 返回 一 个 
Boolean 类 型 的 值 ， 如 果 为 True 则 表示 正 处 于 保护 状态 ， 如 果 为 False 则 表示 未 进行 保护 。 在 对 
工作 表 中 的 单元 格 进行 操作 之 前 , 应 该 先 检查 ProtectContents 属性 的 值 ， 以 避免 出 现 运行 时 错误 。 

案例 6-3 ”根据 工作 表 的 保护 状态 执行 不 同 操作 

下 面 的 代码 在 向 Al 单元 格 中 输入 数据 之 前 ， 先 对 Al 单元 格 所 属 的 工作 表 进 行 检查 ， 以 确 
保 工 作 表 是 否 处 于 保护 状态 。 如 果 ProtectStructure 属性 返回 True， 则 向 用 户 发 出 解除 保护 状态 
的 提示 信息 ， 否 则 将 数据 输入 到 Al 单元 格 中 。 

Sub 获取 工作 表 的 保护 状态 () 


If ActiveSheet.ProtectContents Then 


MsgBox "工作 表 处 于 保护 状态 ， 无 法 编辑 该 工作 表 中 的 单元 格 ! " 
























































Else 
Range ("Al") .Value = 100 
End If 
End Sub 
6.3 ”新 建 工作 表 





使 用 Worksheets 集合 的 Add 方法 可 以 在 工作 短 中 新 建 工 作 表 。 新 建 工作 表 的 类 型 可 以 是 普 
通 工作 表 、 图 表 工 作 表 或 其 他 类 型 的 表 ， 比 如 宏 表 。Add 方法 包含 4 个 参数 ， 语 法 格式 如 下 : 

Add (Before, After, Count, Type) 

口 Before: 可 选 ， 将 新 建 的 工作 表 放 置 到 指定 的 工作 表 之 前 。 

口 After: 可 选 ， 将 新 建 的 工作 表 放 置 到 指定 的 工作 表 之 后 。 

口 Count: 可 选 ， 新 建 工作 表 的 数量 ， 如 果 省 略 该 参数 ， 则 其 值 默认 为 1 。 

口 Type: 可 选 ， 新 建 工作 表 的 类 型 ， 使 用 XISheetType 常量 指定 该 参数 值 ， 该 常量 的 值 请 

参考 表 6-5。 如 果 省 略 该 参数 ， 则 其 值 默 认为 xIWorksheet。 

如 果 省 略 所 有 参数 ， 那 么 使 用 Add 方法 新 建 的 工作 表 默 认 位 于 活动 工作 表 之 前 。 使 用 Add 
方法 新 建 工作 表 后 将 会 返回 一 个 Worksheet, 该 对 象 表示 刚刚 新 建 的 工作 表 , 并 且 新 建 的 工作 表 
会 自动 成 为 活动 工作 表 ， 此 时 可 以 使 用 ActiveSheet 引用 这 个 新 建 的 工作 表 。 

注意 : 无 法 使 用 Worksheets 集合 的 Add 方法 新 建 图 表 工作 表 ， 否 则 会 出 现 运行 时 错误 。 如 
果 要 新 建 图 表 工作 表 ， 需 要 使 用 Sheets 集合 的 Add 方法 。 
下 面 的 代码 在 活动 工作 敌 中 新 建 了 一 个 工作 表 ， 由 于 没有 提供 任何 参数 ， 因 此 新 建 的 工作 
表 被 放置 到 活动 工作 表 之 前 。 

Worksheets.Add 
下 面 的 代码 在 活动 工作 敌 的 最 后 一 个 工作 表 之 后 新 建 了 两 个 工作 表 ， 其 中 使 用 了 命名 参数 
来 指定 After 参数 的 值 ， 使 用 Worksheets(Worksheets.Count) 引 用 最 后 一 个 工作 表 。 


Worksheets.Add after:=Worksheets (Worksheets.Count) 
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案例 6-4 ”使 用 对 象 变量 引用 新 建 的 工作 表 





























“输入 表示 新 建 ] 





下 面 的 代码 声明 了 一 个 Object 类 型 的 对 象 变量 sht 来 保存 新 建 的 工作 表 。 首 先 在 对 话 框 中 

















[ 作 表 的 类 型 的 数字 ， 然 后 使 用 Add 方法 根据 输入 的 工作 表 类 型 来 新 建 工 作 表 ， 




















最 后 使 用 TypeName 函数 检查 并 显示 该 工作 表 的 类 型 。 由 于 新 建 的 工作 表 可 能 是 图 表 工 作 表 ， 








所 以 需要 使 用 








Sub 使 用 对 象 变量 引用 新 建 的 工作 表 () 


Dim sht As Object, shtType As String 


Sheets 集合 的 Add 方法 ， 否 则 会 出 现 运行 时 错误 。 


shtType = InputBox ("请 输入 表示 工作 表 类 型 的 数字 (1 表示 工作 表 ，2 表示 图 表 工 作 表 ) : ") 
Select Case shtType 


Case 1 
Set sht = Sheets.Add (Type:=xlWorksheet) 
Case 2 
Set sht = Sheets.Add(Type:=xlChart 
Case Else 
MsgBox "输入 的 内 容 无 效 ， 无 法 新 建 工作 表 ! " 
Exit Sub 
End Select 
MsgBox "新 建 的 工作 表 的 类 型 是 : " 


End Sub 


通过 在 Add 方法 中 指定 Count 参数 ， 可 以 一 次 性 新 建 指定 数量 的 了 








动工 作 表 之 前 新 建 3 个 工作 表 : 


Worksheets.Add Count:=3 





对 象 的 Select 方法 可 以 选择 了 
择 多 个 工作 表 ， 而 Activate 方法 只 能 将 所 有 选中 的 了 
VBA 中 执行 很 多 操作 之 前 通 
下 面 的 两 行 代码 分 别 用 于 








2 个 工作 表 : 


Worksheets (3) .Select 





& TypeName (sht) 





6.4 选择 与 激活 工作 表 


使 用 Worksheet 对 象 的 Activate 方法 可 以 激活 指定 的 工作 表 为 活动 工作 表 , 使 用 Worksheet 

















Worksheets (2) .Activate 








方法 并 将 其 Replace 参数 设置 为 False， 以 扩 
[ 作 表 后 会 自动 蔡 换 原来 选择 的 了] 
案例 6-5 ”使 用 Replace 参数 选择 多 个 工作 表 

下 面 的 代码 同时 选择 活动 J 


5 个 。 


工作 表 总 数 不 低 于 



































此 在 新 选择 一 个 了 




















Sub 使 用 Replace 参数 选择 多 个 工作 表 () 


Dim astrNames (1 To 3) As String, intIndex As Integer 


astrNames (1) 
astrNames (2) 
astrNames (3) 


= Worksheets (1) .Name 
= Worksheets (3) .Name 
= Worksheets (5) .Name 


Worksheets (astrNames (1)) .Select 
For intindex = 2 T1603 
Worksheets (astrNames (intIndex) ) .Select False 


ED Ae 


[ 作 表 。 下 面 的 代码 在 活 


























[ 作 表 。 





[ 作 敌 中 第 1 个 、 第 3 个 、 第 5 个 了 





[ 作 表 。Activate 和 Select 方法 的 区 别 在 于 ，Select 方法 可 以 同时 选 
[ 作 表 中 的 其 中 之 一 激活 为 活动 工作 表 。 在 
常 不 需要 先 选择 特定 的 对 象 。 

选择 活动 工作 短 中 的 第 3 个 了 





C 作 表 ， 以 及 激活 活动 工作 短 中 的 第 





如 果 需 要 选择 多 个 工作 表 , 则 可 以 使 用 两 种 方法 。 一 种 方法 是 使 用 Worksheet 对 象 的 Select 
展 所 选择 的 工作 表 数 量 。 该 参数 的 值 默 认为 True， 


[ 作 表 ， 假 设 活动 工作 短 中 的 
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Next intIndex 
End Sub 


选择 多 个 工作 表 的 另 一 种 方法 是 使 用 Worksheet 对 象 的 Select 方法 配合 Array 函数 。 
案例 6-6 ”使 用 Array 函数 选择 多 个 工作 表 
下 面 的 代码 可 以 实现 与 上 一 个 案例 相同 的 效果 ， 但 是 本 例 是 使 用 Array 函数 生成 一 个 包含 名 
要 选择 的 3 个 工作 表 的 索引 号 的 数组 。 在 选择 3 个 工作 表 后 ， 使 用 Activate 方法 激活 选中 的 工 
作 表 中 的 第 2 个 工作 表 ， 这 个 工作 表 是 工作 短 中 的 第 3 个 工作 表 。SelectedSheets 是 Window 对 
象 的 属性 ， 它 表示 窗口 中 已 选中 的 所 有 工作 表 的 集合 。 

Sub 使 用 Array 函数 选择 多 个 工作 表 () 


Worksheets (Array(1，3，5)) .Select 
ActiveWindow.SelectedSheets (2) .Activate 
End Sub 




























































6.5” 重 命名 工作 表 


新 建 的 工作 表 的 名 称 以 Sheet+ 编 号 的 形式 自动 命名 。Excel 2016 中 的 工作 敌 默 认 包 含 一 个 
工作 表 ， 其 名 称 为 Sheetl 。 新 建 一 个 工作 表 的 默认 名 称 是 Sheet2， 再 新 建 一 个 工作 表 的 默认 名 
称 是 Sheet3， 以 此 类 推 。 

我 们 应 该 对 工作 表 的 名 称 进行 重 命名 , 以 便 让 名 称 更 易于 识别 。 使 用 Worksheet 对 象 的 Name 
属性 可 以 返回 或 设置 工作 表 的 名 称 。 下 面 的 代码 将 Sheetl 工作 表 的 名 称 改 为 “1 月 ”, 在 VBA 
中 执行 该 操作 之 前 不 需要 先 选择 指定 的 工作 表 。 

Worksheets ("Sheet1") .Name = "1 月 " 

使 用 Name 属性 每 次 只 能 修改 一 个 工作 表 的 名 称 。 通 过 使 用 循环 结构 可 以 一 次 性 设置 多 个 
工作 表 的 名 称 。 


案例 6-7 ”批量 重 命名 工作 表 
下 面 的 代码 将 重 命名 工作 竹中 的 所 有 工作 表 ， 但 不 包含 图 表 工 作 表 。 工 作 表 的 名 称 由 用 户 
指定 ， 各 个 工作 表 的 名 称 以 用 户 指定 的 名 称 + 编号 的 形式 进行 设置 。 
Sub 批量 重 命名 工作 表 () 
Dim strName As String, intNumber Rs Integer 
Dim wks As Worksheet 
strName = InputBox ("请 指定 工作 表 的 名 称 : ") 
if StrMame = "" Then Exit Sub 
For Each wks In Worksheets 
intNumber = intNumber + 1 
wks.Name = strName & intNumber 
Next wks 
End Sub 


于 一 个 工作 竹中 不 能 存在 名 称 相同 的 
位 工作 表 ， 或 在 一 些 操作 中 作为 判断 的 条 件 。 

案例 6-8 ”对 指定 表 以 外 的 表 进 行 批量 重 命名 

下 面 的 代码 将 对 名 为 “汇总 表 ” 的 工作 表 以 外 的 其 他 工作 表 以 1 月 、2 月 、3 月 等 名 称 进行 
命名 。 在 For Each 循环 结构 中 依次 遍历 每 一 个 工作 表 , 然后 使 用 和 Then 结构 判断 工作 表 的 名 称 
是 否 是 “汇总 表 ”， 如 果 不 是 则 重 命名 该 工作 名 。 使 用 intIndex 变量 存储 一 个 从 1 开始 不 断 递 
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作 表 ， 因 此 可 以 利用 名 称 的 这 种 唯一 性 来 准确 定 
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增 的 数字 ， 该 数字 作为 工作 表 新 名 称 中 的 月 份 数 。 
Sub 对 指定 表 以 外 的 表 进 行 批量 重 命名 () 


Dim wks As Worksheet, intIndex Rs Integer 
For Each wks In Worksheets 
IE wks.Name <> "汇总 表 "” Then 
intIndex = intIndex + 1 
wks.Name = intIndex & "月 " 
End If 
Next wks 
End Sub 





6.6 移动 和 复制 工作 表 


移动 和 复制 工作 表 需 要 使 用 Worksheet 对 象 的 Move 和 Copy 方法 。 本 节 将 介绍 移动 和 复 
制 工 作 表 的 方法 ， 还 介绍 了 如 何 解 决 无 法 在 工作 短 中 的 最 后 一 个 工作 表 之 后 新 建 图 表 工作 表 





的 问题 。 
昌 6.6.1 ”移动 工作 表 





使 用 Worksheet 对 象 的 Move 方法 可 以 将 工作 表 在 其 所 在 的 工作 短 中 移动 ， 或 将 其 移动 到 








另 一 个 工作 适中 。Move 方法 包含 Before 和 After 两 个 参数 ,分 别 用 于 指定 将 工作 表 移 动 到 某 个 
工作 表 之 前 或 之 后 。 下 面 的 代码 将 活动 工作 表 移 动 到 其 所 在 工作 短 中 的 最 后 一 个 工作 表 之 后 : 




















ActiveSheet .Move After:=Worksheets (Worksheets.Count) 














与 Add 方法 不 同 ，Move 方法 不 返回 任何 内 容 。 使 用 Move 方法 移动 后 的 工作 表 会 成 为 活 
动工 作 表 ， 因 此 可 以 使 用 ActiveSheet 来 引用 使 用 Move 方法 移动 后 的 工作 表 。 




















案例 6-9 引用 移动 后 的 工作 表 











下 面 的 代码 将 Sheetl 工作 表 移动 到 工作 短 中 的 最 后 一 个 工作 表 之 前 ， 然 后 显示 该 工作 表 在 











工作 短 中 的 索引 号 。 
Sub 引用 移动 后 的 工作 表 () 











Worksheets ("Sheet1") .Move Before:=Worksheets (Worksheets.Count) 


MsgBox ActiveSheet.Index 
End Sub 


在 VBA 中 , 不 能 直接 在 工作 短 中 的 最 后 一 个 工作 表 之 后 新 建 
Move 方法 将 新 建 的 图 表 工 作 表 移动 到 最 后 一 个 工作 表 之 后 。 


案例 6-10 ”在 工作 表 之 后 新 建 图 表 工 作 表 















































工作 表 后 ， 将 其 移动 到 指定 的 工作 表 之 后 。 
Sub 在 工作 表 之 后 新 建 图 表 工 作 表 () 


Dim wks As Worksheet 
For Each wks In Worksheets 
Sheets.Add Type:=xlChart 
ActiveSheet .Move After:=wks 
Next wks 
End Sub 


图 表 工作 表 , 但 是 可 以 通过 使 





下 面 的 代码 在 活动 工作 敌 中 的 每 个 工作 表 之 后 新 建 一 个 图 表 工 作 表 。 实 际 上 是 在 新 建 图 表 


除了 在 工作 表 所 在 的 工作 敌 内 进行 移动 之 外 ， 还 可 以 将 工作 表 移 动 到 另 一 个 工作 夭 中 。 这 








sll2s 
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个 工作 憩 可 以 是 一 个 已 打开 的 工作 憩 ， 或 者 一 个 新 建 的 工作 短 。 如 果 使 用 Move 方法 时 同时 省 
略 Before 和 After 两 个 参数 ， 则 将 工作 表 移动 到 新 建 的 工作 德 中 。 下 面 的 代码 将 活动 工作 表 移 
动 到 一 个 新 建 的 工作 簿 中 : 
ActiveSheet .Move 
案例 6-11 ”将 工作 表 移动 到 其 他 工作 簿 中 
下 面 的 代码 将 活动 工作 表 移 动 到 名 为 “销售 报表 ”的 工作 短 中 的 最 后 一 个 工作 表 之 后 。 如 
果 该 工作 夭 当 前 未 打开 ， 则 向 用 户 发 出 提示 信息 。 为 了 避免 对 未 打开 的 工作 短 进 行 操作 而 导致 
的 运行 时 错误 ， 因 此 在 将 指定 的 工作 簿 赋值 给 对 象 变 量 之 前 加 入 了 On Error Resume Next 语句 
忽略 任何 可 能 的 错误 ， 赋 值 后 检查 是 否 有 错误 发 生 ， 如 果 有 则 向 用 户 发 出 提示 信息 并 退出 当前 
过 程 。 否 则 将 活动 工作 表 移 动 到 指定 的 工作 短 中 。 
Sub 将 工作 表 移 动 到 其 他 工作 簿 中 () 
Dim wkb As Workbook 
On Error Resume Next 


Set wkb = Workbooks ("销售 报表 ") 
If Err.Number <> 0 Then 
MsgBox "没有 打开 指定 的 工作 短 ! " 
Exit Sub 
End If 
ActiveSheet .Move After:=wkb.Worksheets (wkb.Worksheets.Count) 
End Sub 


6.6.2 ”复制 工作 表 


使 用 Worksheet 对 象 的 Copy 方法 可 以 复制 工作 表 ，Copy 方法 与 Move 方法 包含 的 参数 以 “ 
及 使 用 方法 完全 相同 ， 复 制 后 的 工作 表 也 将 自动 成 为 活动 工作 表 。 两 种 方法 的 唯一 区 别 在 于 
Copy 方法 是 复制 工作 表 ， 而 Move 方法 是 移动 工作 表 。 复 制 工作 表 是 指 在 原 位 置 保留 工作 表 ， 

而 在 其 他 位 置 新 增 工作 表 的 副本 。 下 面 的 代码 将 活动 工作 表 复 制 到 其 所 在 工作 短 中 的 最 后 一 个 
工作 表 之 前 : 


ActiveSheet .Copy Before:=Worksheets (Worksheets.Count) 












































































































































6.7 隐藏 工作 表 


使 用 Worksheet 对 象 的 Visible 属性 可 以 返回 或 设置 工作 表 的 显示 状态 ,该 属性 返回 或 设置 
的 值 由 XISheetVisibility 常量 提供 ， 见 表 6-6。 也 可 以 将 该 属性 设置 为 True 或 False， 如 果 设 置 
为 True 则 表示 工作 表 正 常 显 示 ， 作 用 等 同 于 xlSheetVisible 常量 值 ， 如 果 设 置 为 False 则 表示 将 
工作 表 隐 藏 ， 作 用 等 同 于 xlSheetHidden 常量 


表 6-6 ”XISheetVisibility 常量 


名 称 值 说 明 
xlSheetVisible | 显示 工作 表 


xlSheetHidden | 0 | 隐藏 工 作 表 ， 可 以 通过 功能 区 或 鼠标 右键 菜单 中 的 命令 让 工作 表 重 新 显示 
























































xlSheetVeryHidden 2 深度 隐藏 工作 表 ， 只 有 将 该 属性 设置 为 True 才能 让 工作 表 重 新 显示 
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案例 6-12 ”隐藏 除 指定 表 以 外 的 其 他 工作 表 

下 面 的 代码 将 用 户 指定 的 工作 表 以 外 的 其 他 工作 表 进 行 深度 隐藏 ， 无 法 通过 Excel 界面 操 
作 来 恢复 这 些 工作 表 的 显示 。 使 用 strName 变量 存储 用 户 输入 的 工作 表 名 称 ， 为 了 避免 输入 不 
存在 的 工作 表 名 称 ， 因 此 将 输入 名 称 的 工作 表 的 引用 赋值 给 一 个 对 象 变量 ， 如 果 该 名 称 的 工作 
表 不 存在 ， 则 会 出 现 运行 时 错误 。 因 此 在 复制 语句 之 前 使 用 On Error Resume Next 语句 忽略 所 
有 错误 。 在 赋值 后 检查 Err 对 象 的 Number 属性 是 否 为 0， 如果 不 为 0 则 说 明 指定 的 工作 表 不 存 
在 ， 此 时 会 向 用 户 发 出 提示 信息 ， 然 后 退出 当前 过 程 ， 如 果 为 0 则 说 明 工作 表 存在 ， 然 后 在 所 
有 工作 表 中 进行 遍历 ， 将 不 是 用 户 输入 的 名 称 的 工作 表 进 行 深度 隐藏 。 由 于 VBA 默认 以 二 进 
制 方式 进行 比较 ， 因 此 使 用 Ucase 函数 将 遍历 的 工作 表 的 名 称 和 用 户 输入 的 名 称 都 转换 为 大 写 
形式 ， 从 而 绕 开 严格 的 大 小 写 格式 。 

Sub 隐藏 除 指定 表 以 外 的 其 他 工作 表 () 


Dim wks As Worksheet, strName As String 
strName = InputBox ("请 输入 要 显示 的 工作 表 的 名 称 : ") 
On Error Resume Next 
Set wks = Worksheets (strName) 
If Err.Number <> 0 Then 
MsgBox "指定 的 工作 表 不 存在 ! " 
Exit Sub 
Else 
For Each wks In Worksheets 
If UCase(wks.Name) <> UCase (strName) Then 
wks.Visible = xlSheetVeryHidden 
Else 
wks.Visible = xlSheetVisible 
End If 
Next wks 
End If 
End Sub 




































































































































































6.8 ”删除 工作 表 


使 用 Worksheet 对 象 的 Delete 方法 可 以 删除 指定 的 工作 表 ， 删 除 工 作 表 时 将 会 显示 确认 删 
除 的 对 话 框 ， 其 中 包含 “删除 ”和 “取消 ”两 个 按钮 。Delete 方法 返回 一 个 Boolean 类 型 的 值 ， 
如 果 为 True 则 表示 单 击 的 是 对 话 框 中 的 “删除 ”按钮 ， 如 果 为 False 则 表示 单 击 的 是 对 话 框 中 
的 “取消 ”按钮 .如 果 不 想 显示 确认 删除 对 话 框 而 自动 执行 默认 的 删除 操作 , 则 可 以 将 Application 
对 象 的 DisplayAlerts 属性 设置 为 True。 

下 面 的 代码 删除 活动 工作 敌 中 的 第 1 个 、 第 3 个 和 第 5 个 工作 表 : 

Worksheets (Array (1l, 3, 5)) .Delete 

案例 6-13 ”批量 删除 工作 表 

下 面 的 代码 将 会 删除 用 户 指定 的 工作 表 以 外 的 其 他 工作 表 。Do Loop 循环 结构 用 于 检查 用 
户 指定 要 保留 的 工作 表 是 否 存在 于 活动 工作 敌 中 ， 如 果 不 存在 则 重新 显示 输入 对 话 框 并 在 其 中 
显示 新 的 提示 信息 ， 如 图 6-2 所 示 。strMsg 变量 用 于 存储 在 输入 对 话 框 中 显示 的 不 同 信息 。 如 
果 指 定 的 工作 表 存 在 或 者 在 输入 对 话 框 中 单 击 了 “取消 ”按钮 ， 则 会 退出 Do Loop 循环 。 如 果 
指定 的 工作 表 存 在 ， 则 进入 For Each 循环 并 开始 遍历 活动 工作 敌 中 的 每 一 个 工作 表 ， 只 要 工作 
表 的 名 称 不 是 用 户 在 输入 对 话 框 中 指定 的 工作 表 的 名 称 ， 就 删除 这 个 工作 表 。 为 了 避免 每 次 删 
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除 工作 表 都 出 现 确认 删除 的 对 话 框 ， 可 将 Application 对 象 的 DisplayAlerts 属性 设置 为 False。 
Sub 批量 删除 工作 表 () 


Dim strMsg As String, strName As Sting wks As Worksheet 
strMsg = "请 输入 要 保留 的 工作 表 的 名 称 : 


Do 





strName = InputBox (strMsg) 
If strName = "" Then Exit Sub 
On Error Resume Next 
Set wks = Worksheets (strName) 
If Err.Number <> 0 Then 
strMsg = "指定 的 工作 表 不 存在 ， 请 重新 输入 : " 
End If 
Loop Until Err.Number = 0 
Application.DisplayAlerts = False 
For Each wks In Worksheets 
If UCase (wks.Name) <> UCase(strName) Then 
wks.Delete 





End If 
Next wks 
Application.DisplayAlerts = True 
End Sub 
Microsoft Excel x Microsoft Excel x 
请 给 入 要 保留 的 工作 表 的 名 称 : 确定 指定 的 工作 表 不 存在 ， 请 重新 输入 : 确定 

















| 
图 6-2 ”指定 不 存在 的 工作 表 时 在 输入 对 话 框 中 会 显示 不 同 的 提示 信息 











6.9 ”将 工作 簿 中 的 所 有 工作 表 导 出 为 独立 的 工作 簿 


有 时 可 能 需要 将 工作 短 中 的 每 一 个 工作 表 保 存 为 独立 的 工作 短 ， 有 些 工作 敌 包 含 多 个 工作 
表 ， 有 时 可 能 需要 将 这 些 工 作 表 逐 一 保存 为 单独 的 工作 短 ， 每 个 工作 短 的 名 称 以 相应 的 工作 表 
标签 的 名 称 来 命名 。 例 如 ， 如 果 工 作 短 包 含 Sheetl、Sheet2 和 Sheet3 这 3 个 工作 表 ， 那 么 拆 分 
后 包括 3 个 工作 短 ， 名 称 分 别 为 Sheet1、Sheet2、Sheet3。 下 面 的 代码 用 于 将 当前 工作 适 以 工作 
表 为 单位 拆 分 为 多 个 工作 夭 ， 每 个 工作 敌 以 原 工 作 短 中 的 工作 表 标签 名 称 来 命名 。 

案例 6-14 ”将 工作 簿 中 的 每 一 个 工作 表 保 存 为 独立 的 文件 

下 面 的 代码 使 用 strPath 和 strName 变量 分 别 存储 导出 的 工作 短 的 路 径 和 文件 名 ， 路 径 为 活 回 
动工 作 短 的 路 径 ， 文 件 名 为 每 个 工作 表 的 名 称 。 将 Application 对 象 的 ScreenUpdating 属性 设置 
为 True 来 关闭 屏幕 刷新 ， 以 防 处 理 各 个 工作 表 时 带 来 屏幕 闪烁 。 将 Application 对 象 的 
DisplayAlerts 属性 设置 为 False 屏蔽 警告 信息 对 话 框 ， 因 为 如 果 已 经 存在 同名 文件 ,在 保存 时 将 
会 显示 是 否 覆 盖 文 件 的 提示 信息 。 使 用 For Each 循环 结构 遍历 活动 工作 敌 中 的 每 一 个 工作 表 ， 
使 用 不 带 参数 的 Copy 方法 复制 每 一 个 工作 表 ， 这 样 会 将 工作 表 复制 到 一 个 新 建 的 工作 短 中 ， 
此 时 新 建 工作 敌 成 为 活动 工作 憩 。 使 用 ActiveWorkbook 引用 包含 新 复制 的 工作 表 的 工作 夭 ， 然 
后 使 用 SaveAs 方法 将 该 工作 短 以 strPath 和 strName 变量 组 成 的 路 径 和 文件 名 进行 保存 ， 最 后 
使 用 Close 方法 关闭 活动 工作 短 。 继 续 遍 历 下 一 个 工作 表 并 进行 相同 的 处 理 。 

Sub 将 工作 每 中 的 所 有 工作 表 导 出 为 独立 的 工作 每 () 


Dim strPath As String, strName Rs String, wks As Worksheet 
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strPath = ActiveWorkbook.Path & "\" 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
For Each wks In Worksheets 

strName = wks.Name 

wks .Copy 

ActiveWorkbook.SaveAs strPath & strName 

ActiveWorkbook.Close 
Next wks 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 

End Sub 


提示 : 如 果 和 希望 可 以 自由 选择 工作 表 的 保存 路 径 而 不 只 是 保存 在 活动 工作 簿 所 在 的 路 径 中 ， 
则 可 以 使 用 FileDialog 对 象 提供 的 对 话 框 来 选择 文件 保存 路 径 ， 该 对 象 的 用 法 将 在 第 13 章 进行 
详细 介绍 。 
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第 7 章 使 用 Range 对 象 处 理 单元 格 区 域 


Range 对 象 代表 单元 格 











的 方法 ， 包 括 引用 生 

















区 域 , 它 是 Excel 对 象 模型 中 最 重要 且 频 繁 使 用 的 对 象 , 几乎 所 有 与 
单元 格 区 域 相关 的 操作 都 与 Range 对 象 有 关 。 本 章 将 详细 介绍 使 用 Range 对 象 处 理 单元 格 区 域 
元 格 和 单元 格 区 域 的 多 种 方式 、 在 单元 格 区 域 中 定位 与 查找 、 读 写 单元 格 
区 域 中 的 数据 。 除 此 之 外 ， 还 将 介绍 与 处 理 单元 格 区 域 中 的 数据 相关 的 其 他 一 些 对 象 和 技术 ， 











包括 使 用 Name 对 象 处 理 名 称 、 使 用 Sort 对 象 和 AutoFilter 对 象 处 理 排序 和 筛选 等 。 


7.1 理解 Range 对 象 


Range 对 象 是 Worksheet 对 象 的 子 对 象 ， 它 可 以 是 一 个 单元 格 ， 一 个 单元 格 区 域 ， 不 相 邻 
的 多 个 单元 格 区 域 。 本 节 将 介绍 Range 对 象 的 基本 概念 及 其 常用 的 属性 和 方法 ， 在 本 章 后 面 的 
内 容 中 将 会 详细 介绍 这 些 属性 和 方法 的 具体 应 用 。 
7.1.1 Range 对 象 的 常用 属性 和 方法 

Range 对 象 包含 很 多 属性 和 方法 ， 表 7-1 和 表 7-2 列 出 了 其 中 比较 常用 的 属性 和 方法 。 












































表 7-1 Range 对 象 的 常用 属性 






































































































































属 性 说 了 明 
Address 返回 Range 对 象 中 包含 的 单元 格 或 单元 格 区 域 的 相对 或 绝对 引用 的 地 址 
Areas 返回 包含 多 个 单元 格 区 域 的 Areas 集合 ， 每 一 个 单元 格 区 域 是 一 个 Range 对 象 
Cells 返回 单元 格 区 域 中 的 所 有 单元 格 
Column 返回 单元 格 区 域 第 一 列 的 列 号 ， 如 果 有 多 个 区 域 ， 则 只 返回 第 一 个 区 域 第 一 列 的 列 号 
Columns 返回 单元 格 区 域 中 的 所 有 列 ， 如 果 有 多 个 区 域 ， 则 只 返回 第 一 个 区 域 中 的 所 有 列 
ColumnWidth 返回 或 设置 单元 格 区 域 中 的 所 有 列 的 列 宽 
Count 返回 单元 格 区 域 中 的 所 有 单元 格 的 总 数 
CountLarge 返回 比 Count 属性 范围 更 大 的 单元 格 数 量 
CurrentRegion 返回 单元 格 所 在 的 连续 的 数据 区 域 ， 该 区 域 与 其 他 数据 区 域 之 间 以 空 行 和 空 列 分 隔 
End 返回 数据 区 域 末尾 的 单元 格 ， 该 属性 与 Ctrl+ 方 向 键 的 操作 具有 同等 效果 
EntireColumn 返回 单元 格 区 域 中 的 整 列 
EntireRow 返回 单元 格 区 域 中 的 整 行 
Font 返回 表示 单元 格 字 体格 式 的 Font 对 象 
Formula 返回 或 设置 单元 格 中 的 公式 ， 使 用 Al 引用 样式 
Height 返回 单元 格 区 域 的 高 度 ， 以 磅 为 单位 
Hidden 返回 或 设置 是 否 隐藏 行 或 列 
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续 表 

属 性 说 明 
Offset 返回 对 单元 格 或 单元 格 区 域 进行 偏 移 后 得 到 的 单元 格 或 单元 格 区 域 
Resize 返回 对 单元 格 或 单元 格 区 域 的 大 小 进行 调整 后 得 到 的 单元 格 区 域 
Row 返回 单元 格 区 域 第 一 行 的 行 号 ， 如 果 有 多 个 区 域 ， 则 只 返回 第 一 个 区 域 第 一 行 的 行 号 
RowHeight 返回 或 设置 单元 格 区 域 中 的 所 有 行 的 行 高 
Rows 返回 单元 格 区 域 中 的 所 有 行 ， 如 果 有 多 个 区 域 ， 则 只 返回 第 一 个 区 域 中 的 所 有 行 
Text 返回 或 设置 单元 格 或 单元 格 区 域 中 的 文本 ， 包 含 格式 
Value 返回 或 设置 单元 格 或 单元 格 区 域 中 的 值 ， 不 包含 格式 
Width 返回 单元 格 区 域 的 宽度 ， 以 字符 为 单位 

表 7-2 ”Range 对 象 的 常用 方法 

.7 说 有明 
Activate 激活 选区 内 的 一 个 单元 格 
AutoFit 根据 单元 格 中 的 内 容 多 少 ， 自 动 调整 单元 格 所 在 行 的 行 高 或 列 的 列 宽 以 适应 内 容 


ClearContents | 清除 单元 格 区 域 中 的 内 容 
ClearFormats 清除 单元 格 区 域 中 的 格式 











Copy 将 单元 格 区 域 复制 到 指定 的 单元 格 区 域 或 剪贴 板 中 
Cut 将 单元 格 区 域 剪 切 到 指定 的 单元 格 区 域 或 剪贴 板 中 
Find 在 单元 格 区 域 中 查找 特定 信息 ， 不 影响 选区 和 活动 单元 格 





FindNext 





返回 由 Find 方法 指定 的 搜索 条 件 所 找到 的 下 一 个 匹配 单元 格 ， 不 影响 选区 和 活动 单元 格 
返回 由 Find 方法 指定 的 搜索 条 件 所 找到 的 上 一 个 匹配 单元 格 ， 不 影响 选区 和 活动 单元 格 
PasteSpecial 将 单元 格 区 域 中 的 内 容 以 指定 格式 粘贴 到 目标 区 域 ， 与 Excel 中 的 选择 性 粘贴 功能 等 效 
选 
返 








FindPrevious 











择 单元 格 或 单元 格 区 域 
可 与 指定 类 型 匹配 的 所 有 单元 格 ， 与 Excel 中 的 定位 条 件 功能 等 效 


Select 








SpecialCells 





7.1.2 ”选择 与 激活 单元 格 


单元 格 操作 方面 的 一 个 比较 容易 混淆 的 概念 是 单元 格 的 选择 与 激活 。 使 用 Range 对 象 的 
Select 方法 可 以 选择 单元 格 或 单元 格 区 域 。 下 面 的 代码 选择 活动 工作 表 中 的 B2:D6 单元 格 区域 : 

Range ("B2:D6") .Select 

选择 B2:D6 单元 格 区 域 后 的 效果 如 图 7-1 所 示 ， 该 区 域 被 绿色 边框 包围 起 来 ， 除 了 区 域 
中 的 一 个 单元 格 呈 白色 背景 外 ， 其 他 单元 格 的 背景 都 是 灰色 的 。 如 果 在 此 状态 下 输入 内 容 
那么 会 将 内 容 输入 到 具有 白色 背景 的 B2 单元 格 中 ,这 个 单元 格 是 该 选区 中 的 活动 单元 格 。 在 
保持 选区 不 变 的 情况 下 ， 可 以 按 Tab、Shift+Tab、Enter 和 Shift+Enter 等 键 在 选区 内 改变 活动 
单元 格 的 位 置 。 
在 VBA 中 ， 可 以 在 选择 一 个 单元 格 区 域 后 ， 使 用 Activate 方法 在 选区 内 激活 任 一 单元 格 ， 
使 其 成 为 活动 单元 格 。 下 面 的 代码 先 选择 B2:D6 单元 格 区 域 ， 然 后 激活 其 中 的 D5 单元 格 ， 使 
其 成 为 活动 单元 格 ， 结 果 如 图 7-2 所 示 。 


Range ("B2:D6") .Select 
Range ("D5") .Activate 
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图 7-1 选择 B2:D6 单元 格 区 域 图 7-2 激活 选区 中 的 D5 单元 格 

如 果 使 用 Activate 方法 激活 的 单元 格 不 在 当前 选区 内 ， 那 么 激活 的 单元 格 将 取代 原来 的 选 
区 。 换 名 话说， 激活 的 单元 格 变 成 活动 单元 格 且 成 为 当前 选区 ， 该 选区 只 包含 这 个 刚 被 激活 的 
元 格 。 
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7.2 引用 单元 格 和 单元 格 区 域 


本 节 将 介绍 在 VBA 中 引用 单元 格 或 单元 格 区 域 的 多 种 方法 ,其 中 的 一 些 方法 具有 相同 的 效 
果 ， 而 另 一 些 方法 则 适合 在 不 同 的 情况 下 使 用 。 


7.2.1 引用 一 个 单元 格 


可 以 使 用 Range 或 Cells 属性 引用 单元 格 。Range 属性 以 字符 串 的 形式 进行 引用 ，Cells 属 中 * 
性 以 数字 的 形式 进行 引用 。 本 节 主要 介绍 引用 一 个 单元 格 的 方法 ， 引 用 单元 格 区 域 的 方法 将 在 
下 一 节 介 绍 。 


1. Range 属性 

可 以 使 用 Application 或 Worksheet 对 象 的 Range 属性 引用 工作 表 中 的 单元 格 。 使 用 Application 
对 象 的 Range 属性 引用 的 是 活动 工作 表 中 的 单元 格 ， 使 用 Worksheet 对 象 可 以 引用 活动 工作 表 
中 的 单元 格 ， 也 可 以 引用 指定 工作 表 中 的 单元 格 。 
无 论 使 用 哪个 对 象 的 Range 属性 ， 要 引用 一 个 单元 格 都 需要 将 表示 单元 格 地址 的 文本 输入 
到 Range 属性 右 侧 的 一 对 圆 括号 中 ， 并 使 用 双 引 号 将 单元 格 地 址 括 起 来 。 下 面 的 代码 引用 活动 
工作 表 中 的 Al 单元 格 : 

Range ("A1") 
如 果 活 动工 作 表 是 Sheet1， 那 么 下 面 的 代码 引用 Sheet2 工作 表 中 的 Al 单元 格 : 
Worksheets ("Sheet2") .Range ("A1") 
由 于 Range 属性 中 的 参数 是 字符 串 ， 因 此 可 以 使 用 变量 、 数 字 和 文本 的 组 合 来 作为 字符 串 
表达 式 提供 给 Range 属性 的 参数 。 

案例 7-1 在 Range 属性 中 使 用 变量 

下 面 的 代码 在 Range 属性 的 参数 中 使 用 由 变量 和 文本 组 成 的 表达 式 ， 变 量 用 于 存储 用 户 输 
入 的 表示 行 号 的 数字 , 然后 与 表示 列 标的 字母 组 合 为 单元 格 地 址 , 并 将 作为 Range 属性 的 参数 。 
本 例 将 选择 位 于 A 列 某 行 中 的 单元 格 。 

Sub 在 Range 属性 中 使 用 变量 () 


Dim strRow As String 
strRow = InputBox (" 请 输入 单元 格 的 行 号 : ") 
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If IsSNumeric (strRow) Then 
Range("A" & StrRow) .Select 


End If 
End Sub 




















Range 对 象 也 有 一 个 Range 属性 ， 虽 然 也 可 以 引用 单元 格 ， 但 是 在 使 用 中 容易 造成 混乱 。 
下 面 的 代码 使 用 了 Range 对 象 的 Range 属性 , 引用 的 是 D4 单元 格 。 在 使 用 Range 对 象 的 Range 
属性 的 情况 下 ， 可 以 将 Range 对 象 所 引用 的 单元 格 想象 成 工作 表 中 左上 角 的 Al 
例 中 的 B2，C3 则 是 B2 向 右 3 列 并 向 下 3 行 后 的 单元 格 ， 即 D4。 

Range ("B2") .Range ("C3") 

2. Cells 属性 

引用 单元 格 的 另 一 种 方式 是 使 用 Cells 属性 。 与 Range 属性 类 似 ，Cells 属性 的 父 对 象 也 可 










































































Worksheets ("Sheet1") .Cells (2, 1) 








等 同 于 Application.Cells。 
Cells (2, 1) 


Cells 属性 


Cells (2, 


虽然 Cells 











单元 格 ， 





即 本 











Sheetl 工作 表 中 的 A2 单元 格 。 














的 第 二 个 参数 除了 可 以 使 用 数字 外 ， 还 可 以 使 用 
"A") 
属性 包含 两 个 参数 , 但 是 第 二 个 参数 是 可 选 参数 , 这 意味 着 可 以 省 略 第 二 个 参数 。 
当 只 使 用 第 一 个 参数 时 ， 该 参数 表示 的 是 工作 表 或 单元 格 区 域 中 的 站 








以 是 Application、Worksheet 或 Range 对 象 。Cells 属性 包含 两 个 参数 ， 分 别 用 于 指定 要 引用 


单元 格 的 行 号 和 列 号 。 下 面 的 代码 引用 


字母 来 表示 列 ， 如 下 所 示 : 











的 


如 果 Sheetl 是 活动 工作 表 ， 则 可 以 省 略 Worksheet 对 象 的 限定 ， 写 为 以 下 形式 ， 这 种 方式 


元 格 索 引号 ， 按 先行 后 列 


的 顺序 计算 。 下 面 的 代码 仍然 引用 单元 格 A2, 但 是 只 使 用 了 Cells 属性 的 第 一 个 参数 。 在 Excel 
2007 或 更 高 版 本 的 Excel 中 ， 列 的 总 数 是 16384。 由 于 使 用 一 个 参数 的 Cells 属性 是 按照 先行 后 


列 的 顺序 来 计算 索引 号 的 ， 
下 一 行 的 第 一 列 ， 卓 


列 之 后 ， 转 向 1 











因此 下 

















Worksheets ("Sheet1") .Cells (16385) 





于 Cells 
地 在 循环 结构 












































ph 进行 处 理 。 





属性 可 以 使 用 


表示 行 号、 列 号 的 两 个 数字 来 引用 特定 的 单元 格 , 因 





Sub 在 循环 结构 中 处 理 Cells 属性 () 
Dim intRow Rs Integer, intCol As Integer 
For intRow = 1 To 6 

Por +ntChl = TOTO. 委 

Cells (intRow, intCol) .Value = intRow * intCol 

Next intCol 


Next i 
End Sub 


ntRow 


如 果 在 Range 对 象 中 使 


中 的 某 个 单元 格 。 下面 的 代码 引用 活动 了] 



































即 D3 单元 格 。 使 用 Range 对 象 引用 单元 格 


Range("B2:F6") -Cells(27 3) 


a 














案例 7-2 在 循环 结构 中 处 理 Cells 属性 
下 面 的 代码 在 A1:D6 单元 格 
的 行 号 和 列 号 的 乘积 ， 如 图 7-3 所 示 。 








区 域 的 方法 将 在 下 一 节 介绍 。 


可 代码 中 的 16385 相当 于 是 16384+1, 即 扫描 完 第 一 行 的 16384 
A2 单元 格 。 


此 可 以 很 方便 





用 Cells 属性 ， 那 么 引用 的 将 是 该 Range 对 象 所 表示 的 单元 格 
[ 作 表 中 的 B2:F6 单元 格 


区 域 的 每 一 个 单元 格 中 输入 一 个 数字 ， 该 数字 是 其 所 在 单元 格 





区 域 


区 域 的 第 2 行 第 3 列 的 单元 格 ， 
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1 1 2 3 4 
2 4 6 8 
3 3 6 9 12 
4 4 8 12 16 
5 5 10 15 20 
6 6 12 18 24 





图 7-3 在 单元 格 区 域 中 输入 数字 


也 可 以 在 Range 对 象 的 Cells 属性 中 只 使 用 一 个 参数 , 其 作用 与 前 面 介绍 的 使 用 一 个 参数 的 
Cells 属性 相同 , 仍然 按照 先行 后 列 的 方式 引用 单元 格 区 域 中 的 单元 格 。 如 果 仍 要 在 上 面 的 B2:F6 
单元 格 区 域 中 引用 D3 单元 格 , 则 可 以 将 Cells 属性 的 第 一 个 参数 设置 为 8。 这 是 因为 单元 格 D3 
位 于 B2:F6 单元 格 区 域 中 的 第 2 行 第 3 列 ， 该 区 域 每 行 有 5 个 单元 格 ， 因 此 D3 单元 格 的 索引 
号 为 1X5+3=8。 

Range ("B2:F6") .Cells (8) 


7.2.2 引用 连续 或 不 连续 的 单元 格 区 域 


可 以 使 用 Range 属性 引用 单元 格 区 域 ， 也 可 以 在 Range 属性 中 使 用 Cells 属性 引用 单元 格 区 
域 。 如 果 要 引用 不 连续 的 单元 格 区 域 ， 则 可 以 使 用 Range 属性 或 Application 对 象 的 Union 方法 。 


1. Range 属性 

5 使 用 Range 属性 引用 一 个 单元 格 的 方法 类 似 ， 也 可 以 使 用 Range 属性 引用 一 个 单元 格 区 

域 ， 只 需 将 表示 单元 格 区 域 的 地 址 放 入 Range 属性 右 侧 的 一 对 圆 括号 中 ， 并 使 用 双 引 号 将 其 括 
起 来 。 下 面 的 代码 引用 活动 工作 表 中 的 B2:F6 单元 格 区 域 : 

Range ("B2:F6") 

Range 属性 实际 上 有 两 个 参数 ， 在 使 用 该 属性 引用 单元 格 区 域 时 ， 可 以 同时 指定 两 个 参数 ， 
将 第 一 个 参数 指定 为 单元 格 区 域 左 上 角 的 单元 格 ， 将 第 二 个 参数 指定 为 单元 格 区 域 右 下 角 的 单 
元 格 , 两 个 参数 之 间 以 逗号 分 隔 。 下 面 的 代码 仍然 引用 B2:F6 单元 格 区 域 ,但 是 同时 指定 了 Range 
属性 的 两 个 参数 : 

Range ("B2", "F6") 

也 可 以 将 Cells 属性 返回 的 单元 格 作 为 Range 属性 的 两 个 参数 , 以 指定 单元 格 区 域 的 左上 角 
单元 格 和 右 下 角 单 元 格 。 下 面 的 代码 仍然 引用 B2:F6 单元 格 区 域 ,但 是 使 用 Cells 属性 作为 Range 
属性 的 参数 : 

Range (Cells (2, 2), Cells(6, 6)) 

使 用 Range 属性 不 仅 可 以 引用 一 个 单元 格 区 域 ， 还 可 以 引用 多 个 不 连续 的 单元 格 或 单元 格 
区 域 ， 只 需 在 Range 属性 右 侧 的 圆 括号 中 使 用 一 对 双 引 号 将 所 有 以 逗号 分 隔 的 单元 格 或 单元 格 
区 域 括 起 来 。 下 面 的 两 行 代码 分 别 引用 5 个 单元 格 (Al1、B3、C6、D2、E5) 和 3 个 单元 格 区 
域 (A1:A6、C1:C6、E1:E6) 。 


Range ("Al,B3,C6,D2,E5") 
Range ("Al:A6,C1:C6,El1:E6") 


2. Union 方法 

当 需 要 引用 并 处 理 多 个 区 域 时 ， 可 以 使 用 Application 对 象 的 Union 方法 。 该 方法 可 以 将 多 
个 单元 格 区 域 引用 合并 为 一 个 Range 对 象 ， 其 中 的 每 个 参数 表示 一 个 单元 格 区 域 引 用 ， 各 参数 
之 间 以 逗号 分 隔 。 必 须 至 少 为 Union 方法 提供 两 个 参数 。 下 面 的 代码 使 用 mg 变量 存储 Al:B3 
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和 D3:E6 两 个 单元 格 区 域 : 


Dim rng As Range 
Set rng = Union (Range ("Al:B3"), Range ("D3:E6")) 


7.2.3 ”处 理 多 个 单元 格 区 域 


在 使 用 上 一 节 介 绍 的 技术 引用 了 多 个 单元 格 区 域 后 ， 如 果 要 处 理 这 些 区 域 ， 则 需要 使 
Range 对 象 的 Areas 属性 。 该 属性 返回 Range 对 象 中 包含 的 所 有 单元 格 区 域 的 集合 ， 其 中 的 每 
一 个 区 域 都 是 一 个 Range 对 象 ， 可 以 使 用 For Each 循环 结构 在 Areas 集合 中 遍历 每 一 个 区 域 并 
进行 相应 的 处 理 。 

案例 7-3 ”使 用 Areas 属性 处 理 多 个 区 域 
下 面 的 代码 显示 了 每 个 单元 格 区 域 包含 的 单元 格 数量 , 使 用 mgs 变量 存储 两 个 单元 格 区 域 ， 

然后 在 For Each 循环 结构 中 使 用 mg 变量 遍历 每 一 个 单元 格 区 域 ， 使 用 Range 对 象 的 Count 属 
性 统计 每 个 单元 格 区 域 中 的 单元 格 数量 ， 并 显示 在 对 话 框 中 。 
Sub 使 用 Areas 属性 处 理 多 个 区 域 () 
Dim rng As Range, rngs Rs Range 
Set rngs = Union (Range ("R1:B3")，Range ("D3:E6")) 
For Each rng In rngs.Areas 
MsgBox rng.Rddress(0，0) & "区 域 中 的 单元 格 数量 是 : " & rng.Count 


Next rng 
End Sub 


7.2.4 引用 多 个 区 域 的 重合 部 分 


如 果 需 要 获取 多 个 区 域 的 重 又 部 分 , 则 可 以 使 用 Application 对 象 的 Intersect 方法 。Intersect 
方法 包含 的 参数 与 Union 方法 类 似 ， 每 个 参数 表示 要 获取 重 炙 部 分 的 单元 格 区 域 的 引用 ， 各 参 
数 之 间 以 逗号 分 隔 。 必 须 至 少 为 Intersect 方法 提供 两 个 参数 。 
加 


案例 7-4 使 用 Intersect 方法 引用 多 个 区 域 的 重叠 部 分 








































































































































































下 面 的 代码 显示 两 个 单元 格 区域 的 重 且 部 分 包含 的 单元 格 的 地 址 ， 如 果 没 有 重 且 部 分 ， 则 
向 用 户 显 示 提 示 信 息 。 通 过 使 用 Is 运算 符 将 存储 重合 部 分 的 mg 变量 与 Nothing 关键 字 进 行 比 

较 ， 来 判断 两 个 单元 格 区 域 是 否 存 在 重合 部 分 。 

Sub 使 用 Intersect 方法 引用 多 个 区 域 的 重重 部 分 () 


Dim rng As Range, rngs As Range, strMsg As String 
Set rngs = Intersect (Range ("Al1:C6"), Range ("BS5:E8")) 
If rngs Is Nothing Then 

MsgBox "两 个 单元 格 区 域 没有 重 倒 部 分 ! " 
Else 

For Each rng In rngs 

strMsg = strMsg & vbCrLf & rng.Address (0, 0) 

Next rng 

MsgBox "两 个 区 域 重 释 部 分 的 单元 格 包 括 : " & strMsg 
End If 

End Sub 


Intersect 方法 常 被 用 于 检测 用 户 操作 的 单元 格 是 否 位 于 指定 的 区 域内 ， 由 此 来 决定 用 户 的 
操作 权限 或 执行 特殊 的 操作 。 

案例 7-5 ”检查 活动 单元 格 是 否 在 指定 区 域内 

下 面 的 代码 判断 活动 单元 格 是 否 位 于 B3:E9 单元 格 区 域内 ， 如 果 不 是 则 向 用 户 发 出 提示 信 
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息 ， 禁 止 当前 的 操作 。 
Sub 检查 活动 单元 格 是 否 在 指定 区 域内 () 


If Intersect (ActiveCell, Range("B3:E9")) Is Nothing Then 
MsgBox "活动 单元 格 不 在 指定 区 域内 ， 禁 止 操作 ! " 
Exit Sub 
End If 
End Sub 


上 面 的 代码 放 在 工作 敌 或 工作 表 的 事件 中 才能 发 挥 更 好 的 作用 。 在 VBA 中 编写 事件 代码 的 
内 容 将 在 第 12 章 进行 详细 介绍 。 


7.2.5 引用 一 行 或 多 行 
使 用 Range 对 象 的 Rows 属性 可 以 返回 单元 格 区 域 中 的 所 有 行 。Range 对 象 还 有 一 个 加 
EntireRow 属性 ， 用 于 返回 单元 格 区 域 中 的 所 有 整 行 。 这 两 个 属性 可 能 容易 引起 混淆 ,它们 看 起 
来 具有 相同 的 作用 ， 但 实际 上 不 同 。 
下 面 的 代码 显示 活动 工作 表 中 的 B3:D5 单元 格 区 域 中 每 一 行 的 地 址 ， 这 里 使 用 的 是 Rows 
属性 。 返 回 的 结果 依次 为 B3:D3、B4:D4、B5:D5， 说 明 Rows 属性 返回 的 行 是 限定 在 单元 格 区 
域 范围 内 的 每 一 行 ， 而 不 是 贯穿 整个 工作 表 的 一 整 行 。 
Sub Rows 属性 () 
Dim rng As Range 
For Each rng In Range ("B3:D5") .Rows 
MsgBox rng.Address (0, 0) 


Next rng 
End Sub 


如 果 使 用 EntireRow 属性 替换 上 面 代码 中 的 Rows 属性 ， 那 么 返回 的 结果 依次 为 3:3、4:4、 
5:5， 说 明 EntireRow 属性 返回 的 行 是 从 单元 格 区 域 范围 内 的 每 一 行 延伸 到 贯穿 整个 工作 表 的 一 
整 行 。 
Sub EntireRow 属性 () 
Dim rng As Range 


For Each rng In Range ("B3:D5") .EntireRow 
MsgBox rng.Address (0, 0) 





































































































































































































Next rng 
End Sub 
可 以 使 用 索引 号 引用 Rows 属性 返回 的 所 有 行 中 的 某 一 行 。 下 面 的 代码 引用 活动 工作 表 中 
的 第 2 行 : 
Rows (2) 
如 上 面 的 代码 所 示 ， 不 带 对 象限 定 符 的 Rows 属性 引用 的 是 活动 工作 表 中 的 行 。 也 可 以 使 




















用 Worksheet 对 象 引 用 指定 工作 表 中 的 行 。 下 面 的 代码 引用 Sheet2 工作 表 中 的 第 2 行 : 
Worksheets ("Sheet2") .Rows (2) 
下 面 的 代码 引用 B3:D5 单元 格 区 域 中 的 第 2 行 〈 即 B4:D4) : 
Range ("B3:D5") .Rows (2) 
可 以 使 用 Range 对 象 的 Row 属性 返回 对 象 的 行 号 .下 面 的 代码 返回 B3:D5 单元 格 区 域 中 的 
第 2 行 的 行 号 ， 返 回 值 为 4， 因 为 该 区 域 的 首 行 从 工作 表 的 第 3 行 开 始 : 
Range ("B3:D5") .Rows (2) .Row 
如 果 将 Rows 属性 应 用 于 包含 多 个 单元 格 区 域 的 Range 对 象 ， 则 将 只 返回 第 一 个 区 域 中 的 所 有 
行 ， 因 此 下 面 的 代码 返回 第 一 个 单元 格 区 域 的 总 行 数 3， 而 不 是 所 有 单元 格 区 域 的 总 行 数 18。 
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Range ("Al:A3,Cl1:C6, El:E9") .Rows .Count 

可 以 使 用 EntireRow 属性 引用 某 个 单元 格 所 在 的 一 整 行 。 
整 行 ， 即 工作 表 中 的 第 5 行 : 

Range ("B5") .EntireRow 

也 可 以 使 用 EntireRow 属性 引用 单元 格 区 域 所 占据 的 所 有 整 行 。 下 面 的 代码 引用 B3:D5 单 
元 格 区 域 所 占据 的 工作 表 中 的 第 3 一 5 行 。 


Range ("B3:D5") .EntireRow 


.2.6 引用 一 列 或 多 列 


与 上 一 节 介绍 的 使 用 Rows 和 EntireRow 属性 引用 行 的 方法 类 似 ， 使 用 Range 对 象 的 
Columns 和 EntireColumn 属性 可 以 引用 工作 表 或 单元 格 区 域 中 的 所 有 列 或 整 列 。 下 面 的 代码 引 
用 Sheet2 工作 表 中 的 第 3 列 : 

Worksheets ("Sheet2") .Columns (3) 
下 面 的 代码 引用 B3:D5 单元 格 区 域 中 的 所 有 列 ， 即 B~D 列 : 

Range ("B3:D5") .EntireColumn 

与 Rows 属性 类 似 ， 如 果 将 Columns 属性 应 用 于 包含 多 个 单元 格 区 域 的 Range 对 象 ， 则 将 
只 返回 第 一 个 区 域 中 的 所 有 列 。 


7.2.7 [A1] 引 用 方式 


除了 使 用 Range 和 Cells 属性 引用 单元 格 和 单元 格 区 域 之 外 ,还 可 以 使 用 一 种 更 简洁 的 方式 
来 引用 单元 格 或 单元 格 区 域 .只 需 将 要 引用 的 单元 格 或 单元 格 区 域 的 地 址 放置 在 一 对 方 括号 中 ， 
这 种 方法 实际 上 是 Application 对 象 的 Evaluate 方法 的 简写 形式 。 使 用 [A1] 引 用 方式 所 引用 的 单 
元 格 都 是 绝对 引用 。 下 面 的 两 行 代码 分 别 引 用 Al 单元 格 和 B3:D5 单元 格 区 域 : 


[A1] 
[B3:D5] 


如 7.2.8 ”引用 当前 包含 数据 的 独立 区 域 


如 果 某 个 包含 数据 的 区 域 与 其 他 数据 区 域 之 间 至 少 被 一 个 空 行 和 一 个 空 列 分 隔 开 ， 那 么 
就 可 以 使 用 该 区 域内 的 任 一 单元 格 的 CurrentRegion 属性 来 选择 这 个 区 域 。 在 如 图 7-4 所 示 的 
工作 表 中 包含 两 个 彼此 由 空 列 隔 开 的 数据 区 域 B2:D6 和 F2:H6。 如 果 希 望 快速 选择 其 中 的 某 
个 数据 区 域 , 则 可 以 使 用 Range 对 象 的 CurrentRegion 属性 ,下面 的 代码 选择 B2:D6 数据 区 域 ， 
作为 Range 属性 的 参数 的 单元 格 并 非 必须 是 B2, 也 可 以 是 B2:D6 数据 区 域 中 的 任 一 单元 格 。 


Range ("B2") .CurrentRegion.Select 




















| 





i 的 代码 引用 单元 格 B5 所 在 的 





































































































































































































































































































1 

2 出 1 1 101 101 101 

3 2 2 2| 102 102 102 

4 3 3| 3| 103 103 103 

5 4 4 4 104 104 104 

6 5 中 5| 105 105 105 
图 7-4 使 用 CurrentRegion 属性 选择 当前 数据 区 域 

















随 着 数据 的 增加 ， 数 据 区 域 的 范围 会 逐渐 变 大 。 为 了 在 任何 时 候 都 可 以 正确 选择 完整 的 数 
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据 区 域 ， 使 用 CurrentRegion 属性 通常 是 最 好 的 选择 , 但 是 需要 确保 数据 区 域 是 连续 的 ， 即 不 能 
包含 空 行 和 空 列 。 
7.2.9 引用 工作 表 中 的 已 用 区 域 

UsedRange 属性 是 Worksheet 对 象 的 属性 ， 该 属性 返回 的 是 一 个 Range 对 象 ， 表 示 工 作 表 
中 已 使 用 的 单元 格 区 域 。 己 使 用 的 单元 格 区 域 并 不 仅仅 是 指 包 含 数据 的 单元 格 区 域 ， 那 些 曾 经 
设置 过 格式 的 单元 格 区 域 也 被 纳入 “已 使 用 ”的 范围 内 ， 即 使 这 些 单元 格 中 没有 任何 内 容 。 

一 个 工作 表 只 有 一 个 已 使 用 的 单元 格 区 域 ， 该 区 域 左上 角 的 单元 格 由 已 使 用 过 的 最 小 行 行 


号 和 最 4 


这 两 个 单元 格 组 成 的 矩形 区 域 就 是 工作 表 中 已 使 用 的 单元 格 区 域 。 











\ 列 列 标 组 成 ， 该 区 域 右 下 角 的 单元 格 由 已 使 用 过 的 最 大 行 行 号 和 最 大 列 列 标 组 成 ， 由 























对 了 


的 单元 格 区 域 B2:H6， 假 设 这 个 工作 表 是 活动 工作 表 。 这 是 因为 工作 表 中 包含 数据 的 第 一 个 单 














FF 上 一 节 工 作 表 中 的 两 个 不 连续 区 域 而 言 ， 使 用 下 面 的 代码 将 返回 这 个 工作 表 的 已 使 























元 格 是 B2， 包 含 数据 的 最 后 一 个 单元 格 是 H6， 因 此 工作 表 中 已 使 用 的 单元 格 区 域 是 B2:H6。 


RActiveSheet.UsedRange 


案例 7-6 ”确定 已 使 用 区 域 的 最 后 一 行 和 最 后 一 列 








下 面 的 代码 确定 活动 工作 表 中 已 使 用 区 域 的 最 后 一 行 和 最 后 一 列 的 位 置 ， 其 中 声明 了 4 个 














变量 ， 分 别 表示 已 使 用 区 域 的 第 一 行 、 第 一 列 、 总 行 数 、 总 列 数 ， 然 后 将 已 使 用 区 域 的 第 一 行 、 


第 一 列 、 





总 行 数 、 总 列 数 赋 给 这 4 个 变量 ， 最 后 通过 公式 计算 出 已 使 用 区 域 最 后 一 个 单元 格 的 








行 号 和 列 号 ， 并 在 对 话 框 中 显示 相关 信息 。 程 序 运行 后 的 效果 如 图 7-5 所 示 。 


Sub 


End 








确定 已 使 用 区 域 的 最 后 一 行 和 最 后 一 列 () 

Dim lngFirstRow As Long, lngFirstCol As Long 

Dim lngRowCount As Long, lngColCount As Long 

Dim strMsg As String 

lngFirstRow = ActiveSheet.UsedRange.Row 

lngFirstCol = ActiveSheet .UsedRange.Column 

lngRowCount = ActiveSheet.UsedRange.Rows.Count 

lngColCount = ActiveSheet.UsedRange.Columns.Count 

strMsg = "已 使 用 区 域 的 最 后 一 行 是 工作 表 中 的 第 " & lngRowCount + lngFirstRow - 1 & " 行 " 
strMsg = strMsg & vbCrLf & "已 使 用 区 域 的 最 后 一 列 是 工作 表 中 的 第 " & lngColCount + lngFirstCol 
天 中 

MsgBox strMsg 















































Sub 
A B C D E F G H 
1 1 1 101 101 101 
2| 2 2 | 102| 102 102| 
4 3| 3| 3 103 103 103| 
4| 4 4 104 104 104 
5| 5 5 105 105 105 
6| 6 6 | 106| 106 106, 
7| 7 7 | 107| 107 107| 
引 8| 8 — 108| 108| 108| 
引 9 9| | 109| 109, 109) 
10| 10| 10| 110L 110 110| 
Microsoft Excel x 






已 使 用 区 域 的 最 后 一 行 是 工作 表 中 的 第 11 行 
已 使 用 区 域 的 最 后 一 列 是 工作 表 中 的 第 8 列 


| 
加 7-5 ”确定 已 使 用 区 域 的 最 后 一 行 和 最 后 一 列 
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案例 7-7 ”删除 工作 表 中 的 所 有 空 行 
下 面 的 代码 删除 活动 工作 表 已 使 用 区 域 中 的 所 有 空 行 。 在 For Next 循环 结构 中 从 已 使 用 区 
域 的 底部 向 顶部 逐 行 循环 ， 这 样 可 以 避免 由 上 向 下 删除 行 时 导致 的 行 号 错乱 问题 。 使 用 工作 表 
函数 CountA 判断 当前 行 是 否 为 空 ， 如 果 是 则 删除 该 行 ， 否 则 检查 下 一 行 ， 直 到 已 使 用 区 域 的 
第 一 行为 止 。 
Sub 删除 工作 表 中 的 所 有 空 行 () 
Dim lngRowCount Rs Long, lngRow Rs Long 
lngRowCount = ActiveSheet.UsedRange.Rows .Count 
For lngRow = lngRowCount To 1 Step -1 
If Application.WorksheetFunction.CountA (Rows (lngRow) .Cells) = 0 Then 
Rows (lngRow) .Delete 
End If 


Next lngRow 
End Sub 


案例 7-8 选择 工作 表 中 的 所 有 合并 单元 格 
下 面 的 代码 选择 活动 工作 表 中 的 所 有 合并 单元 格 ， 如 图 7-6 所 示 。 在 活动 工作 表 中 的 已 使 
区 域 中 遍历 每 一 个 单元 格 ， 使 用 Range 对 象 的 MergeCells 属性 判断 当前 单元 格 是 否 是 合并 单 
元 格 ， 如 果 是 则 判断 作为 用 于 存储 合并 单元 格 的 对 象 变量 mgMerge 是 否 为 空 ， 如 果 为 空 则 将 当 
前 单元 格 赋值 给 该 对 象 变量 ， 如 果 不 为 空 则 说 明 该 对 象 变量 已 经 存储 过 一 个 合并 单元 格 了 ， 那 
么 就 使 用 Union 方法 将 当前 的 合并 单元 格 与 之 前 的 合并 单元 格 同时 存储 到 mgMerge 对 象 变量 
中 。 遍历 完 所 有 的 单元 格 后 选择 mgMerge 对 象 变量 中 存储 的 所 有 合并 单元 格 。 为 了 避免 没有 合 
并 单元 格 时 导致 运行 时 错误 ,因此 在 执行 Select 方法 选择 前 先 使 用 Is 运算 符 判断 mgMerge 对 象 
变量 是 否 为 空 。 
Sub 选择 工作 表 中 的 所 有 合并 单元 格 () 
Dim rngUsed As Range, rngMerge As Range, rngCell As Range 
Set rngUsed = ActiveSheet.UsedRange 
For Each rngCell In rngUsed 
If rngCell.MergeCells Then 
If rngMerge Is Nothing Then 
Set rngMerge = rngCell 
Else 
Set rngMerge = Union(rngMerge, rngCell 
End If 
End If 
Next rngCell 
If Not rngMerge Is Nothing Then 
rngMerge.Select 


End If 
End Sub 
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图 7-6 选择 工作 表 中 的 所 有 合并 单元 格 
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第 7 章 使 用 Range 对 象 处 理 单元 格 区 域 


7.2.10 通过 偏 移 引 用 单元 格 或 单元 格 区 域 


Range 对 象 的 Offset 属性 与 Excel 工作 表 函 数 OFFSET 的 功能 类 似 ， 用 于 将 单元 格 或 单元 
格 区 域 偏 移 一 定 的 行 、 列 位 置 之 后 获得 一 个 新 的 单元 格 或 单元 格 区 域 。 与 Excel 工作 表 函 数 
OFFSET 不 同 的 是 ，Range 对 象 的 Offset 属性 只 用 于 偏 移 ， 而 不 调整 单元 格 区 域 的 范围 大 小 。 
可 以 使 用 Range 对 象 的 Resize 属性 调整 单元 格 区 域 的 范围 大 小 ，Resize 属性 将 在 下 一 节 介绍 。 

Offset 属性 包含 两 个 可 选 参数 ， 语 法 格式 如 下 : 

Offset (RowOffset, ColumnOffset) 

口 RowOffset: 可 选 ， 单 元 格 或 单元 格 区 域 向 上 或 向 下 偏 移 的 行 数 。 正 数 为 向 下 偏 移 ， 负 

数 为 向 上 偏 移 ，0 为 不 偏 移 。 如 果 省 略 该 参数 ， 则 其 值 默认 为 0。 
口 ColumnOffset: 可 选 ， 单 元 格 或 单元 格 区 域 向 左 或 向 右 偏 移 的 列 数 。 正 数 为 向 右 偏 移 ， 
负数 为 向 左 偏 移 ，0 为 不 偏 移 。 如 果 省 略 该 参数 ， 则 其 值 默认 为 0。 
下 面 的 代码 引用 的 是 F7 单元 格 。 从 C5 单元 格 开始 向 下 偏 移 2 行 变 成 C7， 然 后 从 C7 
右 偏 移 3 列 变 成 F7。 

Range ("C5") .Offset (2, 3) 

如 果 Range 对 象 是 一 个 单元 格 区 域 ， 那 么 在 使 用 Offset 属性 后 得 到 的 就 是 一 个 经 过 偏 移 指 
定 行 、 列 数 后 的 与 原 区 域 具有 相同 行列 数 的 新 区 域 。 下 面 的 代码 引用 的 是 E5:G8 单元 格 区 域 。 
这 是 因为 原 区 域 B3:D6 包含 4 行 3 列 ， 该 区 域 左上 角 单 元 格 B3 向 下 偏 移 2 行 ， 再 向 右 偏 移 3 
列 后 变 成 E5， 因 此 偏 移 后 的 新 区 域 的 左上 角 单 元 格 是 E5。 由 于 区 域 的 行列 数 并 没有 发 生 改 变 ， 
因此 新 区 域 从 E5 单元 格 为 起 点 ， 向 下 和 向 右 延 伸 至 4 行 3 列 的 范围 ， 即 E5:G8 单元 格 区 域 。 

Range ("B3:D6") .Offset (2, 3) 

注意 : 由 于 Offset 属性 的 两 个 参数 都 可 以 是 负数 ， 因 此 在 使 用 Offset 属性 时 要 小 心 偏 移 后 
得 到 无 效 的 单元 格 ， 此 时 会 出 现 运行 时 错误 。 比 如 在 对 Al 单元 格 执行 向 左 偏 移 列 的 操作 时 就 
会 出 现 运行 时 错误 , 因为 Al 单元 格 的 左边 已 经 没 
有 单元 格 了 。 

案例 7-9 标记 销量 未 达标 的 员工 姓名 

下 面 的 代码 将 销量 不 足 500 的 员工 姓名 设置 
为 黄色 背景 ， 如 图 7-7 所 示 。 首 先 获 取 以 Al 单元 
格 所 在 的 连续 数据 区 域 ， 然 后 使 用 For Each 循环 
结构 遍历 该 区 域 第 2 列 中 的 每 一 个 单元 格 ， 如 果 
销量 小 于 500, 则 将 当前 单元 格 左 侧 一 列 且 同行 的 
单元 格 的 背景 色 设 置 为 黄色 ， 这 个 单元 格 就 是 与 
当前 销量 对 应 的 姓名 。 

Sub 标记 销量 未 达标 的 员工 姓名 () 

Dim rng As Range, rngs As Range 
Set rngs = Range ("Al1") .CurrentRegion 
For Each rng In rngs.Columns (2) .Cells 
If rng.Value < 500 Then 
rng.Offset(0，-1) .Interior.Color = vbYellow 
End If 


Next rng 
End Sub 
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图 7-7 标记 销量 未 达标 的 员工 姓名 
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训 浊 7.2.11 ”调整 单元 格 区 域 的 引用 范围 
使 用 Range 对 象 的 Resize 属性 可 以 缩放 单元 格 区 域 的 范围 大 小 。Resize 属性 用 于 在 原 有 单 
元 格 或 单元 格 区 域 的 基础 上 ， 扩 大 或 缩小 区 域 的 范围 大 小 。Resize 属性 包含 两 个 可 选 参 数 ， 语 
法 格式 如 下 : 

Resize (RowSize, ColumnSize) 

口 RowSize: 可 选 ， 新 区 域 包含 的 行 数 ， 省 略 该 参数 表示 新 区 域 的 行 数 不 变 。 

口 ColumnSize: 可 选 ， 新 区 域 包 含 的 列 数 ， 省 略 该 参数 表示 新 区 域 的 列 数 不 变 。 
的 代码 引用 A1:B3 单元 格 区 域 。 缩 放 前 只 有 Al 单元 格 ， 使 用 Resize 属性 后 ， 从 Al 
元 格 为 起 点 ， 扩 展 到 包含 三 行 、 两 列 的 范围 ， 最 后 得 到 的 就 是 Al1:B3 。 


Range ("Al1") .Resize (3, 2) 
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下 面 的 代码 由 原 有 的 A1:C3 单元 格 区 域 扩展 到 A1:E5 单元 格 区 域 : 
Range ("R1:C3") .Resize (5, 5) 
区 域 : 











g 
下 面 的 代码 由 原 有 的 A1:C3 单元 格 区 域 缩小 到 A1:B2 单元 格 
ge ("Al1:C3") .Resize (2, 2) 
案例 7-10 ”标记 销量 未 达标 的 员工 记录 
下 面 的 代码 将 销量 不 足 500 的 员工 的 整 行 记 录 〈 包 括 姓名 和 销量 ) 同时 设置 为 黄色 背景 ， 
如 图 7-8 所 示 。 本 例 与 上 一 个 案例 只 有 一 个 区 别 ， 就 是 当 销 量 不 足 500 时 标记 员工 的 整 行 数据 ， 
而 不 只 是 员工 姓名 。 此 时 需要 使 用 Resize 属性 来 扩展 单元 格 的 范围 大 小 ， 以 员工 姓名 所 在 的 单 
元 格 为 起 点 ， 包 含 一 行 两 列 的 区 域 。 

Sub 标记 销量 未 达标 的 员工 记录 () 


Dim rng Rs Range, rngs As Range 
Set rngs = Range ("Al") .CurrentRegion 
For Each rng In rngs.Columns (2) .Cells 
If rng.Value < 500 Then 
rng.Offset(0，-1) .Resize(1，2) .Interior.Color = vbYellow 
End If 
Next rng 
End Sub 
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图 7-8 标记 销量 未 达标 的 员工 记录 





7.3 在 单元 格 区 域 中 定位 与 查找 


Range 对 象 提供 了 几 个 用 于 在 工作 表 中 定位 和 查找 数据 的 属性 和 方法 ， 包 括 End 属性 、 
SpecialCells 方法 和 Find 方法 等 本 节 将 介绍 使 用 以 上 几 种 技术 在 单元 格 区 域 中 进行 定位 与 查找 
的 方法 。 
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第 7 章 使 用 Range 对 象 处 理 单元 格 区 域 


7.3.1 定位 单元 格 区 域 的 边界 


如 果 在 某 列 数据 的 顶部 选择 了 一 个 站 
的 其 中 之 一 : 








元 格 ， 然 后 按 Ctrl+ 


向 下 键 ， 则 会 出 现 以 下 几 种 情况 中 





口 选中 所 选单 元 格 的 列 中 有 空 单元 格 , 则 将 跳 转 到 该 列 中 的 空 单 元 格 之 前 包含 数据 的 单元 格 。 


口 如 果 所 选单 元 格 的 列 中 没有 空 单元 格 ， 则 跳 转 到 该 列 中 包含 数据 





的 最 后 一 个 单元 格 。 





口 如 果 所 选单 元 格 的 下 面 一 个 单元 格 为 空 ， 则 将 跳 转 到 同 列 中 下 一 个 包含 数据 的 单元 格 。 
口 如 果 所 选单 元 格 的 同 列 下 方 没有 任何 数据 ， 则 将 跳 转 到 该 列 中 的 最 后 一 个 单元 格 。 


除了 使 用 Ctrl+ 向 下 键 之 外 , 还 可 以 使 用 Ctrl 键 与 其 他 3 个 方向 键 的 纪 


定位 操作 。 




















昌 合 来 实现 其 他 方向 的 


在 VBA 中 可 以 使 用 Range 对 象 的 End 属性 实现 Ctrl+ 方 向 键 的 功能 。 该 属性 包含 一 个 参数 ， 




















日 于 确定 单元 格 跳 转 的 方向 ， 参 数值 由 XIDirection 常量 提供 ， 见 表 7-3。 


表 7-3 XIDirection 常量 


名 称 
xlUp 
xlDown 
xlToLeft 
xlToRight 


























下 面 的 代码 引用 从 Al 单元 格 开 始 , 包含 连续 数据 的 区 域 的 最 后 一 个 单元 格 , 如 图 7-9 所 示 
为 A10 单元 格 。 


Range ("A1") .End (xlDown) 














如 果 A 
单元 格 ， 如 








上 面 的 


单元 格 。 如 




















1 单元 格 为 空 ,那么 上 面 的 代码 将 引用 从 
图 7-10 所 示 为 A3 单元 格 。 
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7-9 Al 不 为 空 时 跳 转 到 A10 




















以 使 用 下 五 











Rangel( 














"A1048576") .End (xlUp) 





上 面 的 


前 的 Excel 




















版 本 中 运行 则 会 出 现 运行 时 错误 , 这 是 因 





Al 单元 格 开 始 ， 同 列 中 下 一 个 包含 数据 的 








图 7-10 Al 为 空 时 跳 转 型 








为 早期 版 本 的 Excel 工作 表 : 


| A3 


代码 只 有 在 A 列 数 据 的 中 间 不 包含 空 单元 格 时 才能 跳 转 到 A 列 包含 数据 的 最 后 一 个 
果 A 列 中 包含 空 单元 格 , 但 是 又 希望 引用 A 列 最 后 一 个 包含 数据 的 单元 格 ， 那么 可 
的 代码 ， 从 工作 表 底 部 的 最 后 一 行 开始 向 上 查找 包含 数据 的 单元 格 。 


代码 可 以 在 Excel 2007 或 更 高 版 本 的 Excel 中 正常 运行 ， 但 是 如 果 在 Excel 2007 之 





最 多 只 有 65536 


和 
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行 。 可 以 使 用 下 面 的 代码 解决 这 个 问题 ， 该 代码 通用 于 Excel 各 个 版 本 : 

Cells (Rows .Count，1) .End (xl1UP) 

使 用 End 属性 可 以 实现 CurrentRegion 属性 的 功能 。 假 设 数据 区 域 的 位 置 如 图 7-11 所 示 ， 
其 左上 角 的 单元 格 是 B3， 下 面 的 代码 将 引用 该 数据 区 域 ， 即 B3:E9 单元 格 区 域 : 


Range ("B3"，Range ("B3") .End (x1Down) .End (xlToRight)) 















































A B CE D E F 

下 

3 32 73,. 60 68 
4 62 36 79 21 
5 30 13 96 66 
6 83 65 85 16 
了 30 37 88 51 
8 61 100 35 78 
9 17 57 29 65 








So~m- 





图 7-11 使 用 End 属性 实现 CurrentRegion 属性 的 功能 


7.3.2 ”定位 包含 指定 类 型 内 容 的 单元 格 
如 果 希 望 快速 选择 包含 特定 类 型 内 容 的 所 有 单元 格 ， 则 可 以 在 Excel 界面 中 按 F5 键 ， 然 后 




















单 击 “ 定 位 条 件 ” 按 钮 ， 在 打开 的 “定位 条 件 ” 对 话 框 中 进行 设置 ， 如 图 7-12 所 示 。 
定位 条件 ? Xx 
远 择 
OO 品行 内 容 差异 单元 格 (W) 
@ 上 S(O) 〇 列 内 容 差异 单元 格 (M) 
ORO O 〇 引用 单元 格 四 
回 % 宁 JW 口 从 尾音 元 格 (D) 
回 文本 0 直属 (I 
回 逐 强 值 (G) 所 有 级 别 (U 
回 错误 O 〇 最 后 一个 单元 格 (G) 
〇 棕 值 (9 O 〇 可见 单 元 格 W 
O 〇 当前 区 域 Q) 〇 杀人 格式 
〇 当前 数组 办 〇 数据 验 开 V) 
O 〇 对 艰 昌 
Ca] 
图 7-12 “定位 条 件 ” 对 话 框 
在 VBA 中 可 以 使 用 Range 对 象 的 SpecialCells 方法 实现 相同 的 功能 。 SpecialCells 方法 包含 


两 个 参数 ， 语 法 格式 如 下 : 
SpecialCells (Type, Value) 
口 Type: 必 选 ， 要 返回 的 单元 格 的 类 型 ， 该 参数 的 值 由 XICellType 常量 提供 ， 见 表 7-4。 
口 Value: 可 选 , 只 有 将 Type 参数 设置 为 x1CellTypeConstants (常量 ) 或 x1CellTypeFormulas 
(公式 ) 时 ，Value 参数 才 起 作用 。 该 参数 的 值 由 XISpecialCellsValue 常量 提供 ， 可 以 从 
表 7-5 的 4 个 值 中 选择 一 个 或 多 个 来 设置 常量 或 公式 包含 的 类 型 。 可 以 采取 将 不 同 常量 
值 相 加 的 方式 来 同时 包括 多 个 类 型 。 默 认 选 择 常量 或 公式 的 所 有 类 型 。 
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第 7 章 使 用 Range 对 象 处 理 单元 格 





表 7-4 XICellType 常量 





















































名 称 说 明 
xlCellTypeBlanks 空 单 元 格 
xlCellTypeConstants 包含 常量 的 单元 格 
xlCellTypeFormulas 包含 公式 的 单元 格 
xlCellTypeComments 包含 批注 的 单元 格 
xlCellTypeVisible 所 有 可 见 单元 格 
xlCellTypeLastCell 己 用 区 域 中 的 最 后 一 个 单元 格 
xlCellTypeAlIFormatConditions -4172 包含 所 有 条 件 格式 的 单元 格 
xlCellTypeSameFormatConditions -4173 包含 相同 条 件 格式 的 单元 格 
xlCellTypeAllValidation -4174 包含 所 有 数据 有 效 性 的 单元 格 
xlCellTypeSameValidation -4175 包含 相同 数据 有 效 性 的 单元 格 
名 称 说 明 
xlNumbers 数字 
xlTextValues 文本 
xlLogical 逻辑 值 
xlErrors 错误 值 








使 用 SpecialCells 方法 返回 与 指定 类 型 的 内 容 























Excel 中 日 期 也 是 数值 的 一 种 ， 因 此 使 用 SpecialCells 方法 会 同时 返回 日 期 和 销量 。 为 了 只 册 
其 中 的 日 期 ， 需 要 使 用 VBA 的 内 置 函数 IsDate 来 判断 返回 的 数值 中 哪些 是 日 期 ， 然 后 再 进 
































删除 。 
Sub 删除 销售 数据 中 的 日 期 () 


Dim rng As Range, rngs As Range 
On Error Resume Next 








匹配 的 所 有 
格 ， 则 会 出 现 运行 时 错误 ， 因 此 在 使 用 SpecialCells 方法 时 应 该 编写 防 错 代 码 。 
案例 7-11 删除 销售 数据 中 的 日 期 
下 面 的 代码 删除 工作 表 中 的 所 有 日 期 ， 而 保留 商品 名 称 和 销量 ， 如 图 7-13 所 示 。 





Set rngs = Cells.SpecialCells (xlCellTypeConstants, xlNumbers 


If Not rngs Is Nothing Then 
For Each rng In rngs 
If IsDate (rng) Then 
rng.ClearContents 
End If 
Next rng 
End If 
End Sub 


元 格 。 如 果 没 找到 匹 
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1 

2 | 商品 锁 量 日 期 商品 锁 重 日 期 

3 | 洗衣 机 13 2017 年 8 月 16 日 里 登 护 24_2017 年 8 月 28 日 
4 电视 13_2017 年 8 月 10 日 洗衣 机 11 2017 年 8 月 1 日 
5 | 空调 25_2017 年 8 月 21 日 手机 14，2017 年 8 月 28 晶 
6 电脑 14 2017 年 8 月 15 日 微波 炉 30，2017 年 8 月 18 日 
7 电脑 29 2017 年 8 月 20 日 电视 18，2017 年 8 月 22 日 
8 电脑 46，2017 年 8 月 11 昌 冰箱 36，2017 年 8 月 25 日 
9 | 微波 炉 16_2017 年 8 月 22 日 空调 38，2017 年 8 月 17 日 
10 冰箱 49 2017 年 8 月 26 日 言 咱 29 ”2017 年 8 月 5 日 
11 音响 25 2017 年 8 月 24 日 洗衣 机 42，2017 年 8 月 18 日 





7-13 ”要 删除 日 期 的 数据 区 域 
使 用 SpecialCells 方法 还 可 以 确定 工作 表 中 已 使 用 区 域 的 最 后 一 个 单元 格 ， 如 下 所 示 : 


Cells.SpecialCells (xlCellTypeLastCell) 

注意 : 没有 数据 但 包含 格式 的 单元 格 也 被 看 作 是 已 使 用 的 单元 格 ， 即 使 将 这 类 单元 格 删除 ， 
Excel 也 不 会 自动 重 设 已 使 用 区 域 中 的 最 后 一 个 单元 格 。 只 有 保存 工作 簿 或 执行 
ActiveSheet.UsedRange 代码 才能 重 置 已 使 用 的 区 域 。 


7.3.3 查找 包含 特定 信息 的 单元 格 


在 Excel 工作 表 中 要 搜索 特定 的 内 容 ， 则 可 以 使 用 查找 功能 。 只 需 按 Ctrl+F 组 合 键 ， 在 打 
开 的 “查找 和 替换 ”对 话 框 中 的 “查找 ”选项 卡 中 进行 设置 即 可 ， 如 图 7-14 所 示 。 























坦 找 和 莹 换 ? x 
查找 (D) ” 葵 弹 (P) 
坦 找 内 容 (N): | | 未 设 定 格式 格 (M).. 











范围 (H): 工作 表 |x| 口 区 分 大 小 号 


搜索 (9): 按 和 靶 口 单元 格 匹配 (O) 
一 口 区 分 全 /半角 (B) 
查找 范围 山 : 公式 |v 选项 中 << 
E27 洒 











图 7-14 “查找 和 替换 ”对 话 框 中 的 “查找 ”选项 卡 


在 VBA 中 可 以 使 用 Range 对 象 的 Find 方法 实现 相同 的 功能 。Find 方法 包含 多 个 参数 ， 语 
法 格式 如 下 : 


Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, 
SearchFormat) 


口 What: 必 选 ， 要 查找 的 内 容 ， 可 以 输入 任何 内 容 或 使 用 通配符 * 或 ?。 

口 After: 可 选 ,查找 操作 从 该 参数 指定 的 单元 格 之 后 开始 ， 直 到 绕 回 到 该 单元 格 时 才 查 找 
该 单元 格 中 的 内 容 。 该 参数 必须 是 单个 单元 格 ， 不 能 指定 为 单元 格 区 域 。 如 果 省 略 该 参 
数 ， 则 将 从 指定 区 域 的 左上 角 单 元 格 之 后 开始 查找 。 

口 Lookm: 可 选 ， 查 找 的 内 容 类 型 ， 可 以 是 值 、 公 式 或 批注 ， 该 参数 的 值 由 XIFindLookm 
常量 提供 ， 见 表 7-6。 按 值 查找 是 按照 单元 格 中 显示 的 内 容 进行 查找 ， 按 公式 查找 是 按 
照 编辑 栏 中 显示 的 公式 本 身 内 容 进 行 查找 。 

口 LookAt: 可 选 ， 精 确 查找 或 模糊 查找 ， 精 确 查找 是 指 单元 格 中 的 内 容 与 查找 的 内 容 完 全 
匹配 ， 模 糊 查找 是 指 单元 格 中 的 部 分 内 容 与 查找 的 内 容 匹 配 。 该 参数 的 值 由 XILookAt 
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常量 提供 , 只 有 xlWhole 和 xlPart 两 个 值 , xIWhole 表示 精确 查找 , xlPart 表示 模糊 查找 。 
口 SearchOrder: 可 选 ， 按 行 或 按 列 查 找 ， 该 参数 的 值 由 XlSearchOrder 常量 提供 ， 只 有 
xlByRows 和 xlByColumns 两 个 值 , xIByRows 表示 按 行 查找 , xIByColumns 表示 按 列 查 找 。 
口 SearchDirection: 可 选 ， 查 找 的 方向 ， 该 参数 的 值 由 XISearchDirection 常量 提供 ， 只 有 
xlNext 和 xlPrevious 两 个 值 ，xlNext 表示 查找 下 一 个 匹配 值 ，xlPrevious 表示 查找 上 一 
个 匹配 值 。 
口 MatchCase: 可 选 ， 查 找 时 是 否 完全 匹配 英文 大 小 写 。 如 果 为 True 则 区 分 英文 大 小 写 ， 
如 果 为 False 则 不 区 分 英文 大 小 写 。 
口 MatchByte: 可 选 ， 只 在 已 经 选择 或 安装 了 双 字 节 语 言 支持 时 适用 。 如 果 为 True 则 双 字 
节 字 符 只 与 双 字 节 字 符 匹 配 , 如 果 为 False 则 双 字 节 字 符 可 与 其 对 等 的 单字 节 字 符 匹 配 。 
口 SearchFormat: 可 选 ， 设 置 查找 的 格式 。 














表 7-6 XIFindLookln 常量 


名 称 说 明 
xlValues 值 
xlFormulas 公式 
xlComments 批注 





Find 方法 返回 一 个 Range 对 象 ， 表 示 查 找到 的 第 一 个 符合 条 件 的 单元 格 。 如 果 没 找到 符合 
条 件 的 单元 格 ， 该 方法 将 返回 Nothing， 因 此 可 以 在 If Then 结构 中 判断 是 否 找到 了 符合 条 件 的 
单元 格 。 

每 次 使 用 Find 方法 后 ，LookIn、LookAt、SearchOrder 和 MatchByte 这 4 个 参数 的 设置 结 
果 都 会 被 保存 下 来 。 如 果 在 下 次 执行 Find 方法 时 不 指定 这 几 个 参数 的 值 ， 则 会 自动 使 用 上 一 次 
保存 的 设置 结果 。 为 了 避免 在 查找 中 出 现 意料 之 外 的 问题 ， 最 好 在 每 次 使 用 Find 方法 时 都 显 式 
设置 这 几 个 参数 的 值 。 如 果 要 按照 相同 的 条 件 进行 重复 查找 ， 则 可 以 使 用 FindNext 和 
FindPrevious 方法 。 

案例 7-12 ”查找 特定 商品 所 在 的 单元 格 地 址 
下 面 的 代码 在 对 话 框 中 显示 名 称 为 “电视 ”的 商品 出 现在 哪些 单元 格 中 。 由 于 商品 名 称 位 外 
于 A 列 ， 因 此 在 查找 时 将 SearchOrder 参数 指定 为 XIByColumns 〈 按 列 ) 可 以 节省 逐 行 扫描 的 
时 间 。 为 了 避免 一 直 重 复 进行 查找 ， 在 找到 第 一 个 符合 条 件 的 单元 格 时 ， 使 用 变量 存储 该 单元 
格 的 地 址 ， 将 之 后 找到 的 每 个 符合 条 件 的 单元 格 的 地 址 都 与 其 作 比 较 ， 以 此 判断 是 否 已 经 查找 
完 所 有 的 数据 ， 如 果 是 则 结束 查找 。 使 用 FindNext 方法 可 以 在 找到 一 个 符合 条 件 的 单元 格 后 ， 
以 相同 的 条 件 继续 查找 。 

Sub 查找 特定 商品 所 在 的 单元 格 地 址 () 


Dim rngFind As Range, rngFound As Range 

Dim strFirstAddress As String, strMsg As String 

Set rngFind = Range("Al") .CurrentRegion 

Set rngFound = rngFind.Find(" 电 视 ",，， xlValues, xlWhole, xlByColumns) 
If rngFound Is Nothing Then Exit Sub 

strFirstAddress = rngFound.Address 

Do 



























































strMsg = strMsg & vbCrLf & rngFound.Address (0, 0) 
Set rngFound = rngFind.FindNext (rngFound) 
Loop Until rngFound Is Nothing Or rngFound.Address = strFirstAddress 


a 
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MsgBox "电视 所 在 的 单元 格 是 : " & strMsg 

End Sub 

案例 7-13 ”确定 包含 数据 的 区 域 的 最 后 一 个 单元 格 

下 面 的 代码 可 以 确定 数据 区 域 的 最 后 一 个 单元 格 。 将 Find 方法 的 第 一 个 参数 设置 为 “*” 
表示 按 通配符 对 任何 字符 进行 模糊 查找 。 由 于 将 SearchDirection 参数 设置 为 xlPrevious, 因此 将 
从 Al 单元 格 向 上 绕 到 工作 表 的 底部 开始 查找 。 为 了 找到 包含 数据 的 最 后 一 行 和 最 后 一 列 ， 将 
两 次 查找 中 的 SearchOrder 参数 分 别 设置 为 xIByRows ( 按 行 ) 和 xlByColumns ( 按 列 ) 。 在 按 
行 查找 中 ， 从 工作 表 底 部 的 最 后 一 行 开始 逐 行 向 上 查找 包含 数据 的 单元 格 ， 如 果 找 到 则 返回 该 
单元 格 的 引用 ， 然 后 使 用 Range 对 象 的 Row 属性 获取 该 单元 格 所 在 的 行 号 。 同 理 ， 在 按 列 查 找 
中 ， 从 工作 表 的 最 后 一 列 开始 逐 列 向 左 查找 包含 数据 的 单元 格 。 找 到 后 使 用 Range 对 象 的 
Column 属性 返回 包含 数据 的 单元 格 的 列 号 。 

Sub 确定 数据 区 域 的 最 后 一 个 单元 格 () 


Dim lngLastRow As Long, lngLastCol As Long 

lngLastRow = Cells.Find("*", Range ("Al"), xlFormulas, , xlByRows, xlPrevious) .Row 

lngLastCol = Cells.Find("*", Range ("Al"), xlFormulas, , xlByColumns, xlPrevious) .Column 

MsgBox "数据 区 域 的 最 后 一 个 单元 格 是 : " & Cells(lngLastRow, lngLastCol) .Rddress(0，0) 
End Sub 
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7.4 读 取 和 写 入 单元 格 区 域 中 的 数据 


使 用 VBA 处 理工 作 表 的 主要 操作 就 是 在 单元 格 区 域 中 读 取 和 写 入 数据 。 本 节 将 介绍 使 用 不 
同 技术 与 单元 格 区 域 交 换 数 据 的 方法 ， 还 介绍 了 对 数据 进行 选择 性 粘贴 的 方法 。 


7.4.1 通过 循环 遍历 每 个 单元 格 读 写 数据 


在 单元 格 区 域 中 读 取 和 写 入 数据 的 最 基本 技术 是 使 用 For Next 或 For Each 循环 结构 。For 
Next 循环 结构 的 优点 是 可 以 指定 区 域 中 某 个 特定 行 、 特 定 列 位 置 上 的 单元 格 ， 而 For Each 循环 
结构 的 优点 是 不 管 单元 格 区 域 中 包含 多 少 个 单元 格 ， 它 都 会 依次 进行 遍历 ， 直 到 区 域 中 的 最 后 
一 个 单元 格 为 止 。 
案例 7-14 ”使 用 行 号 和 列 号 遍历 区 域 中 的 每 个 单元 格 
下 面 的 代码 将 A1:C5 单元 格 区 域 中 的 每 个 值 都 加 6， 如 图 7-15 所 示 。 将 该 单元 格 区 域 赋值 
给 一 个 Range 类 型 的 对 象 变量 ， 使 用 两 个 Long 数据 类 型 的 变量 分 别 存储 该 区 域 的 总 行 数 和 总 
列 数 。 之 后 使 用 嵌 套 的 For Next 循环 结构 遍历 区 域 中 的 每 个 单元 格 ， 外 层 循环 负责 控制 行 号 ， 
内 层 循环 负责 控制 列 号 ， 通 过 行 号 和 列 号 定位 区 域 中 的 每 个 单元 格 。 使 用 Range 对 象 的 Value 
属性 获取 单元 格 中 的 原 有 数据 ， 并 将 计算 后 的 结果 再 赋值 给 该 属性 。 循 环 结束 的 标志 是 到 达 单 
元 格 区 域 的 最 后 一 个 单元 格 ， 它 由 Range 对 象 的 总 行 数 和 总 列 数 决 定 。 

Sub 使 用 行 号 和 列 号 遍历 区 域 中 的 每 个 单元 格 () 

Dim rng As Range, lngRow As Long, lngCol As Long 
Set rng = Range ("Al:C5") 
For lngRow = 1 To rng.Rows.Count 
For lngCol = 1 To rng.Columns.Count 
rng.Cells (lngRow, lngCol) .Value = rng.Cells(lngRow, lngCol) .Value + 6 
Next lngCol 


Next lngRow 
End Sub 
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图 7-15 ”代码 运行 前 后 的 效果 


案例 7-15 ”使 用 一 个 索引 号 遍历 区 域 中 的 每 个 单元 格 






































通过 在 Range 对 象 的 Cells 属性 中 使 用 该 索引 号 来 引用 区 域 中 的 每 


象 的 Value 属性 获取 单元 格 中 


的 标志 是 到 达 
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ph 的 原 有 值 ， 然 后 将 求 和 后 的 结果 























Sub 使 用 一 个 索引 号 遍历 区 域 中 的 每 个 单元 格 () 


Dim rng As Range, 


lngIndex As Long 


Set rng = Range ("A1:C5") 

For lngIndex = 1 To rng.Count 
rng.Cells (lngIndex) .Value = rng.Cells (1ngIndex) .Value + 6 

Next lngIndex 


End Sub 


案例 7-16 ”使 用 For Each 循环 结构 遍历 区 域 中 的 每 个 单元 格 


还 可 以 使 
法 更 简洁 。 


























Sub 使 用 ForEach 循环 结构 遍历 区 域 中 的 每 个 单元 格 () 
Dim rng As Range 
For Each rng In Range ("Al:C5") 

rng.Value = rng.Value + 6 


Next rng 


End Sub 


7.4.2 ”使 用 数组 与 单元 格 区 域 交 换 数 据 


上 一 节 介 绍 的 在 单元 格 
都 要 在 循环 结构 中 不 断 裔 
据 赋值 给 一 个 数组 ， 然 后 有 有 











如 果 要 将 单元 格 区 域 中 


下 面 的 代码 将 Al:C5 站 


Variant 数据 类 型 : 


Dim avarNumbers As Variant 
avarNumbers = Range ("Al:C5") .Value 


注意 : 将 单元 格 区 域 中 的 数据 赋值 给 一 个 Variant 类 型 的 变量 ， 与 将 单元 格 区 域 作为 Range 
对 象 赋值 给 一 个 对 象 变量 完全 不 同 。 前 者 是 创建 了 一 个 Variant 类 型 的 数组 , 后 者 则 是 创建 了 一 
个 Range 类 型 的 对 象 变量 。 
的 数据 赋值 给 一 个 Variant 变量 后 ， 相 当 于 创 寻 
示 单 元 格 区 域 中 的 行 ， 第 二 维 表示 单元 格 区 域 中 的 列 ， 因 此 可 以 使 用 行 号 和 列 号 来 访问 数组 中 





将 单元 格 











区 域 























历 每 个 
E 数 组 


区 域 中 读 取 和 写 入 数据 的 方法 并 不 是 最 高 效 的 ， 这 是 因 
元 格 并 进行 相应 的 处 理 。 更 好 的 方法 是 将 单元 格 区 域 中 的 数 
bh 对 数据 进行 所 需 的 处 理 ， 最 后 将 数组 中 包含 的 数据 写 入 到 单 
元 格 区 域 中 。 这 样 可 以 减少 程序 运行 期 间 对 Range 对 象 的 操作 次 数 ， 加 快 程序 的 处 理 速 度 。 








下 面 的 代码 与 上 一 个 案例 的 效果 相同 , 但 是 在 遍历 区 域 中 的 单元 格 时 只 使 用 了 一 个 索引 号 。 中 











个 单元 格 ， 并 使 用 Range 对 








赋值 给 Value 属性 。 循 环 结束 
元 格 区 域 的 最 后 一 个 单元 格 ， 它 由 Range 对 象 的 Count 属性 决定 。 





For Each 循环 结构 遍历 区 域 中 的 每 个 单元 格 来 读 写 数据 ， 这 种 方法 比 前 两 种 方 首 六 


























9 数据 赋值 给 一 个 数组 , 那么 该 数组 必须 是 一 个 Variant 数据 类 型 的 
变量 ， 然 后 可 以 直接 将 单元 格 区 域 中 的 数据 一 次 性 赋值 给 Variant 变量 。 这 与 使 用 VBA 的 内 置 
函数 Array 赋值 一 个 数组 的 方法 类 似 。 























元 格 区 域 中 的 数据 赋值 给 avarNumbers 变量 ， 该 变量 被 声明 为 





了 一 个 二 维 数组 。 第 一 维 表 
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的 特定 元 素 。 下 面 的 代码 将 数组 中 第 2 行 第 3 列 的 数组 元 素 的 值 赋值 给 intNumber 变量 : 

intNumber = avarNumbers (2，3) 

即使 单元 格 区 域 只 有 一 行 或 一 列 ， 赋 值 后 创建 的 数组 仍然 是 二 维 的 。 下 面 的 代码 通过 将 
Al:A6 单元 格 区 域 中 的 数据 赋值 给 一 个 Variant 变量 而 创建 了 一 个 二 维 数 组 ， 该 数组 包含 6 行 1 
列 ， 数 组 中 的 第 一 个 元 素 是 avarNumbers(1, 1)， 最 后 一 个 元 素 是 avarNumbers(6, 1)。 

avarNumbers = Range ("A1:RA6") .Value 

无 论 模块 顶部 的 声明 部 分 是 否 包 含 Option Base 语句 , 将 单元 格 区 域 中 的 数据 赋值 给 变量 所 
创建 的 数组 的 任何 一 维 的 下 界 都 总 是 1。 可 以 使 用 VBA 的 内 置 函数 LBound 和 UBound 确定 赋 
值 后 所 创建 的 数组 每 一 维 的 下 界 和 上 界 。 由 于 每 一 维 的 下 界 总 是 1， 因 此 每 一 维 的 上 界 就 是 该 
维度 的 大 小 。 比 如 使 用 A1:C5 单元 格 区 域 中 的 值 创建 一 个 数组 后 ， 该 数组 第 一 维 的 上 界 是 5， 
第 二 维 的 上 界 是 3。 假设 赋值 后 创建 名 为 avarNumbers 的 数组 ,可 以 使 用 UBound 函数 自动 获取 
该 数组 每 一 维 的 上 界 ，UBound 函数 的 第 一 个 参数 指定 数组 名 称 ， 第 二 个 参数 指定 数组 的 维度 ， 
如 下 所 示 : 

UBound (avarNumbers, 1) 

UBound (avarNumbers, 2) 


案例 7-17 使 用 数组 读 写 单元 格 区 域 中 的 数据 
下 面 的 代码 重 写 了 上 一 节 中 的 案例 ， 使 用 数组 代替 原先 在 区 域 中 循环 遍历 每 一 个 单元 格 的 
方法 。 
Sub 使 用 数组 读 写 单元 格 区 域 中 的 数据 () 
Dim avarNumbers As Variant, lngRow As Long, lngCol As Long 
avarNumbers = Range ("Al:C5") 
For lngRow = 1 To UBound (avarNumbers, 1) 
For lngCol = 1 To UBound (avarNumbers, 2) 
avarNumbers (lngRow, lngCol) = avarNumbers (lngRow, lngCol) + 6 
Next lngCol 
Next lngRow 


Range ("Al1:C5") = avarNumbers 
End Sub 


也 可 以 利用 Range 对 象 的 Resize 属性 将 计算 结果 放置 在 其 他 任意 指定 的 单元 格 区 域 中 ， 这 
样 可 以 避免 覆盖 原始 区 域 中 的 数据 。 新 区 域 的 左上 角 单 元 格 由 用 户 指定 ， 新 区 域 所 需 的 行 数 是 
数组 第 一 维 的 上 界 ， 新 区 域 所 需 的 列 数 是 数组 第 二 维 的 上 界 。 


案例 7-18 ”将 数据 的 计算 结果 放置 在 指定 区 域 中 

下 面 的 代码 可 以 将 对 单元 格 区 域 中 每 个 单元 格 的 计算 结果 放置 在 一 个 指定 的 区 域 中 ， 新 区 
域 的 左上 和 角 单 元 格 由 用 户 在 对 话 框 中 指定 。 为 了 避免 用 户 输入 无 效 的 单元 格 地 址 ， 或 指定 的 单 
元 格 位 于 原始 数据 区 域 中 ， 因 此 加 入 了 防 错 代码 。 代 码 的 运行 效果 如 图 7-16 所 示 。 

Sub 将 数据 的 计算 结果 放置 在 指定 的 区 域 中 () 


Dim avarNumbers As Variant, strAddress Rs String 
Dim lngRow As Long, lngCol As Long, rngNew As Range 
strAddress = InputBox ("请 输入 新 区 域 左上 角 单 元 格 的 地 址 : ") 
On Error Resume Next 
Set rngNew = Range(strAddress) 
If rngNew Is Nothing Then 

MsgBox "输入 了 无 效 的 单元 格 地 址 ! " 

Exit Sub 
Else 

If Not Intersect (rngNew, Range ("Al:C5")) Is Nothing Then 

MsgBox "不 能 使 用 数据 区 域 中 的 单元 格 ! " 
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由 
莹 


Exit Sub 
End If 
End If 
avarNumbers = Range ("Al:C5") 
For lngRow = 1 To UBound (avarNumbers, 1) 
For lngCol = 1 To UBound (avarNumbers，2) 
avarNumbers (lngRow, lngCol) = avarNumbers (lngRow, lngCol) + 6 
Next lngCol 
Next lngRow 
Range (strAddress) .Resize (UBound (avarNumbers, 1), UBound (avarNumbers, 2)) .Value = 











avarNumbers 
End Sub 
A B C D E F G H 

1 70l 60 80 

2 60 30 80 Microsoft Excel x 
3 50 20 60 有 

4 30 70 60 | 于 和 和 EE 上 阴部 人 的 地 址 
5 60 20 20 | 取消 
6 | 

7 | 

8 | 区 

9 

10 

A B C D E F G H 

1 70l 60 80 76 66 86 

2 60 30 80 66 36 86 

3 50 20 60 56 26 66 

4 30 70 60 36 76 66 

5 60 20 20 66 26 26 

6 

7 

8 

9 

10 








图 7-16 将 数据 的 计算 结果 放置 在 指定 的 区 域 中 


7.4.3 ”使 用 选择 性 粘贴 


将 工作 表 中 的 数据 复制 到 剪贴 板 之 后 ， 右 击 某 个 单元 格 ， 在 右键 菜单 中 选择 “选择 性 粘贴 ”加 
命令 ,将 打开 如 图 7-17 所 示 的 “选择 性 粘贴 ”对 话 框 ， 从 中 可 以 选择 数据 的 粘贴 方式 。 如 果 目 
标 单元 格 中 包含 数据 ， 那 么 还 可 以 选择 粘贴 时 与 目标 单元 格 进行 的 运算 方式 ， 包 括 加 、 减 、 乘 、 
除 4 种 。 


























守卫 府 拉 由 [CC ] | 屿 
图 7-17 “选择 性 粘贴 ”对 话 框 
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在 VBA 中 可 以 使 用 Range 对 象 的 PasteSpecial 方法 实现 “选择 性 粘贴 ”对 话 框 中 的 相同 功 
能 。PasteSpecial 方法 包含 4 个 参数 ， 语 法 格式 如 下 : 

PasteSpecial (Paste, Operation, SkipBlanks, Transpose) 

口 Paste: 可 选 , 粘贴 到 目标 单元 格 中 的 数据 的 格式 , 该 参数 的 值 由 XlPasteType 常量 提供 ， 
见 表 7-7。 

口 Operation : 可 选 ， 粘 贴 时 与 目标 单元 格 进行 的 运算 方式 ， 该 参数 的 值 
XIPasteSpecialOperation 常量 提供 ， 见 表 7-8。 

口 SkipBlanks: 可 选 ， 如 果 复 制 的 单元 格 区 域 中 存在 空 单元 格 ， 则 可 以 选择 粘贴 时 是 否 忽 
略 这 些 空 单 元 格 。 如 果 为 True 则 忽略 空 单元 格 ， 如 果 为 False 则 不 忽略 空 单元 格 。 如 果 
省 略 该 参数 ， 则 其 值 默 认为 False。 

口 Transpose: 可 选 ， 粘 贴 数据 时 是 否 转换 数据 区 域 中 的 行列 位 置 。 如 果 为 True 则 转换 行 
列 位 置 ， 如 果 为 False 则 不 转换 行列 位 置 。 如 果 省 略 该 参数 ， 则 其 值 默认 为 False。 





















































表 7-7 XIPasteType 常量 

名 称 说 有 
xlPasteAll 粘贴 全 部 内 容 
xlPasteAllExceptBorders 粘贴 除 边框 外 的 全 部 内 容 
xlPasteAllMergingConditionalFormats 将 粘贴 所 有 内 容 ， 并 且 将 合并 条 件 格式 
xlPasteAllUsingSourceTheme 使 用 源 主题 粘贴 全 部 内 容 
xlPasteColumnWidths | 8 | 粘贴 复制 的 列 宽 
xlPasteComments 粘贴 批注 
xlPasteFormats 粘贴 复制 的 源 格式 
xlPasteFormulas 粘贴 公式 
xlPasteFormulasAndNumberFormats = :1 粘贴 公式 和 数字 格式 
xlPasteValidation EE = 粘贴 有 效 性 
xlPasteValues 粘贴 值 
xlPasteValuesAndNumberFormats 粘贴 值 和 数字 格式 

表 7-8 XIPasteSpecialOperation 常量 
名 称 说 明 


复制 的 数据 与 目标 单元 格 中 的 值 相 加 
复制 的 数据 与 目标 单元 格 中 的 值 相 减 


xlPasteSpecialOperationAdd 





xlPasteSpecialOperationSubtract 











xlPasteSpecialOperationMultiply 复制 的 数据 与 目标 单元 格 中 的 值 相 乘 
xlPasteSpecialOperationDivide 复制 的 数据 与 目标 单元 格 中 的 值 相 除 
xlPasteSpecialOperationNone 粘贴 数据 时 不 执行 任何 计算 


假设 C1 单元 格 包含 如 下 公式 : 

=$AS1+$AS$2 

下 面 的 代码 将 C1 单元 格 中 的 公式 复制 到 剪贴 板 ， 然 后 以 值 的 形式 粘贴 到 B1 单元 格 中 ， 并 
计算 与 Bl 单元 格 中 的 数字 之 和 。 完 成 粘贴 操作 后 ， 为 了 关闭 剪 切 复制 模式 ， 需 要 将 Application 
对 象 的 CutCopyMode 属性 设置 为 False, 否则 执行 剪 切 或 复制 操作 时 的 虚线 框 会 停留 在 工作 表 中 。 
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Sub 选择 性 粘贴 () 
Range ("C1") .Copy 
Range ("B1") .PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd 
Application.CutCopyMode = False 

End Sub 


7.5 创建 与 使 用 名 称 


在 Excel 中 可 以 为 单元 格 或 单元 格 区 域 创 建 名 称 ， 然 后 可 以 在 公式 中 使 用 名 称 代替 相应 的 
单元 格 或 单元 格 区 域 ， 既 可 以 简化 单元 格 地 址 的 输入 ， 又 可 以 使 公式 各 个 部 分 的 含义 更 易于 理 
解 。 实 际 上 还 可 以 为 数字 、 文 本 或 公式 创建 名 称 ， 从 而 可 以 在 名 称 中 存储 一 些 难以 记忆 或 输入 
的 内 容 。 在 VBA 中 , 可 以 使 用 Excel 对 象 模型 中 的 Names 集合 和 Name 对 象 来 执行 与 名 称 相关 
的 操作 。 


7.5.1 ”Excel 中 的 预定 义 名 称 


Excel 已 经 为 某 些 功能 预先 创建 好 了 一 些 名 称 。 例 如 ,用户 在 工作 表 中 选择 一 个 单元 格 区 域 ， 
然后 在 功能 区 “页 面 布局 ”选项 卡 中 单 击 “ 打 印 区 域 ”按钮 ， 然 后 在 弹出 的 菜单 中 选择 “设置 
打印 区 域 ”命令 ，Excel 将 会 自动 创建 工作 表 级 的 名 称 Print_Area。 如 果 重 新 设置 打印 区 域 ， 新 
定义 的 区 域 范围 将 会 覆盖 Print_Area 名 称 中 的 原 有 范围 。 在 设置 打印 标题 时 ，Excel 将 会 自动 创 
建 工 作 表 级 的 名 称 Print_Titles。 

Excel 包含 以 下 一 些 预定 义 名 称 : Criteria、Database、Extract、Print_Area、Print_Titles。 为 
了 避免 出 现 错误 ， 在 创建 名 称 时 最 好 不 要 与 Excel 中 的 预定 义 名称 同 名 。 


7.5.2 ”命名 单元 格 区 域 


根据 名 称 的 作用 范围 ， 可 以 将 名 称 分 为 工作 短 级 名 称 和 工作 表 级 名 称 。 在 VBA 中 ， 
Workbook 对 象 的 Names 属性 返回 一 个 Names 集合 ， 它 表示 在 特定 工作 夭 中 创建 的 所 有 工作 入 
级 名 称 。Worksheet 对 象 也 有 一 个 Names 属性 ， 该 属性 返回 的 Names 集合 表示 在 特定 工作 表 中 
创建 的 所 有 工作 表 级 名 称 。 Application 对 象 的 Names 属性 返回 的 Names 集合 表示 活动 工作 竹中 
的 所 有 名 称 。 

在 VBA 中 可 以 使 用 Names 集合 的 Add 方法 创建 名 称 。Add 方法 包含 多 个 参数 ， 前 3 个 参 
数 Name、RefersTo 和 Visible 比较 常用 。 

口 Name: 可 选 ， 用 于 描述 名 称 的 文本 。 

口 RefersTo: 可 选 ， 名 称 引用 的 单元 格 区 域 。 

口 Visible: 可 选 ， 名 称 是 否 隐藏 ， 如 果 为 True 则 显示 名 称 ， 如 果 为 False 则 隐藏 名 称 。 如 

果 省 略 该 参数 ， 则 其 值 默认 为 True。 

在 设置 名 称 引 用 的 单元 格 区 域 时 ， 应 该 使 用 美元 符号 〈$) 将 单元 格 引用 限定 为 绝对 引用 ， 
否则 该 名 称 将 引用 定义 该 名 称 时 相对 于 活动 单元 格 的 相对 单元 格 地 址 ， 而 且 还 需要 在 单元 格 区 
域 的 左 侧 包 含 一 个 等 号 。 下面 的 代码 为 活动 工作 簿 中 的 Sheetl 工作 表 中 的 C2:C9 单元 格 区 域 创 
建 一 个 工作 短 级 的 名 称 “ 数 量 ” 

Application.Names.Add "数量 "，"=Sheet1!$C$2:$C$9" 

注意 : 如 果 存 在 同名 的 名 称 ， 那 么 创建 的 名 称 中 定义 的 区 域 范围 会 自动 覆盖 原名 称 中 的 区 
域 范围 ， 并 且 不 会 显示 任何 提示 信息 。 
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于 是 为 活动 工作 簿 创建 名 称 ， 
Names.Adq "数量 "，"=Sheet1!$C$2:$C$9" 
如 果 在 指定 名 称 引用 
域 ， 如 下 所 示 : 


Names.Rdd "数量 "， 


























格 区 





"=$C$2:$C$9" 























“一 季度 ” 





因此 可 以 省 略 Application 对 象 的 限定 ， 如 1 


下 所 示 : 





的 单元 格 区 域 时 不 包含 工作 表 的 名 称 ， 则 将 引用 活动 工作 表 中 的 单元 























如 果 要 为 当前 打开 的 某 个 特定 的 工作 短 创 建 名 称 ， 但 是 该 工作 短 不 是 活动 工作 敌 ， 则 需要 
在 Names 属性 前 添加 对 该 特定 工作 憩 的 Workbook 对 象 的 引用 
鸭 工作 短 创 建 工 作 簿 级 的 名 称 “ 数 量 ”。 

















。 下 面 的 代码 为 当前 打开 的 名 为 





Workbooks ("一 季度 ") .Names .Add "数量 "，"=Sheet1!$C$2:$C$9" 


如 果 要 创建 工作 表 级 的 名 称 ， 则 需要 在 名 称 前 添加 工作 表 的 名 称 和 一 个 叹 号 。 下 面 





在 Sheetl 工作 表 中 创建 名 称 “ 数 量 ”: 


Names.RAdd "Sheet1! 数 量 "， 





如 果 使 用 Worksheet 对 象 的 Names 属性 返 





要 在 名 称 前 添加 工作 表 的 名 称 和 叹 号 ， 
的 代码 创建 的 名 称 与 上 面 的 代码 完全 相 








Worksheets 
还 可 以 使 用 
级 的 名 称 ， 可 用 于 了 
区 域 创建 名 称 “ 数 量 ”。 





























Worksheets ( 





"=Sheet1!$C$2:$C$9" 





























的 代码 














可 的 Names 集合 来 创建 工作 表 级 的 名 称 , 则 不 需 
因为 当前 的 Names 集合 就 是 该 工作 表 的 名 称 集合 。 下 面 
同 ， 在 Names 集合 前 添加 了 Worksheet 对 象 的 限定 : 


("Sheet1") .Names.Rdd "数量 "，"=Sheet1!$C$2:$C$9" 


Range 对 象 的 Name 属性 为 该 Range 对 象 创建 名 称 ， 此 时 创建 的 名 称 是 工作 短 
[ 作 敌 中 的 任意 一 个 工作 表 。 下 面 








的 代码 为 Sheetl 工作 表 中 的 C2:C9 单元 格 


"Sheet1") .Range ("C2:C9") .Name = "数量 " 


如 果 要 创建 工作 表 级 的 名 称 ， 则 需要 在 名 称 前 添加 工作 表 名 称 和 一 个 叹 号 ， 如 下 所 示 : 


Worksheets ("Sheet1") .Range ("C2:C9") .Name = "Sheet1! 数 量 " 


虽然 使 用 Range 对 象 的 Name 属性 创建 名 称 更 加 简单 直观 , 但 是 Names 集合 的 Add 方法 是 


为 数字 、 文 本 和 公式 创建 名 称 的 唯一 方法 。 
7.5.3 Name 对象 Name 属性 





如 果 使 用 Range 对 象 Name 属性 为 该 Range 对 象 所 代表 的 单元 格 区 域 创建 了 名 称 ， 那 么 可 


能 希望 以 后 查看 为 该 区 域 定义 的 名 称 ， 于 是 运行 下 面 





示 的 是 名 称 引用 的 单元 格 区 域 ， 而 不 是 名 称 


MsgBox Range ("C2:C9") .Name 




















图 7-18 使 


Range 对 象 和 Name 对 
Name 对 象 的 Name 属性 返回 























. 140 。 














的 代码 。 运 行 结 果 如 图 7-18 所 示 ， 其 中 显 











Microsoft Excel 


=Sheet11$C$2:$C$9 


Range 对 象 的 Name 属性 显示 的 是 名 称 引 月 


象 都 包含 Name 属性 ,Range 对 象 的 Name 属性 
名 称 自身 的 名 字 。 因 此 如 果 想 要 显示 单元 格 区 域 


自身 的 名 字 。 


x| 
| 

















的 单元 格 区 域 


返回 一 个 Name 对 象 ， 
的 名 称 本 身 ， 则 需 
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要 使 用 Name 对 象 的 Name 属性 。 可 以 将 上 面 的 代码 改 为 以 下 形式 : 


MsgBox Range ("C2:C9") .Name.Name 


7.5.4 使 用 名 称 


创建 名 称 后 ， 可 以 在 代码 中 使 用 名 称 来 引用 相应 的 单元 格 区 域 。 如 果 所 使 用 的 名 称 不 存在 ， 
则 会 出 现 运行 时 错误 ， 因 此 在 使 用 名 称 前 应 该 先 检查 名 称 是 否 存在 。 


案例 7-19 使 用 名 称 将 新 增 数 据 添加 到 数据 区 域 的 底部 
如 图 7-19 所 示 ， 将 A3:C3 单元 格 区 域 命名 为 “输入 区 ”， 新 的 销售 数据 在 该 区 域 中 输入 。 中 
将 从 A6 单元 格 开始 的 连续 数据 区 域 命名 为 “存储 区 ”， 用 于 放置 所 有 的 销售 数据 。 每 次 在 输 
入 区 中 输入 的 新 数据 会 被 添加 到 存储 区 中 所 有 数据 的 底部 ， 并 删除 输入 区 中 的 数据 ， 同 时 更 新 
在 存储 区 中 定义 的 区 域 范围 ， 从 而 可 以 包含 新 增 的 数据 行 。 为 此 需要 使 用 Range 对 象 的 Resize 
属性 扩展 到 新 数据 的 位 置 ， 并 通过 为 Range 对 象 的 Name 属性 赋值 来 重新 定义 存储 区 的 名 称 。 
Sub 使 用 名 称 将 新 增 数据 添加 到 数据 区 域 的 底部 () 
Dim lngRowCount Rs Long 
Range ("A3") .Resize(1，3) .Name = "输入 区 " 
Range ("A6") .CurrentRegion.Name = "存储 区 " 
If Application.WorksheetFunction.CountR(Range ("输入 区 ")) <> 3 Then 
MsgBox "新 增 数据 不 完整 ! " 


























































































































Exit Sub 
End If 
With Range ("存储 区 ") 
lngRowCount = .Rows.Count + 1 


Range ("输入 区 ") .Cut .Cells (lngRowCount, 1) 
.Resize (lngRowCount) .Name = "存储 区 " 


End With 
End Sub 





品 销量 
电视 36 2017 年 8 月 28 日 

















6 ES 

7 商品 销量 日 期 

8 | 洗衣 机 13，2017 年 8 月 16 日 8 | 洗衣 机 13，2017 年 8 月 16 日 
9 电视 13，2017 年 8 月 10 昌 6 9 电视 13，2017 年 8 月 10 日 
10 | 空调 25，2017 年 8 月 21 日 10 空调 25，2017 年 8 月 21 日 
11 | 电脑 14，2017 年 8 月 15 昌 11 电脑 14，2017 年 8 月 15 日 
12 | 冰箱 49 2017 年 8 月 26 日 12 | 冰箱 49，2017 年 8 月 26 日 
13 13 电视 36，2017 年 8 月 28 日 
14 14 





图 7-19 将 输入 区 中 的 数据 添加 到 存储 区 的 底部 


7.5.5 在 名 称 中 存储 值 
可 以 为 经 常 使 用 且 难 以 记忆 和 输入 的 数字 或 文本 创建 名 称 ， 之 后 可 以 使 用 名 称 代 蔡 这 些 数 

字 或 文本 。 当 创建 引用 数字 或 文本 的 名 称 时 ， 需 要 在 设置 Add 方法 的 第 二 个 参数 RefersTo 时 ， 

直接 输入 要 创建 名 称 的 数字 或 文本 ， 但 不 能 包含 等 号 。 
案例 7-20 使 用 名 称 代替 实际 值 

下 面 的 代码 创建 了 两 个 名 称 ， 将 圆周 率 3.14 存储 在 “圆周 率 ”名 称 中 ， 将 文本 “计算 圆 面 

































































* 1 





积 ”存储 在 “标题 ”名 称 中 。 然 后 使 用 这 两 个 名 称 中 存储 的 值 计算 圆 的 面积 ， 


示 在 对 话 框 中 ， 





7 


如 图 7-20 所 示 。 





Sub 使 用 名 称 代替 实际 值 () 
Names.Rdd "圆周 率 "，3.14 
Names .Rdd "标题 "， "计算 圆 的 面积 " 


MsgBox InputBox (" 请 输入 半径 : ") ^ 2 * [圆周 率 ] ， 


End Sub 


可 以 使 用 [AH] 饮 用 方式 获取 名 称 中 存储 的 值 ， 下 下 


MsgBox [ 贺 
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Microsoft Excel 


请 输入 半径 : 


x 
取消 








hoo 























， [标题 ] 








计算 国 的 面积 x 


31400 








周 率 ] 


7.5.6 ”在 名 称 中 存储 公式 


与 为 单元 格 区 域 创建 名 称 的 方法 类 似 ， 也 可 以 为 公式 创建 名 称 ， 从 而 可 以 在 了 


VBA 中 使 用 名 称 代 替 公 式 。 
案例 7-21 使 用 名 称 代替 公式 








下 面 的 代码 为 B 列 的 销量 数据 创建 名 称 “ 总 销量 ”， 其 中 存储 使 用 














图 7-20 ”使 用 名 称 代替 实际 值 
的 代码 显示 “圆周 率 ” 名 称 中 存储 的 值 : 






































SUM 函数 计算 


销量 之 和 ， 然 后 在 “总 销量 ”文字 右 侧 的 单元 格 中 放置 计算 结果 ， 如 图 7-21 所 示 。 如 果 
包含 “总 销量 ”文字 的 单元 格 ， 计 算 结果 仍然 会 被 输入 到 “总 销量 ”文字 的 右 侧 ， 这 是 














格 右 侧 一 列 的 单元 格 。 
Sub 使 用 名 称 代替 公式 () 
Names.Rdd "总 销量 "， "=SUM(SB:SB) " 
Cells.Find(" 总 销量 "，Range ("A1l")， xlValues, xlWhole, xlByRows) .Offset (0, 1) .Value 
= [总 销量 ] 


End Sub 





日 期 
2017 年 8 月 16 日 
2017 年 8 月 10 日 
2017 年 8 月 21 日 
2017 年 8 月 15 日 
2017 年 8 月 20 日 
2017 年 8 月 11 日 
2017 年 9 月 22 日 
2017 年 8 月 26 日 
2017 年 8 月 24 日 





7.5.7 ”在 名 称 中 存储 数组 


与 在 名 称 


图 7-21 使 用 名 称 代 蔡 公 式 








bh 存储 数字 和 文本 的 方法 类 似 ， 也 可 以 在 名 称 中 存储 数组 包含 的 值 。 下 硬 

















并 将 计算 结果 显 


[ 作 表 公式 或 


为 所 有 
改变 了 
因为 使 














用 Range 对 象 的 Find 方法 查找 包含 “总 销量 ”文字 的 单元 格 ， 然 后 使 用 Offset 属性 引用 该 单元 





的 代码 


创建 一 个 数组 aintNumbers 并 为 其 赋值 ， 然 后 将 该 数组 中 的 所 有 值 保存 到 新 建 的 名 称 “ 数 组 ” 
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中 ， 最 后 在 对 话 框 中 显示 数组 中 的 元 素 总 数 。 
Sub 在 名 称 中 存储 数组 () 


Dim aintNumbers (1 To 6) As Integer, intIndex As Integer 
For intIndex = LBound (aintNumbers) To UBound (aintNumbers) 
aintNumbers (intIndex) = intIndex 
Next intIndex 
Names .Add "数组 "，aintNumbers 
MsgBox Application.WorksheetFunction.Count (aintNumbers) 
End Sub 


7.5.8 隐藏 名 称 


有 时 可 能 希望 将 一 些 存储 背景 数据 并 且 不 希望 让 用 户 看 到 的 名 称 隐藏 起 来 ， 以 免 这 些 名 称 
被 误 用 和 误 删 。 在 VBA 中 可 以 将 创建 的 名 称 隐藏 起 来 ， 隐 藏 的 名 称 不 会 显示 在 “名 称 管理 器 ” 
对 话 框 中 ， 但 是 可 以 在 工作 表 或 VBA 中 使 用 这 些 名 称 。 

可 以 使 用 两 种 方法 隐藏 名 称 ， 一 种 方法 是 在 创建 名 称 的 同时 隐藏 该 名 称 ， 只 需 将 Names 集 
合 的 Add 方法 的 第 三 个 参数 设置 为 False， 如 下 所 示 : 

Names .Add "数量 "，"=Sheet1!$C$2:$C$9",， False 

另 一 种 方法 是 在 创建 名 称 后 ， 将 Name 对 象 的 Visible 属性 设置 为 False 来 隐藏 名 称 ， 如 下 
所 示 : 


Names .Add "数量 "，"=Sheet1!$C$2:$C$9",， False 
Names ("数量 ") .Visible = False 


7.5.9 删除 名 称 


使 用 Name 对 象 的 Delete 方法 可 以 删除 不 需要 的 名 称 。 下 面 的 代码 删除 工作 簿 级 的 名 称 “ 数 
量 ”， 如 果 该 名 称 不 存在 ， 则 将 出 现 运行 时 错误 ， 因 此 需要 在 执行 删除 操作 之 前 加 入 防 错 语句 。 


On Error Resume Next 
Names ("数量 ") .Delete 


如 果 希 望 删 除 工作 短 中 的 所 有 名 称 ， 无 论 它 是 工作 德 级 还 是 工作 表 级 的 名 称 ， 可 以 使 用 下 
面 的 代码 ， 它 将 删除 活动 工作 短 中 的 所 有 名 称 。 
Sub 删除 工作 每 中 的 所 有 名 称 () 


Dim nam Rs Name 
For Each nam In Names 
nam.Delete 
Next nam 
End Sub 







































































7.6 ”排序 和 筛选 数据 


排序 和 筛选 是 比较 常用 且 易于 操作 的 数据 分 析 工具 ， 通 过 排序 可 以 快速 对 比 数值 的 大 小 ， 
还 可 以 对 相同 名 称 的 内 容 进行 视觉 上 的 分 组 排列 。 通 过 第 选 可 以 快速 找 出 符合 特定 条 件 的 数据 。 
本 节 将 介绍 在 VBA 中 排序 和 簿 选 数据 的 方法 。 
7.6.1 排序 数据 

在 开始 排序 和 第 选 数据 前 ， 需 要 正确 组 织 工作 表 中 的 数据 ， 每 一 列 数据 的 顶部 应 该 包含 标 
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题 作为 该 列 的 字段 名 称 ， 数 据 区 域 顶 部 由 各 列 标题 组 成 的 行 称 为 标题 行 ， 标 题 下 方 的 每 一 行 数 


居 称 为 数据 记录 。 
在 Excel 2007 或 更 高 版 本 的 Excel 中 , 可 以 使 用 SortFields 集合 和 Sort 对 象 对 数据 进行 排 




















友 。 





SortFields 集合 用 于 存储 排序 状态 ， 该 集合 的 Add 方法 用 于 添加 排序 字段 ， 该 集合 的 Clear 方法 





















































Apply 方法 用 于 执行 排序 操作 。 

SortFields 集合 的 Add 方法 包含 5 个 参数 ， 语 法 格式 如 下 : 

Add (Key, SortOn, Order, CustomOrder, DataOption) 

口 Key: 必 选 ， 要 排序 的 字段 。 

口 SortOn: 可 选 ， 数 据 的 排序 方式 ， 该 参数 的 值 由 XISortOn 常量 提供 ， 见 表 7-9。 











于 清除 以 前 已 经 定义 好 的 排序 字段 。Sort 对 象 的 属性 用 于 设置 与 排序 相关 的 选项 ， 该 对 象 的 


口 Order: 可 选 ， 数 据 的 排序 顺序 ， 包 括 升 序 和 降序 两 种 ， 该 参数 的 值 由 XISortOrder 常量 


提供 ， 见 表 7-10。 
口 CustomOrder: 可 选 ， 是 否 使 用 自 定义 排序 。 


口 DataOption: 可 选 ， 对 数据 区 域 进行 文本 排序 的 方式 ， 该 参数 的 值 由 XlSortDataOption 


常量 提供 ， 见 表 7-11。 


表 7-9 XISortOn 常量 








SortOnValues 
SortOnCellColor 


SortOnFontColor 











SortOnIcon 








名 称 值 说 明 
xlAscending 1 按 升 序 对 指定 字段 排序 
xlDescending 2 按 降序 对 指定 字段 排序 





表 7-11 XISortDataOption 常量 





和 方法 设置 排序 选项 并 执行 排序 操作 ， 具 体 如 下 : 


名 称 值 说 明 
分 别 对 数字 和 文本 进行 排序 
将 文本 作为 数字 型 数据 进行 排序 


xlSortNormal 0 








xlSortTextAsNumbers 1 

















除了 使 用 SortFields 集合 的 Add 方法 添加 排序 字段 之 外 ， 还 需要 使 用 Sort 对 象 的 一 些 属性 











口 SetRange 方法 : 要 进行 排序 的 数据 区 域 。 如果 是 按 列 排序 ， 则 在 指定 的 数据 区 域 中 不 需 
要 包含 区 域 顶部 的 标题 行 ， 如 果 是 按 行 排序 ， 则 应 该 在 指定 的 数据 区 域 中 包含 标题 行 。 
口 Header 属性 : 0 行 是 否 作为 标题 行 。 如 果 将 第 一 行 指 定 为 标题 行 ， 
则 在 排序 时 第 一 行 不 参与 排序 ， 否 则 第 一 行 参 与 排序 。 该 参数 的 值 由 XIYesNoGuess 常 






































量 提 供 ， 见 表 7-12。 i 则 其 值 默认 为 xINo。 
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MatchCase 属性 : 排序 时 是 否 按 英文 字母 的 大 小 写 进行 排序 , 如 果 为 True 则 按 英文 字母 











的 大 小 写 排序 ， 如 果 为 False 则 不 按 英文 字母 的 大 小 写 排序 。 如 果 省 略 该 参数 ， 则 其 值 


默认 为 False。 





Orientation 属性 : 排序 的 方向 ， 可 按 列 或 按 行 排序 ， 该 参数 的 值 由 XISortOrientation 常 





量 提供 ， 见 表 7-13。 如 果 省 略 该 参数 ， 则 其 值 默认 为 x1SortRows。 








SortMethod 属性 : 中 文 排序 的 方法 ， 可 按 拼 音 或 笔画 排序 ， 该 参数 的 值 
常量 提供 ， 见 表 7-14。 如 果 省 略 该 参数 ， 则 其 值 默 认为 xIPinYin。 
Apply 方法 : 按照 设置 好 的 排序 字段 和 排序 选项 执行 排序 操作 。 


表 7-12 XIYesNoGuess 常量 

















XlSortMethod 





名 称 值 说 明 
xlGuess 0 让 Excel 自己 判断 区 域 是 否 包含 标题 行 
xlYes 1 数据 区 域 顶部 的 标题 行 不 参与 排序 
xINo 2 数据 区 域 顶部 的 标题 行 参与 排序 














xlSortColumns 


xlSortRows 


xlPinYin 
xlStroke 








按 字符 的 拼音 顺序 排序 
按 字符 的 笔画 数 排序 





案例 7-22 ”对 销售 数据 按 销量 从 高 到 低 进行 排序 


下 


域 位 于 名 为 “销售 数据 ”的 了 











面 的 代码 对 如 图 7-22 所 示 的 销售 数据 按 C 列 中 的 销量 从 高 到 低 进行 排序 , 假设 该 数据 


























设置 排序 选项 ， 最 后 使 用 Sort 对 象 的 Apply 方法 执行 排序 操作 。 
Sub 对 销售 数据 按 销量 从 高 到 低 进行 排序 () 





With Worksheets (" 销 售 数据 ") .Sort 
.SortFields.Clear 


[ 作 表 中 。 首 先 使 用 SortFields 集合 的 Clear 方法 清除 之 前 的 排序 ; 
态 ， 然 后 使 用 该 集合 的 Add 方法 设置 排序 字段 为 “销量 ”， 然 后 通过 指定 Sort 对 象 的 相关 属 | 









席 东风 





.SortFields.Add Key:=Range ("C1"), SortOn:=xlSortOnValues, Order:=xlDescending, 


DataOption:=xlSortNormal 
.SetRange Range ("Al:C15") 
.Header = xlNo 
MatchCase = False 
.Orientation = xlSortColumns 
.SortMethod = xlPinYin 
‘Apply 

End With 


End Sub 


如 果 指 定 多 个 排序 字段 ， 则 可 以 实现 多 列 排序 。 根 据 要 同时 进行 排序 的 列 的 数量 ， 多 次 使 




















和 SortFields 




















合 的 Add 方法 设置 多 个 排序 字段 。 除 此 之 外 ， 与 前 面 介 绍 的 只 有 一 个 排序 字段 
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的 单列 排序 没有 太 大 区 别 。 











图 7-22 对 销售 数据 按 销量 从 高 到 低 进 行 排序 














使 用 自动 筛选 可 以 快速 从 数据 区 域 中 找到 符合 特定 条 件 的 数据 。 在 数据 区 域 中 单 击 任意 一 
个 单元 格 ， 然 后 在 功能 区 “数据 ”选项 卡 中 单 击 “ 筛 选 ” 按 钮 ， 进 入 自动 筛选 模式 ， 区 域 项 部 
的 标题 行 中 的 每 个 字段 右 侧 会 显示 一 个 下 拉 按 钮 ， 如 图 7-23 所 示 。 可 以 单 击 字段 右 侧 的 下 拉 按 
钮 ， 然 后 在 打开 的 列表 中 选择 字段 中 包含 的 项 目 ， 从 而 指定 筛选 条 件 。 



































A BC D 
工 | 商品 [~! 地 区 [x| 数量 |> 
全 a92 
403 
418 
452 
Y 383 
482 
264 
文本 入 选 吕 » 448 
一 227 
回 北京 155 
站 二 220 
加 河北 104 
加 上海 357 
回 天 津 
je 
| 


图 7-23 在 自动 筛选 模式 下 对 数据 进行 筛选 


每 个 工作 表 只 能 有 一 个 数据 区 域 开启 自动 筛选 模式 。 如 果 工 作 表 包 含 两 个 数据 区 域 ， 且 其 
中 一 个 数据 区 域 处 于 自动 筛选 模式 ， 那 么 在 对 另 一 个 数据 区 域 开启 自动 筛选 模式 后 ， 之 前 的 那 
个 数据 区 域 将 会 自动 退出 自动 筛选 模式 。 

在 VBA 中 , 可 以 使 用 AutoFilter 对 象 获取 自动 筛选 的 相关 信息 。 如 果 自 动 蔓 选 位 于 Excel 
表 中 ,那么 AutoFilter 对 象 的 父 对 象 是 ListObject 对 象 , 否则 AutoFilter 对 象 的 父 对 象 是 Worksheet 
对 象 。 
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AutoFilter 对 象 存在 于 自动 筛选 模式 开启 期 间 。 如 果 当 前 没有 开启 自动 筛选 模式 ， 则 可 以 使 
Range 对 象 的 AutoFilter 方法 开启 。 使 用 Worksheet 对 象 的 AutoFilterMode 属性 可 以 检查 当前 
是 否 开启 了 自动 筛选 模式 ， 该 属性 返回 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 表示 已 开启 自动 
筛选 模式 ， 如 果 为 False 则 表示 未 开启 自动 筛选 模式 。 

下 面 的 代码 检查 活动 工作 表 中 是 否 开启 了 自动 筛选 模式 ， 如 果 已 开启 则 向 用 户 发 出 已 开启 
的 提示 信息 ， 如 果 未 开启 则 在 已 使 用 区 域 中 开启 自动 筛选 模式 。 
Sub 检查 是 否 开 启 了 自动 筛选 模式 () 
Select Case RctiveSheet .AutoFilterMode 
Case True 
MsgBox "当前 已 开启 自动 筛选 模式 ! " 
Case False 
ActiveSheet .UsedRange .AutoFilter 


End Select 
End Sub 


如 果 工 作 表 中 包含 多 个 不 相 邻 的 数据 区 域 ， 则 可 以 为 指定 的 区 域 开 启 自 动 筛 选 模式 。 下 面 
的 代码 为 A1:C10 单元 格 区 域 开 启 自 动 筛选 模式 。 

Range ("R1:C10") .AutoFilter 

不 带 参数 的 AutoFilter 方法 相当 于 一 个 开启 和 关闭 自动 筛选 模式 的 开关 。 如 果 工 作 表 中 已 
经 开启 了 自动 筛选 模式 ， 那 么 使 用 AutoFilter 方法 会 将 其 关闭 。 下 面 的 代码 关闭 处 于 开启 状态 
的 自动 筛选 模式 , 其 中 使 用 由 ActiveSheet.AutoFilter 返回 的 AutoFilter 对 象 的 Range 属性 引用 
启 筛选 模式 的 数据 区 域 ， 然 后 使 用 该 Range 对 象 的 AutoFilter 方法 关闭 筛选 模式 。 

Sub 关闭 自动 筛选 模式 () 


If ActiveSheet.AutoFilterMode Then 
ActiveSheet .AutoFilter.Range.AutoFilter 
End If 
End Sub 


如 果 希 望 对 数据 执行 筛选 操作 ， 则 需要 使 用 带 有 参数 的 AutoFilter 方法 ， 该 方法 包含 5 个 
参数 ， 语 法 格式 如 下 : 

AutoFilter (Field, Criterial, Operator, Criteria2, VisibleDropDown) 

口 Field， 可 选 ， 要 进行 筛选 的 字段 编号 。 数 据 区 域 最 左 侧 的 第 一 列 的 编号 为 1， 第 二 列 的 
编号 为 2， 以 此 类 推 。 

口 Criterial: 可 选 ， 第 一 个 筛选 条 件 ， 根 据 Operator 参数 中 指定 的 筛选 类 型 来 进行 设置 。 

口 Operator: 可 选 ， 筛 选 类 型 ， 该 参数 的 值 由 XIAutoFilterOperator 常量 提供 ， 见 表 7-15。 

口 Criteria2: 可 选 ， 第 二 个 筛选 条 件 ， 根 据 第 一 个 筛选 条 件 以 及 Operator 参数 中 指定 的 得 
选 类 型 来 进行 设置 。 

口 VisibleDropDown: 可 选 , 字段 右 侧 是 否 显示 下 拉 按钮 。 如 果 为 True 则 显示 , 如 果 为 False 
则 不 显示 。 如 果 省 略 该 参数 ， 则 其 值 默认 为 True。 


表 7-15 XIAutoFilterOperator 常量 



















































































































































































名 称 值 说 了 明 
xlAnd 1 条 件 1 和 条 件 2 的 逻辑 与 
xlOr 2 条 件 1 和 条 件 2 的 逻辑 或 
xlToplO0Items 3 显示 最 高 值 项 (条件 1 中 指定 的 项 数 ) 
xlBottom1l0Items 4 显示 最 低 值 项 (条 件 1 中 指定 的 项 数 ) 
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续 表 
名 称 值 说 明 
xlTop10Percent 5 显示 最 高 值 项 (条 件 1 中 指定 的 百分数 ) 
xlBottom10Percent 6 显示 最 低 值 项 (条件 1 中 指定 的 百分数 ) 
xlFilterValues 7 筛选 值 
xlFilterCellColor 8 单元 格 颜色 
xlFilterFontColor 9 字体 颜色 
xlFilterIcon 10 筛选 图 标 
xlFilterDynamic 11 动态 筛选 





案例 7-23 ”筛选 指定 商品 的 销量 情况 
下 面 的 代码 对 Al:C15 单元 格 区 域 中 的 第 1 列 〈 商 品 )》 进行 筛选 ， 希 望 显示 酒水 和 饮料 的 
销量 情况 ， 并 且 只 显示 “商品 ” 列 的 下 拉 按 钮 ， 隐 藏 其 他 列 的 筛选 下 拉 按钮 ， 如 图 7-24 所 示 。 





























Sub 人 入选 指定 商品 的 销量 


B 


商品 地 区 





情况 () 


C D A B C D 
数量 商品 | 弄 ” 地 区 数量 

2 酒水 河北 492 

4 活水 北京 418 

7 饮料 [3 482 

8 | 饮料 河北 264 

12 | 酒水 广东 155 

14 饮料 天 津 104 


16 








图 7-24 ”筛选 指定 列 中 的 数据 


Dim rngFilter As Range, intIndex As Integer 

Set rngFilter = Range ("Al:C10") 

If Not ActiveSheet.AutoFilterMode Then 
rngFilter.AutoFilter 


End If 


For intIndex = 1 To rngFilter.Columns.Count 
rngFilter.AutoFilter Field:=intIndex, VisibleDropDown:=False 


Next intIndex 


rngFilter.AutoFilter 1，" 酒 水 "，x1lLOr，" 饮 料 "，True 


End Sub 


每 一 列 的 筛选 信息 存储 在 与 该 列 对 应 的 Filter 对 象 中 , 所 有 的 Filter 对 象 组 成 了 Filters 集合 ， 


表示 数据 区 域 中 的 所 有 列 








下 面 的 代码 显示 数据 
模式 ， 如 果 是 则 判断 数据 
字段 是 否 执行 了 筛选 操作 
对 话 框 中 显示 第 1 列 设置 














区 域 








， 如 果 是 则 返回 True， 和 否则 返回 False。 如 果 On 属性 返回 True， 则 在 
汶 第 选 条 件 。 














的 筛选 信息 。 在 Filters 集合 中 可 以 使 用 索引 号 引用 指定 的 筛选 列 。 


案例 7-24 ” 显 式 指定 列 中 的 第 一 个 筛选 条 件 
区 域 第 1 列 中 设置 的 第 一 个 筛选 值 。 首 先 判断 工作 表 是 否 开 启 了 筛选 

















的 第 1 列 是 否 设置 了 筛选 条 件 ，Filter 对 象 的 On 属性 用 于 检测 
































Sub 显 式 指定 列 中 的 第 一 个 筛选 条 件 () 
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If ActiveSheet.AutoFilterMode Then 
If ActiveSheet.AutoFilter.Filters(1) .On Then 
MsgBox ActiveSheet.AutoFilter.Filters(1) .Criterial 
End If 
End If 
End Sub 


注意 : 无 法 使 用 Filter 对 象 设 置 筛选 信息 ， 而 需要 使 用 Range 对 象 的 AutoFilter 方法 设置 得 
选 信息 。 

如 果 要 筛选 多 个 值 而 不 是 前 面 案例 中 的 两 个 值 ， 那 么 可 以 使 用 Array 函数 创建 包含 所 有 得 
选 值 的 数组 ， 将 其 指定 为 AutoFilter 方法 中 的 第 二 个 参数 的 值 。 同 时 还 要 将 Operator 参数 的 值 
设置 为 xlFilterValues， 以 允许 使 用 多 个 筛选 值 。 下 面 的 代码 是 对 案例 7-23 修改 后 的 版 本 ， 它 将 
筛选 出 酒水 、 饮 料 、 大 米 3 种 商品 的 销量 情况 。 

Sub 设置 多 不 体 选 值 

Dim rngFilter As Range，intIndex Rs Integer 
Set rngFilter = Range("R1:C10") 
If Not ActiveSheet.AutoFilterMode Then 
rngFilter.AutoFilter 
End If 
For intIndex = 1 To rngFilter.Columns.Count 
rngFilter.AutoFilter Field:=intIndex, VisibleDropDown:=False 
Next intIndex 
rngFilter.AutoFilter 1，Rrray(" 酒 水 "，" 饮 料 "， "大 米 ") ，xlFilterValues，，True 
End Sub 


7.6.3 ”高 级 筛选 


使 用 高 级 筛选 也 可 以 获取 符合 条 件 的 数据 并 显示 出 来 ， 而 且 可 以 将 筛选 结果 提取 到 其 他 指 
定 的 位 置 上 ， 这 样 可 以 不 影响 原始 数据 的 显示 。 提 取 的 目标 位 置 可 以 是 同一 个 工作 表 ， 也 可 以 
是 同一 个 工作 短 的 其 他 工作 表 ， 还 可 以 是 其 他 工作 短 。 高 级 筛选 还 可 以 将 筛选 结果 中 的 重复 值 
删除 。 

使 用 高 级 筛选 时 ， 需 要 先 在 单元 格 区 域 中 输入 筛选 条 件 ， 然 后 在 高 级 筛选 中 将 筛选 条 件 指 
定 为 该 单元 格 区 域 。 可 以 将 放置 筛选 条 件 的 单元 格 区 域 称 为 条 件 区 域 。 条 件 区 域 的 顶部 需要 包 
含 筛选 字段 的 标题 ， 然 后 在 标题 下 方 的 单元 格 中 输入 具体 的 筛选 条 件 。 筛 选 条 件 及 其 输入 方式 
分 为 以 下 三 种 。 
口 如 果 要 在 同一 个 字段 中 设置 满足 两 个 条 件 之 一 的 筛选 条 件 ， 则 需要 将 筛选 条 件 放置 在 条 
件 区 域 的 同 列 多 行 中 。 如 图 7-25 所 示 的 条 件 区 域 表 示 希 望 筛选 出 酒水 或 饮料 的 销量 数据 。 
果 要 在 不 同 字段 中 设置 同时 满足 多 个 条 件 的 筛选 条 件 ， 则 需要 将 筛选 条 件 放置 在 条 件 
域 的 同行 多 列 中 。 如 图 7-26 所 示 的 条 件 区 域 表示 希望 筛选 出 北京 地 区 酒水 的 销售 数据 。 
果 
区 

































































口 




















口 


要 在 不 同 字段 中 设置 满足 两 个 条 件 之 一 的 筛选 条 件 , 则 需要 将 这 两 个 条 件 放置 在 条 
区 域 的 不 同 列 和 不 同行 中 。 如 图 7-27 所 示 表 示 种 选 出 酒水 的 销售 数据 ， 或 者 筛选 出 
北京 地 区 的 销售 数据 。 



































图 7-25 ”第 一 种 筛选 条 件 图 7-26 第 二 种 筛选 条 件 图 7-27 第 三 种 筛选 条 件 


我 们 还 可 以 使 用 返回 逻辑 值 True 或 False 的 公式 作为 筛选 条 件 ， 此 时 在 条 件 区 域 中 的 第 一 
行 不 能 包含 筛选 字段 的 标题 ， 或 者 包含 的 标题 不 能 与 待 筛选 的 数据 区 域 中 的 标题 相同 。 
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在 VBA 中 可 以 使 用 Range 对 象 的 AdvancedFilter 方法 对 数据 执行 高 级 筛选 的 操作 , 该 方法 
包含 4 个 参数 ， 语 法 格式 如 下 : 

AdvancedFilter (Action, CriteriaRange, CopyToRange, Unique) 

口 Action: 必 选 ， 在 数据 区 域 的 原始 位 置 进行 筛选 ， 还 是 将 筛选 结果 复制 到 其 他 位 置 ， 该 
参数 的 值 由 XIFilterAction 常量 提供 ， 见 表 7-16。 

口 CriteriaRange: 可 选 ， 高 级 筛选 的 条 件 区 域 。 

口 CopyToRange: 可 选 ， 将 筛选 结果 复制 到 的 单元 格 区 域 。 

口 Unique: 可 选 ， 是 否 提取 不 重复 值 。 如 果 为 True 则 在 筛选 后 删除 重复 值 ， 如 果 为 False 
则 不 删除 重复 值 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 False。 























表 7-16 XlIFilterAction 常量 


说 明 
在 数据 的 原始 位 置 显 示 筛选 结果 
将 筛选 结果 复制 到 其 他 位 置 


名 称 
xlFilterInPlace 





xlFilterCopy 


案例 7-25 ”对 数据 进行 高 级 筛选 
下 面 的 代码 对 Al:C15 单 元 格 区 域 中 的 数据 进行 高 级 筛选 ,F1:G2 是 高 级 筛选 中 的 条 件 区 域 。 


























将 筛选 结果 放置 在 新 建 工作 表 的 指定 区 域 中 ， 该 区 域 的 左上 角 单 元 格 是 A1， 如 图 7-28 所 示 。 
A B C D E F G H 

3 商品 地 区 数量 商品 地 区 

2 | 酒水 河北 492 饼干 Es 

3 | 饼干 上 海 403 

4 | 酒水 北京 418 

5 | 大 米 天 津 452 

6 | 牛奶 河北 383 

7 | 饮料 广东 482 

8 | 饮料 河北 264 

9 | 饼干 北京 448 

10 | 饼干 上 海 227 

11 酸奶 上 海 381 

12 | 酒水 广东 155 

13 | 牛奶 广东 220 

14 饮料 天 津 104 

15 | 大 米 上 海 357 
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图 7-28 ”对 数据 进行 高 级 筛选 











Sub 对 数据 进行 高 级 筛选 () 
Dim rngOld As Range, rngNew As Range, rngCriteria As Range 
Set rngold = Range ("Al:C15") 
Set rngCriteria = Range ("F1:G2") 
Set rngNew = Worksheets.Add.Range ("R1") 
rng0ld.AdvancedFilter xlFilterCopy, rngCriteria, rngNew 
End Sub 


ee 


第 8 章 使 用 Shape 对 象 处 理 图 形 对 象 


Excel 对 象 模型 中 的 Shape 对 象 专门 
状 、 文 本 框 、 艺 术 字 、 图 表 等 ， 
描述 ， 本 章 将 使 用 术语 “图 形 对 象 ”作为 绘图 层 中 
Shape 对 象 处 理 图 形 对 象 的 方法 。 


























8.1 

















于 处 理 位 于 了 
但 是 这 些 对 象 的 创建 需要 使 用 Shapes 集合 进行 处 理 。 为 了 便 了 
的 对 象 的 统一 描述 方式 。 本 章 将 详细 介绍 使 





[ 作 表 的 绘图 





层 中 的 对 象 , 例如 图 片 、 


TR 





理解 Shapes 集合 与 Shape 对 象 


Shapes 集合 包含 工作 表 中 的 所 有 图 形 对 象 ， 其 中 的 每 一 个 图 形 都 是 一 个 Shape 对 象 ，Shape 
对 象 是 Shapes 集合 的 成 员 。Shapes 集合 的 父 对 象 是 Worksheet 对 象 。 本 节 将 介绍 Shapes 集合 与 
Shape 对 象 的 基本 概念 及 其 常用 的 属性 和 方法 ， 在 本 章 后 面 的 内 容 中 将 会 详细 介绍 这 些 属 性 和 


方法 的 具体 应 用 。 


8.1.1 Shapes 集合 的 常用 属性 和 方法 
Shapes 集合 只 包含 为 数 不 多 的 属性 和 方法 ， 而 其 中 的 大 多 数 方法 都 用 于 创建 不 同类 型 的 图 


形 对 象 。 表 8-1 和 表 8-2 列 








出 了 Shapes 集合 的 常用 属性 和 方法 。 









































































































































表 8-1 Shapes 集合 的 常用 属性 
属 性 说 明 
Count 返回 工作 表 中 的 图 形 对 象 的 总 数 
Range 返回 包含 指定 范围 内 的 所 有 图 形 对 象 的 ShapeRange 集合 
表 8-2 Shapes 集合 的 常用 方法 
5 说 了 明 
AddChart 创建 一 个 图 表 ， 并 返回 表示 该 图 表 的 Shape 对 象 
AddFormControl 创建 一 个 Excel 窗 体 控件 ， 并 返回 表示 该 控件 的 Shape 对 象 
AddPicture 插入 一 个 图 片 ， 并 返回 表示 该 图 片 的 Shape 对 象 
AddShape 创建 一 个 自选 图 形 ， 并 返回 表示 该 自选 图 形 的 Shape 对 象 
AddTextbox 创建 一 个 文本 框 ， 并 返回 表示 该 文本 框 的 Shape 对 象 
AddTextEffect 创建 一 个 艺术 字 ， 并 返回 表示 该 艺术 字 的 Shape 对 象 
Item 以 名 称 或 索引 号 来 引用 特定 的 图 形 对 象 
SelectAll 选择 并 返回 包含 Shapes 集合 中 的 所 有 图 形 对 象 的 ShapeRange 集合 
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8.1.2 ”Shape 对 象 的 常用 属性 和 方法 



















































































































































































Shape 对 象 包含 很 多 属性 和 方法 ， 表 8-3 和 表 8-4 列 出 了 其 中 比较 常用 的 属性 和 方法 。 
表 8-3 Shape 对象 的 常用 属性 

属 性 说 了 明 
BottomRightCell 返回 一 个 表示 图 形 对 象 右 下 角 所 在 的 单元 格 的 Range 对 象 
Chart 返回 一 个 包含 图 形 对 象 中 的 图 表 的 Chart 对 象 
Fill 返回 一 个 用 于 设置 图 形 对 象 的 填充 格式 的 FillFormat 或 ChartFillFormat 对 象 
HasChart 确定 图 形 对 象 中 是 否 包含 图 表 
Height 返回 或 设置 图 形 对 象 的 高 度 ， 以 磅 为 单位 
Left 返回 或 设置 图 形 对 象 的 左边 缘 与 工作 表 A 列 左边 缘 的 距离 ， 以 磅 为 单位 
Line 返回 一 个 用 于 设置 图 形 对 象 的 边框 格式 的 LineFormat 对 象 
LockAspectRatio 返回 或 设置 图 形 对 象 的 宽度 和 高 度 之 间 的 比例 的 锁定 状态 
Name 返回 或 设置 图 形 对 象 的 名 称 
OnAction 返回 或 设置 为 图 形 对 象 指定 的 宏 的 名 称 
PictureFormat 返回 一 个 用 于 设置 图 片 格式 的 PictureFormat 对 象 
Top 返回 或 设置 图 形 对 象 的 上 边缘 与 工作 表 上 边缘 的 距离 ， 以 磅 为 单位 
TopLeftCell 返回 一 个 表示 图 形 对 象 左上 角 所 在 的 单元 格 的 Range 对 象 
Type 返回 图 形 对 象 的 类 型 
Visible 返回 或 设置 图 形 对 象 的 显示 或 隐藏 状态 
Width 返回 或 设置 图 形 对 象 的 宽度 ， 以 磅 为 单位 
ZOrderPosition 返回 与 图 形 对 象 在 Shapes 集合 中 的 索引 号 对 应 的 z- 顺 序 中 的 位 置 

表 8-4 Shape 对 象 的 常用 方法 

太守 法 说 了 明 
Delete 删除 图 形 对 象 
ScaleHeight 按 指定 比例 调整 图 形 对 象 的 高 度 
ScaleWidth 按 指定 比例 调整 图 形 对 象 的 宽度 
Select 选择 图 形 对 象 
SetShapesDefaultProperties 将 图 形 对 象 的 当前 格式 设置 为 以 后 创建 的 图 形 对 象 的 默认 格式 














8.1.3 Shapes 集合 与 ShapeRange 集合 






















































































Shapes 集合 包含 指定 工作 表 中 的 所 有 图 形 对 象 , 而 ShapeRange 集合 包含 指定 范围 内 的 所 有 
形 对 象 ， 这 个 范围 可 以 是 当前 选中 的 所 有 图 形 ， 也 可 以 是 由 用 户 指 定 的 一 个 或 多 个 图 形 ， 可 
以 将 ShapeRange 集合 看 成 是 Shapes 集合 的 子 集 。 
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8.1.4 引用 图 形 对 象 
在 工作 表 中 单 击 某 个 图 形 对象 将 其 选中 ， 然 后 在 编辑 栏 左 侧 的 名 称 框 中 可 以 看 到 所 选 图 形 对 
象 的 名 称 ， 比 如 “和 矩形 1” “图片 2” 等 ， 如 图 8-1 所 示 ， 名 称 中 的 汉字 与 数字 之 间 有 一 个 空格 。 






































图 8-1 图 形 对 象 的 名 称 显示 在 名 称 框 中 


在 VBA 中 ， 可 以 使 用 图 形 对 象 的 名 称 或 索引 号 从 Shapes 集合 中 引用 特定 的 图 形 对象 。 如 
果 在 活动 工作 表 中 存在 名 为 “图 片 2” 的 图 片 ， 并 且 该 图 片 在 该 工作 表 包 含 的 所 有 图 形 对 象 中 
位 于 第 2 个 位 置 ， 那 么 下 面 3 行 代码 都 可 以 引用 这 个 图 片 : 


RActiveSheet .Shapes (2) 
ActiveSheet .Shapes ("图 片 2") 
ActiveSheet .Shapes ("Picture 2") 


如 果 使 用 Shape 对 象 的 Name 属性 ， 返 回 的 是 图 形 对 象 的 英文 名 称 ， 比 如 Picture 2。 

还 可 以 使 用 Shapes 集合 的 Range 属性 引用 一 个 或 多 个 图 形 对 象 ， 该 属性 返回 ShapeRange 
集合 。 下 面 的 代码 引用 活动 工作 表 中 名 为 “图 片 2” 的 图 片 : 

ActiveSheet .Shapes.Range ("图 片 2") 

当 引 用 一 个 图 形 对 象 时 ， 直 接 使 用 不 带 Range 属性 的 Shapes 集合 更 简洁 。 但 是 当 引用 多 个 
图 形 对 象 时 ， 则 需要 使 用 Shapes 集合 的 Range 属性 并 配合 Array 参数 。 下 面 的 代码 引用 活动 工 
作 表 中 索引 号 为 1、2、3 的 三 个 图 形 对 象 : 

ActiveSheet .Shapes.Range (Array(1，2，3)) 

面 的 代码 引用 活动 工作 表 中 名 为 “矩形 1” 和 “图 片 2” 的 两 个 图 
RActiveSheet .Shapes.Range (Array(" 和 矩形 1"，" 图 片 2")) 

下 面 的 代码 引用 当前 选中 的 所 有 图 形 对 象 : 

Selection.ShapeRange 
下 面 的 代码 引用 当前 选中 的 所 有 图 形 对 象 中 的 第 2 个 图 形 对 象 : 

Selection.ShapeRange (2) 

使 用 Shapes 对 象 的 Range 属性 返回 一 个 包含 特定 范围 内 的 多 个 图 形 对 象 的 ShapeRange 集 
合 后 ， 可 以 声明 一 个 Shape 类 型 的 对 象 变量 ， 然 后 在 For Each 循环 结构 中 使 用 该 变量 遍历 返 世 
的 ShapeRange 集合 中 的 每 一 个 图 形 ， 并 进行 所 需 的 处 理 。 
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对 象 : 
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8.2 ”获取 图 形 对 象 的 相关 信息 
可 以 通过 Shape 对 象 的 一 些 属 性 来 获取 图 形 对 象 的 相关 信息 ， 比 如 图 形 对 象 的 名 称 、 类 型 


和 
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和 位 置 。 本 节 将 介绍 获取 这 些 信息 的 方法 。 


8.2.1 ”获取 图 形 对 象 的 名 称 


通过 本 章 前 面 的 介绍 可 以 了 解 到 ， 虽 然 可 以 通过 索引 号 来 定位 不 同 的 图 形 对 象 ， 但 是 
工作 表 中 包含 很 多 图 形 对 象 ， 那 么 索引 号 并 不 是 很 直观 ， 通 过 图 形 对 象 的 名 称 来 定位 图 形 





























在 工作 表 中 插入 的 每 个 图 形 对 象 都 有 一 个 默认 的 名 称 ， 对 于 图 片 来 说 ， 其 名 称 可 能 是 


如 果 
对 象 


“图 


片 1”“ 图 片 2” 等 ， 对 于 自选 图 形 中 的 矩形 来 说 ， 其 名 称 可 能 是 “矩形 1”“ 拢 形 2” 等 。 使 








用 Shape 对 象 的 Name 属性 可 以 返回 特定 图 形 对 象 的 名 称 。 下 面 的 代码 在 对 话 框 中 显示 活 
作 表 中 索引 号 为 2 的 图 形 对 象 的 名 称 : 

MsgBox ActiveSheet.Shapes (2) .Name 

如 果 想 要 查看 选中 的 图 形 对 象 的 名 称 ， 则 可 以 使 用 下 面 的 代码 : 


MsgBox Selection.ShapeRange (1) .Name 


案例 8-1 列 出 所 有 图 形 对 象 的 索引 号 和 名 称 


























动工 





下 面 的 代码 将 Sheetl 工作 表 中 的 所 有 图 形 对 象 的 索引 号 和 名 称 显示 在 Sheet2 工作 表 的 A 




















列 和 B 列 ， 如 图 8-2 所 示 。 代 码 中 声明 了 5 个 变量 ，wksShape 变量 和 wksOutput 变量 分 别 





























日 于 在 For Each 循环 结构 中 对 Sheetl 工作 表 中 的 所 有 图 形 对 象 进行 遍历 ，aShapes 变量 是 





























Sheet2 工作 表 的 单元 格 区 域 中 。 











A B 
11 1 | 索引 号 名 称 
12 ei | 2 1 Picture 2 
13 = | 3 2 Picture 4 
14 上 4 4 3 Rectangle 5 
15| 国 » 4 5 4 Oval6 
和 < 6 


Sheetl 工作 表 和 Sheet2 工作 表 ，intRow 变量 用 于 稍 后 定义 的 数组 中 第 一 维 的 索引 值 。shp 变量 


动态 数组 ， 用 于 存储 Sheetl 工作 表 中 的 所 有 图 形 对 象 的 索引 号 和 名 称 ， 之 后 再 一 次 性 写 入 到 
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图 8-2 Sheetl 包含 的 图 形 对 象 及 其 在 Sheet2 中 列 出 的 索引 号 和 名 称 


使 用 ReDim 语句 对 数组 进行 重新 定义 时 , 使 用 Sheetl 工作 表 中 的 所 有 图 形 对 象 的 总 数 作 为 
该 数组 第 一 维 的 上 界 ， 而 该 数组 第 二 维 的 上 界 为 2 是 因为 数组 中 一 共存 储 索引 号 和 名 称 两 列 数 
据 。 在 For Each 循环 结构 中 将 每 个 图 形 对 象 的 索引 号 和 名 称 存 储 到 每 个 数组 元 素 中 。 之 后 通过 
Range 对 象 的 Resize 属性 确定 要 写 入 数据 的 单元 格 区 域 的 范围 ， 该 区 域 的 行 数 就 是 数组 第 一 维 

















的 上 界 ， 列 数 就 是 数组 第 二 维 的 上 界 。 然 后 将 数组 中 的 所 有 数据 一 次 性 写 入 指定 的 单元 格 
中 ， 最 后 调整 单元 格 区 域 的 列 宽 以 正好 容纳 其 中 的 内 容 。 














区 域 





如 果 活 动工 作 短 中 不 存在 Sheetl 或 Sheet2, 或 者 Sheetl 工作 表 中 没有 任何 图 形 对 象 ， 则 会 














出 现 运行 时 错误 。 


.154 。 
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Sub 列 出 所 有 图 形 对 象 的 索引 号 和 名 称 () 
Dim wksShape As Worksheet, wksOutput As Worksheet 
Dim intRow As Integer, shp As Shape, aShapes() As Variant 
Set wksShape = Worksheets ("Sheetl1" 
Set wksOutput = Worksheets ("Sheet2" 
ReDim aShapes (1 To wksShape.Shapes.Count, 1 To 2) 
wksOutput .Range ("Al") .Resize (1，2) = Array ("索引 号 "， "名称") 
For Each shp In wksShape.Shapes 
intRow = intRow + 1 


aShapes (intRow, 1) = shp.ZOrderPosition 
aShapes (intRow, 2) = shp.Name 
Next shp 
wksOutput.Range ("A2") .Resize (UBound (aShapes, 1), 2) = aShapes 
wksOutput .Range ("A2") .Resize (UBound (aShapes, 1), 2).EntireColumn.AutoFit 
End Sub 


8.2.2 ”获取 图 形 对 象 的 类 型 

很 多 时 候 可 能 需要 对 工作 表 中 特定 类 型 的 图 形 对 象 进行 操作 。 使 用 Shape 对 象 的 Type 属性 日 
可 以 确定 图 形 对 象 的 类 型 , 该 属性 的 值 由 MsoShapeType 常量 提供 , 表 8-5 列 出 了 常见 类 型 对 应 
的 常量 值 。 























表 8-5 MsoShapeType 常量 























名 称 说 明 
msoAutoShape | 1 | 自选 图 形 
msoChart 图 表 
msoComment 批注 
msoGroup | 6 | fag 
msoEmbeddedOLEObject 嵌入 的 OLE 对 象 
et Wes OE 
msoLine | ，。 | 线条 
msoLinkedOLEObject 10 链接 的 OLE 对 象 
msoPicture 13 图 片 
msoTextBox 17 文本 框 
msolgxGraphic 24 SmartArt 





下 面 的 代码 返回 活动 工作 表 中 索引 号 为 2 的 图 形 对 象 的 类 型 : 

ActivVveSheet .Shapes (2) .TYPe 

下 面 的 代码 返回 选 定 图 形 对 象 的 类 型 ; 

Selection.ShapeRange (1) .Type 

Type 属性 返回 的 是 数字 值 ， 而 不 是 常量 值 的 名 称 ， 因 此 不 易于 理解 。 为 了 增强 可 读 性 ， 可 
以 创建 一 个 自 定义 函数 ， 其 中 包含 一 个 待 检 查 类 型 的 Shape 对 象 类 型 的 参数 ， 根 据 检查 结果 返 
可 文本 形式 的 类 型 。 

案例 8-2 ”创建 检测 图 形 对 象 类 型 的 自 定义 函数 

下 面 的 代码 创建 了 一 个 strShapeType 自 定义 函数 , 其 中 包含 一 个 Shape 对 象 类 型 的 参数 shp， 
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表示 被 检测 的 图 形 对 象 。 
Function strShapeType (shp As Shape) 
Dim strType As String 
Select Case shp.Type 


Case 1: strType = "自选 图 形 " 
Case 3: strType = "图 表 " 
Case 4: strType = "批注 " 
Case 6: strType = "组 合 图 形 " 
Case 9: strType = "线条 " 


Case 13: strType = "图 片 " 
Case 17: strType = "文本 框 " 
Case 24: strType = "SmartArt" 
End Select 
strShapeType = strType 
End Function 
i 的 代码 使 用 上 面 创建 的 strShapeType 自 定义 函数 检测 选 定 图 形 对 象 的 类 型 ， 并 显示 表 
示 类 型 的 文本 信息 而 不 是 数字 值 ， 如 图 8-3 所 示 。 


MsgBox strShapeType (Selection.ShapeRange (1) ) 
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图 片 




















8-3 ”显示 表示 图 形 对 象 类 型 的 文本 信息 


8.2.3 ”获取 图 形 对 象 的 位 置 


Shape 对 象 包含 用 于 确定 图 形 对 象 位 置 的 以 下 几 个 属性 : Left、Top、TopLeftCell 和 
BottomRightCell。Left 属性 用 于 确定 图 形 对 象 的 左边 缘 与 工作 表 A 列 左 边缘 的 距离 ，Top 属性 
于 确定 图 形 对 象 的 上 边缘 与 工作 表 上 边缘 的 距离 。 换 句 话说 ， 这 两 个 属性 用 于 确定 图 形 对 象 
的 左上 角 在 工作 表 中 的 位 置 .TopLeftCell 和 BottomRightCell 两 个 属性 用 于 确定 图 形 对 象 的 左上 
角 和 右 下 角 所 在 的 单元 格 。 

案例 8-3 ”显示 图 形 对 象 的 位 置信 息 

下 面 的 代码 在 对 话 框 中 显示 选 定 图 形 对 象 的 位 置信 息 ， 包 括 Left、Top、TopLeftCell 和 
BottomRightCell 的 值 ， 如 图 8-4 所 示 。 

Sub 显示 图 形 对 象 的 位 置信 息 () 


Dim strMsg As String, shp As Shape 

Set shp = Selection.ShapeRange (1) 

strMsg = strMsg & "距离 R 列 左边 缘 的 距离 : " & Round(shp.Left, 2) & vbCrLf 
strMsg = strMsg & "距离 工作 表 上 边缘 的 距离 : " & Round(shp.Top, 2) & vbCrLf 
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strMsg = strMsg & "图 形 对 象 左上 角 所 在 的 单元 格 : " & shp.TopLeftCel1.Rddress(0，0) & vbcrLf 
strMsg = strMsg & "图 形 对 象 右 下 角 所 在 的 单元 格 : " & shp.BottomRightCell.Address (0，0) & vbCrLf 
MsgBox strMsg 

End Sub 









Microsoft Excel x 


距 高 A 列 左边 夭 的 距 高 : 39 

距 高 工作 表 上 边 篆 的 距 高 ; 37.5 
图 形 对 象 左 上 角 所 在 的 单元 格 : A3 
图形 对 象 右 下 角 所 在 的 单元 格 : D10 


Ew 





图 8-4 显示 图 形 对 象 的 位 置信 息 








8.3 ”插入 与 删除 图 形 对 象 


使 用 Shapes 集合 包含 的 方法 可 以 插入 不 同类 型 的 图 形 对 象 ， 本 节 主要 介绍 在 工作 表 中 插入 
自选 图 形 和 图 片 ， 以 及 选择 和 删除 图 形 对 象 的 方法 。 


8.3.1 插入 自选 图 形 


在 VBA 中 , 可 以 使 用 Shapes 集合 的 AddShape 方法 在 工作 表 中 插入 自选 图 形 , 该 方法 包含 名 
5 个 参数 ， 语 法 格式 如 下 : 

RddShape (Type, Left, Top, Width, Height) 

口 Type: 必 选 ， 自 选 图 形 的 类 型 ， 该 参数 的 值 由 MsoAutoShapeType 常量 提供 ， 表 8-6 列 

出 了 部 分 常用 的 常量 值 。 

口 Left: 必 选 ， 自 选 图 形 的 左边 缘 与 工作 表 A 列 左 边缘 的 距离 ， 以 磅 为 单位 。 

口 Top: 必 选 ， 自 选 图 形 的 上 边缘 与 工作 表 上 边缘 的 距离 ， 以 磅 为 单位 。 

口 Width: 必 选 ， 自 选 图 形 的 宽度 ， 以 磅 为 单位 。 

口 Height: 必 选 ， 自 选 图 形 的 高 度 ， 以 磅 为 单位 。 


表 8-6 MsoAutoShapeType 常量 



































































































名 称 值 说 “ 明 
msoShapeRectangle 1 矩形 
msoShapeParallelogram 2 平行 四 边 形 
msoShapeTrapezoid 3 梯形 
msoShapeDiamond 4 菱形 
msoShapeRoundedRectangle 3 角 和 矩形 
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续 表 

名 称 说 明 
msoShapelsoscelesTriangle 等 腰 三 角形 
msoShapeRightTriangle 直角 三 角形 
msoShapeOval 椭圆 形 
msoShapeCan 柱 形 
msoShapeCross 十 字形 
msoShapeCube 立方 体 
msoShapeRightArrow 右 箭头 
msoShapeLeftArrow 左 箭头 
msoShapeUpArrow 上 箭头 
msoShapeDownArrow 下 箭头 
msoShapeSpointStar 五 角 星 





而 的 代码 在 活动 工作 表 中 插入 一 个 和 矩形， 该 矩形 的 宽度 是 100 磅 ， 高 度 是 70 磅 ， 其 左边 
缘 与 工作 表 A 列 左 边缘 的 距离 是 50 磅 , 其 上 边缘 与 工作 表 上 边缘 的 距离 是 30 磅 , 如 图 8-5 所 示 。 


ActiveSheet .Shapes.AddShape msoShapeRectangle, 50, 30, 100, 70 


























图 8-5 使 用 AddShape 方法 插入 一 个 矩形 


在 Excel 界面 中 如 果 想 要 插入 一 个 正方 形 ， 则 需要 选择 矩形 后 按 住 Shift 键 并 拖 动 鼠标 才能 
绘制 出 来 。 在 VBA 中 创建 正方 形 的 方法 与 创建 矩形 类 似 ， 只 需 指 定 相同 的 宽度 和 高 度 即 可 。 
下 面 的 代码 在 活动 工作 表 中 插入 一 个 边 长 为 70 磅 的 正方 形 : 
ActiveSheet.Shapes.AddShape msoShapeRectangle, 50, 30, 70, 70 
案例 8-4 ”以 厘米 为 单位 指定 矩形 的 尺寸 
我 们 可 能 习惯 于 使 用 厘米 为 单位 来 指定 自选 图 形 的 尺寸 。 可 以 使 用 Application 对 象 的 
CentimetersToPoints 方法 将 输入 的 厘米 值 转换 为 磅 值 。 下 面 的 代码 在 活动 工作 表 中 插入 宽度 为 
10 厘米 ， 高 度 为 6 厘米 的 矩形 ， 该 矩形 的 左边 缘 与 工作 表 A 列 左 边缘 的 距离 为 5 厘米 ， 上 边缘 
与 工作 表 上 边缘 的 距离 为 3 厘米 ， 如 图 8-6 所 示 。 

Sub 插入 以 厘米 为 单位 指定 尺寸 的 矩形 () 
Dim dblLeft As Double, dblTop As Double 
Dim dblWidth As Double, dblHeight As Double 
dblLeft = Application.CentimetersToPoints (5) 
dblTop = Application.CentimetersToPoints (3) 
dblwidth = Application.CentimetersToPoints (10 
dblHeight = Application.CentimetersToPoints (6) 


ActiveSheet .Shapes .AddShape msoShapeRectangle, dblLeft, dblTop, dblWidth, dblHeight 
End Sub 
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图 8-6 插入 以 厘米 为 单位 指定 尺寸 的 矩形 


8.3.2 ”插入 图 片 


与 插入 自选 图 形 相 比 ， 在 工作 表 中 插入 图 片 的 操作 可 能 更 加 频繁 。 使 用 Shapes 集合 的 六 
AddPicture 方法 可 以 在 工作 表 中 插入 图 片 ， 该 方法 包含 7 个 参数 ， 语 法 格式 如 下 : 
RddPicture (Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height) 
口 Filename: 必 选 ， 要 插入 的 图 片 文 件 的 路 径 和 文件 名 。 
口 LinkToFile: 必 选 ， 以 链接 或 嵌入 的 形式 插入 图 片 。 如 果 设 置 为 True 则 以 链接 的 形式 插 
入 图 片 ， 如 果 设 置 为 False 则 以 嵌入 的 形式 插入 图 片 。 
口 SaveWithDocument: 必 选 ， 是 否 将 插入 的 图 片 与 工作 敌 一 起 保存 。 如 果 将 LinkToFile 
参数 设置 为 False， 则 必须 将 SaveWithDocument 参数 设置 为 True。 
口 Left， 必 选 ， 图 片 的 左边 缘 与 工作 表 A 列 左 边缘 的 距离 ， 以 磅 为 单位 。 
口 Top: 必 选 ， 图 片 的 上 边缘 与 工作 表 上 边缘 的 距离 ， 以 磅 为 单位 。 
口 Width: 必 选 ， 图 片 的 宽度 ， 以 磅 为 单位 。 
口 Height: 必 选 ， 图 片 的 高 度 ， 以 磅 为 单位 。 
在 Excel 2016 中 还 包括 一 个 AddPicture2 方法 ， 该 方法 包含 8 个 参数 ， 前 7 个 参数 与 
AddPicture 方法 相同 ， 第 8 个 参数 用 于 设置 是 否 对 插入 的 图 片 进 行 压缩 。 
下 面 的 代码 将 C 盘 根 目 录 中 名 为 “风景 jpg” 的 图 片 插 入 到 活动 工作 表 中 。 如 果 图 片 没有 
位 于 指定 的 位 置 上 ， 则 会 出 现 运 行 时 错误 。 


ActiveSheet .Shapes.AddPicture "C:\ 风 景 .jpg"， False, True, 50, 30, 200, 150 


案例 8-5 ”插入 以 厘米 为 单位 指定 尺寸 的 图 片 
下 面 的 代码 将 C 盘 根 目录 中 名 为 “风景 jpg” 的 图 片 插 入 到 活动 工作 表 中 ， 并 将 其 
置 为 8 厘米 ， 高 度 设置 为 5 厘米 ， 图 片 的 左边 缘 与 工作 表 A 列 左 边缘 的 距离 为 3 厘米 ， 上 边缘 
与 工作 表 上 边缘 的 距离 为 2 厘米 ， 如 图 8-7 所 示 。 
Sub 插入 以 厘米 为 单位 的 指定 尺寸 的 图 片 () 
Dim strFileName Rs String 
Dim dblLeft As Double, dblTop As Double 
Dim dblWidth As Double, dblHeight As Double 
strFileName = "C:\ 风 景 .jpg" 
dblLeft = Application.CentimetersToPoints (3) 
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dblTop = Application.CentimetersToPoints (2) 
dblwidth = Application.CentimetersToPoints (8) 
dblHeight = Application.CentimetersToPoints (5) 


ActiveSheet .Shapes.AddPicture strFileName, False, True, dblLeft, dblTop, dblWwidth, 


dblHeight 


End Sub 








图 8-7 插入 以 厘米 为 单位 的 指定 尺寸 的 图 片 
案例 8-6 ”插入 图 片 时 与 指定 的 单元 格 区 域 对 齐 





的 左上 
度 与 区 
域 地 址 








的 代码 在 活动 工作 表 中 插入 图 片 时 ， 自 动 将 图 片 与 用 户 指定 的 单元 格 区 域 对 齐 ， 

角 位 于 指定 区 域 的 左上 角 单 元 格 ， 图 片 的 宽度 与 区 域 中 的 所 有 列 的 列 宽 相同 ， 图 片 
域 中 的 所 有 行 的 行 高 相同 ， 如 图 8-8 所 示 。 代 码 将 用 户 在 对 话 框 中 输入 的 表示 单元 
的 文本 赋值 给 strRange 变量 ， 然 后 将 其 用 作 Range 属性 的 参数 以 获得 对 指定 单元 格 
































的 引用 

















图 片 
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区 域 








， 并 将 其 赋值 给 mg 变量 。 为 了 避免 用 户 输入 的 内 容 无 法 解析 为 有 效 的 单元 格 区 域 地址， 





Width 和 Height 四 个 属性 获得 单元 格 区 域 的 左上 角 位 置 以 及 宽度 和 高 度 ， 并 将 它们 赋值 给 











dbl 开头 的 变量 ， 最 后 使 用 Shapes 对 象 的 AddPicture 方法 插入 指定 路 径 下 的 图 片 文 件 ， 并 使 














4 个 dbl 开头 的 变量 指定 图 片 在 工作 表 中 的 位 置 和 尺寸 。 
Sub 插入 图 片 时 与 指定 的 单元 格 区 域 对 齐 () 


00 


Dim strFileName Rs String 
Dim strRange As String, rng As Range 
Dim dblLeft As Double, dblTop As Double 
Dim dblWwidth As Double, dblHeight As Double 
strFileName = "C:\ 风 景 .jpg" 
strRange = InputBox (" 请 输入 单元 格 区 域 的 地 址 : ") 
If strRange = "" Then Exit Sub 
On Error Resume Next 
Set rng = Range (StrRange) 
If rng Is Nothing Then 
MsgBox "单元 格 区域 的 地 址 无 效 ! " 
Exit Sub 
End If 
dblLeft = rng.Left 
dblTop = rng.Top 
dblwidth = rng.Width 
dblHeight = rng.Height 


此 加 入 了 防 错 代码 。 如 果 输 入 的 单元 格 区 域 的 地 址 有 效 ， 则 使 用 Range 对 象 的 Left、Top、 


4 个 
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RctiveSheet .Shapes.AddPicture strFileName, False, True, dblLeft, dblTop, dblWwidth, 
dblHeight 
End Sub 
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请 纺 入 单元 格 区 域 的 地 址 : L 杯 ] 10 | 
B 消 了 ee 一 一 一 一 一 


Pz:n12 14 
8-8 ”插入 图 片 时 与 指定 的 单元 格 区 域 对 齐 


案例 8-7 ”隔行 批量 插入 多 个 图 片 

下 面 的 代码 将 指定 的 多 个 图 片 隔行 插入 到 活动 工作 表 中 ， 所 有 图 片 的 大 小 相同 ， 并 与 指定 
的 单元 格 区 域 对 齐 排列 ， 如 图 8-9 所 示 。 本 例 代码 与 上 一 个 案例 中 的 代码 类 似 ， 不 同 之 处 在 于 
使 用 Array 函数 创建 包含 要 插入 的 所 有 图 片 的 文件 名 称 的 Variant 类 型 数组 ， 以 便 在 使 用 
AddPicture 方法 插入 图 片 时 ， 可 以 通过 索引 号 动态 引用 数组 中 的 不 同 元 素 以 获得 对 应 的 图 片 文 
件 的 名 称 。 使 用 For Next 循环 结构 在 数组 的 下 界 与 上 界 之 间 循 环 ， 使 用 由 用 户 指定 的 单元 格 
域 的 位 置 和 大 小 插入 图 片 并 设置 尺寸 。 然 后 重新 定义 用 于 确定 下 一 个 图 片 所 在 位 置 的 单元 格 
域 ， 新 区 域 是 当前 区 域 向 下 偏 移 指 定 行 数 后 得 到 的 区 域 ， 偏 移 的 行 数 为 当前 区 域 的 总 行 数 加 1， 
从 而 可 以 确保 两 个 图 片 之 间 包 含 一 个 空 行 。 

Sub 隔行 批量 插入 多 个 图 片 () 


Dim avarName Rs Variant, intIndex As Integer 
Dim strRange As String, rng Rs Range, shp As Shape 
Dim dblLeft As Double, dblTop As Double 
Dim dblWidth As Double, dblHeight As Double 
avarName = Array ("风景 1.jpg"， "风景 2.jpg"， "风景 3.jpg") 
InputBox ("请 输入 起 始 单元 格 区 域 的 地 址 :") 
If strRange = "" Then Exit Sub 
On Error Resume Next 
Set rng = Range (strRange) 
If rng Is Nothing Then 
MsgBox "单元 格 区 域 的 地 址 无 效 ! " 
Exit Sub 
End If 
For intIndex = LBound (avarName) To UBound (avarName) 
dblLeft = rng.Left 
dblTop = rng.Top 
dblWwidth = rng.Width 
dblHeight = rng.Height 
Set shp = ActiveSheet.Shapes .AddPicture (ThisWorkbook.Path & "\" & avarName (intIndex), 
False, True, dblLeft, dblTop, dblWidth, dblHeight) 
Set rng = rng.Offset(rng.Rows.Count + 1) 
Next intIndex 
End Sub 
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图 8-9 隔行 批量 插入 多 个 图 片 


8.3.3 选择 特定 类 型 的 图 形 对 象 


Shapes 集合 有 一 个 SelectAll 方法 ， 用 于 选择 工作 表 中 的 所 有 图 形 对 象 。 如 果 要 选择 特定 类 
型 的 图 形 对 象 ， 比 如 图 片 或 自选 图 形 ， 则 需要 考虑 使 用 其 他 方式 。ShapeRange 集合 包含 指定 范 
围 内 的 所 有 图 形 对 象 ， 而 使 用 Shapes 集合 的 Range 属性 则 可 以 返回 ShapeRange 集合 。 如 果 将 
Array 函数 返回 的 表示 图 形 对 象 的 索引 号 或 名 称 的 Variant 类 型 数组 作为 Range 属性 的 参数 ， 则 
可 以 创建 包含 多 个 指定 图 形 对 象 的 ShapeRange 集合 。 借 助 这 个 思路 ， 可 以 使 用 动态 数组 代替 
Array 函数 生成 的 数组 ， 将 符合 指定 类 型 的 图 形 对 象 添 加 到 动态 数组 中 ， 然 后 将 该 数组 作为 
Range 属性 的 参数 ， 从 而 创建 包含 指定 类 型 的 所 有 图 形 对 象 的 ShapeRange 集合 ， 最 后 使 用 
ShapeRange 集合 的 Select 方法 选择 这 些 图 形 对 象 。 
案例 8-8 选择 活动 工作 表 中 的 所 有 图 片 
下 面 的 代码 选择 活动 工作 表 中 的 所 有 图 片 ， 而 不 会 选择 图 片 以 外 的 其 他 类 型 的 图 形 对 象 。 
代码 中 声明 了 一 个 动态 数组 astrShapes 用 于 存储 工作 表 中 的 所 有 图 片 。 在 For Each 循环 结构 中 
遍历 活动 工作 表 中 的 每 一 个 图 形 对 象 , 使 用 Shape 对 象 的 Type 属性 判断 当前 图 形 对 象 的 类 型 是 
否 是 图 片 〈 即 msoPicture) ， 如 果 是 则 将 表示 动态 数组 上 界 的 intShapeCount 变量 的 值 加 1， 此 
时 intShapeCount 变量 的 值 由 0 变 为 1。 然 后 使 用 ReDim 语句 以 1 为 数组 的 下 界 ，intShapeCount 
变量 为 数组 的 上 界 重 新 定义 动态 数组 ， 并 将 当前 图 形 对 象 的 名 称 赋值 给 该 动态 数组 的 第 一 个 元 
素 。 重 复 For Each 循环 ， 只 要 找到 图 片 就 将 intShapeCount 变量 的 值 继续 加 1， 然 后 将 新 找到 的 
图 片 的 名 称 赋值 给 新 增加 的 数组 元 素 ， 以 此 类 推 。 
遍历 完 所 有 图 形 对 象 退 出 For Each 循环 结构 后 , 需要 检查 intShapeCount 变量 的 值 是 否 大 于 
0， 如 果 大 于 0 则 说 明 工 作 表 中 至 少 包含 1 个 图 片 ， 将 动态 数组 作为 Shapes 对 象 Range 属性 的 
参数 以 返回 包含 所 有 图 片 的 ShapeRange 集合 , 然后 使 用 该 集合 的 Select 方法 选择 所 有 图 片 。 如 
果 intShapeCount 变量 的 值 不 大 于 0， 则 显示 工作 表 中 不 包含 图 片 的 提示 信息 。 
Sub 选择 活动 工作 表 中 的 所 有 图 片 () 
Dim shp As Shape, intShapeCount As Integer 
Dim astrShapes () Rs String 
For Each shp In ActiveSheet.Shapes 
If shp.Type = msoPicture Then 
intShapeCount = intShapeCount + 1 


ReDim Preserve astrShapes (1 To intShapeCount) 
astrShapes (intShapeCount) = shp.Name 
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End If 

Next shp 

If intShapeCount > 0 Then 
ActiveSheet.Shapes.Range (astrShapes) .Select 

Else 
MsgBox "活动 工作 表 中 不 包含 图 片 ! " 

End If 

End Sub 


8.3.4 ”删除 工作 表 中 的 所 有 图 形 对 象 


如 果 想 要 删除 工作 表 中 的 所 有 图 形 对 象 ， 则 可 以 在 For Each 循环 结构 中 使 用 一 个 Shape 类 





型 的 对 象 变量 遍历 每 一 个 图 形 对 象 ， 并 执行 Shape 对 象 的 Delete 方法 进行 删除 。 
案例 8-9 使 用 For Each 循环 结构 删除 所 有 图 形 对 象 
下 面 的 代码 使 用 For Each 循环 结构 删除 活动 工作 表 中 的 所 有 图 形 对 象 。 


Sub 使 用 ForEach 循环 结构 删除 所 有 图 形 对 象 () 
Dim shp As Shape 
For Each shp In ActiveSheet.Shapes 
shp.Delete 
Next shp 
End Sub 


























如 果 工 作 表 中 包含 数量 庞大 的 图 形 对 象 ， 那 么 还 可 以 使 用 一 种 更 加 简单 有 效 的 方法 来 删除 


所 有 的 这 些 图 形 对 象 . 通过 使 用 Shapes 集合 的 SelectAll 方法 选择 工作 表 中 的 所 有 图 形 对 象 , 然 
后 使 用 返回 的 ShapeRange 集合 的 Delete 方法 删除 所 有 图 形 对 象 ， 减 少 For Each 循环 所 需 花 费 




















的 时 间 。 
案例 8-10 ”使 用 SelectAll 方 法 删除 所 有 图 形 对 象 
下 面 的 代码 使 用 SelectAll 方法 删除 活动 工作 表 中 的 所 有 图 形 对 象 。 


Sub 使 用 SelectAll 方法 删除 所 有 图 形 对 象 () 
RActiveSheet .Shapes .SelectRl1l 
Selection.ShapeRange.Delete 

End Sub 


8.3.5 ”删除 特定 类 型 的 图 形 对 象 


虽然 有 时 需要 删除 工作 表 中 的 所 有 图 形 对象 ， 但 是 遇 到 更 多 的 情况 可 能 是 删 
型 的 图 形 对 象 ， 或 者 删除 特定 类 型 以 外 的 其 他 图 形 对 象 。 定 位 特定 类 型 的 图 形 对 



































象 的 Range 属性 的 参数 以 返回 ShapeRange 集合 ， 然 后 该 集合 的 Delete 方法 即 可 











定 类 型 的 图 形 对 象 。 





除 某 科 


特定 类 


象 的 一 种 方法 
是 使 用 8.3.3 节 中 介绍 的 技术 , 利用 动态 数组 存储 特定 类 型 的 图 形 对 象 , 然后 将 其 作为 Shape 对 





一 次 性 


E 删 除 特 


另 一 种 方法 是 在 For Each 循环 结构 中 遍历 每 一 个 图 形 对 象 ， 并 判断 图 形 对 象 是 否 是 特定 的 


类 型 ， 如 果 是 则 执行 Shape 对 象 的 Delete 方法 将 其 删除 。 
案例 8-11 ”删除 活动 工作 表 中 的 所 有 自选 图 形 











下 面 的 代码 删除 活动 工作 表 中 的 所 有 自选 图 形 ， 而 不 会 删除 自选 图 形 以 外 的 其 他 类 型 的 图 











形 对 象 。 


Sub 删除 活动 工作 表 中 的 所 有 自选 图 形 () 
Dim shp As Shape 
For Each shp In ActiveSheet.Shapes 
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If shp.Type = msoAutoShape Then 
shp.Delete 
End If 
Next shp 
Next shp 
End Sub 


8.4 设置 图 形 对 象 的 格式 


图 形 对 象 的 格式 主要 包括 填充 格式 和 边框 格式 两 种 ， 图 片 通常 不 需要 设置 填充 格式 ， 边 杠 
格式 则 同时 适用 于 图 片 和 自选 图 形 。 本 节 主 要 介绍 为 自选 图 形 设 置 填充 格式 和 边框 格式 的 方法 。 


8.4.1 设置 图 形 对 象 的 填充 格式 


可 以 使 用 FilliFormat 对 象 设置 图 形 对 象 的 填充 格式 ， 该 对 象 由 Shape 对 象 的 Fill 属性 返回 。 
要 设置 单 种 颜色 的 纯色 填充 ， 需 要 使 用 FillFormat 对 象 的 ForeColor 属性 ， 该 属性 返回 
ColorFormat 对 象 ， 使 用 ColorFormat 对 象 的 RGB 属性 设置 填充 颜色 。 

可 以 使 用 VBA 的 内 置 函 数 RGB 为 ColorFormat 对 象 的 RGB 属性 设置 颜色 值 。RGB 函数 
包含 3 个 参数 ， 分 别 表示 颜色 中 的 红 、 绿 、 蓝 3 个 颜色 分 量 ， 每 个 颜色 分 量 的 取 值 范围 为 0 一 
255。 表 8-7 列 出 了 常用 的 颜色 及 其 对 应 的 RGB 颜色 分 量 值 。 


表 8-7 常用 的 颜色 及 其 对 应 的 RGB 颜色 分 量 









































颜色 名 称 蓝 色 分 量 
黑色 0 0 0 
白色 255 255 255 
红色 255 0 0 
绿色 0 255 0 
蓝 色 0 0 255 
黄色 255 255 0 
粉色 255 0 255 
青色 0 255 255 








案例 8-12 ”为 自选 图 形 设置 纯色 填充 

下 面 的 代码 将 活动 工作 表 中 的 所 有 自选 图 形 的 填充 色 设 置 为 粉色 。 由 于 某 些 自选 图 形 有 可 
能 已 经 设置 了 单 色 或 双色 渐变 填充 , 因此 需要 使 用 FillFormat 对 象 的 Solid 方法 将 填充 方式 改 为 
纯色 填充 ， 然 后 再 使 用 ColorFormat 对 象 的 RGB 属性 设置 填充 颜色 。 


Sub 为 自选 图 形 设置 纯色 填充 () 
Dim shp As Shape 
For Each shp In ActiveSheet.Shapes 
If shp.Type = msoAutoShape Then 
shp.Fill.Solid 
shp.Fill.ForeColor.RGB = RGB(255, 0, 255 
End If 
Next shp 
End Sub 


如 果 要 设置 单 色 渐变 ， 则 需要 使 用 FillFormat 对 象 的 OneColorGradient 方法 ， 然 后 与 设置 
纯色 填充 的 方法 类 似 ， 使 用 FillFormat 对 象 的 ForeColor 属性 返回 ColorFormat 对 象 ， 然 后 为 该 
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对 象 的 RGB 属性 设置 单 色 渐变 填充 的 颜色 。 

如 果 要 设置 双色 渐变 ， 则 需要 使 用 FillFormat 对 象 的 TwoColorGradient 方法 。 然 后 与 设置 
单 色 渐 变 填充 的 方法 类 似 ， 但 不 同 之 处 在 于 除了 需要 设置 ForeColor 属性 之 外 ， 还 需要 设置 
BackColor 属性 ， 从 而 实现 双色 渐变 填充 效果 。 

OneColorGradient 和 TwoColorGradient 两 个 方法 的 第 一 个 参数 用 于 设置 渐变 填充 的 样式 ， 
该 参数 的 值 由 MsoGradientStyle 常量 提供 ， 见 表 8-8。 
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表 8-8 MsoGradientStyle 常量 

















名 称 值 说 明 
msoGradientHorizontal 水 平 经 过 图 形 的 渐变 
msoGradientVertical 垂直 向 下 填充 图 形 的 渐变 
msoGradientDiagonalUp 从 一 个 底 角 到 另 一 侧 项 角 的 对 角 渐变 





从 一 个 顶 角 到 另 一 侧 底 角 的 对 角 渐变 
从 一 个 角 到 其 他 三 个 角 的 渐变 


msoGradientDiagonalDown 





msoGradientFromCorner 








msoGradientFromTitle 从 标题 向 外 的 渐变 
msoGradientFromCenter 从 中 心 到 各 个 角 的 渐变 
msoGradientMixed 渐变 是 混合 的 


案例 8-13 ”为 自选 图 形 设置 双色 渐变 填充 

下 面 的 代码 为 活动 工作 表 中 选中 的 自选 图 形 设置 由 粉色 和 绿色 组 成 的 双色 渐变 ， 如 图 8-10 
所 示 。 如 果 未 选择 任何 自选 图 形 ， 则 会 出 现 运 行 时 错误 。 

Sub 为 自选 图 形 设置 双色 渐变 填充 () 


With Selection.ShapeRange 
.Fill.TwoColorGradient msoGradientVertical, 1 
.Fill.BackColor.RGB = RGB(255, 0, 255) 
.Fill.ForeColor.RGB = RGB(0, 255, 0) 
End With 
End Sub 



































图 8-10 设置 双色 渐变 填充 


还 可 以 使 用 FillFormat 对 象 的 UserPicture 方法 为 自选 图 形 设 置 图 片 填 充 效 果 ， 该 方法 包含 
一 个 参数 ， 表 示 图 片 文件 的 路 径 和 名 称 。 

案例 8-14 ”为 自选 图 形 设置 图 片 填充 

下 面 的 代码 为 活动 工作 表 中 选中 的 自选 图 形 设置 图 片 填充 ， 如 图 8-11 所 示 。 这 个 图 片 位 于 
包含 代码 的 工作 敌 所 在 的 路 径 中 ， 其 文件 名 为 “风景 1jpg”。 

Sub 为 自选 图 形 设置 图 片 填充 () 


Dim strFileName As String 

strFileName = ThisWorkbook.Path & "\" & "风景 1.jpg" 

Selection.ShapeRange.Fill.UserPicture strFileName 
End Sub 
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图 8-11 为 自选 图 形 设置 图 片 填充 


8.4.2 设置 图 形 对 象 的 边框 格式 


可 以 使 用 LineFormat 对 象 设 置 图 形 对 象 的 边框 格式 , 该 对 象 由 Shape 对 象 的 Line 属性 返回 。 
然后 使 用 LineFormat 对 象 的 一 些 属性 设置 边框 的 格式 ， 主 要 包括 边框 的 线 型 、 颜 色 和 粗细 ， 具 
体 如 下 : 

口 线 型 : 使 用 DashStyle 属性 设置 边框 的 线 型 , 该 属性 的 值 由 MsoLineDashStyle 常量 提供 ， 

见 表 8-9。 
口 颜色 : 使 用 ForeColor 属性 返回 的 ColorFormat 对 象 的 RGB 属性 设置 边框 的 颜色 。 
口 粗细 : 使 用 Weight 属性 设置 边框 的 粗细 ， 以 磅 为 单位 。 


表 8-9 MsoLineDashStyle 常量 


























名 称 说 了 明 
msoLineSolid 边框 是 实 线 
msoLineSquareDot 边框 由 方 点 构成 
msoLineRoundDot 边框 由 圆 点 构成 
msoLineDash 边框 是 短 画 线 
msoLineDashDot 边框 是 点 画 线 
msoLineDashDotDot 边框 是 点 画 线 
msoLineLongDash 边框 是 长 画 线 
msoLineLongDashDot 边框 是 长 点 画 线 





案例 8-15 ”设置 自选 图 形 的 边框 格式 
下 面 的 代码 为 活动 工作 表 中 选中 的 自选 图 形 设置 边框 格式 ， 将 边框 的 线 型 设置 为 短 画 线 ， 
将 边框 的 颜色 设置 为 蓝 色 ， 将 边框 的 粗细 设置 为 3 磅 ， 如 图 8-12 所 示 。 


Sub 设置 自选 图 形 的 边框 格式 () 

With Selection.ShapeRange 
.Line.DashStyle = msoLineDash 
.Line.ForeColor.RGB = RGB(0, 0, 255) 
.Line.Weight = 3 

End With 

End Sub 




















图 8-12 设置 自选 图 形 的 边框 格式 
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图 表 是 将 工作 表 中 的 数据 可 视 化 呈现 的 主要 方式 。 在 Excel 界面 环境 中 可 以 很 容易 地 创建 
和 设置 图 表 ， 在 VBA 中 可 以 使 用 Excel 对 象 模型 中 的 图 表 对 象 来 创建 和 设置 图 表 。 由 于 Excel 
中 的 图 表 分 为 嵌入 式 图 表 和 图 表 工 作 表 两 种 类 型 ， 因 此 在 VBA 中 需要 使 用 不 同 的 对 象 才能 创 
建 这 两 类 图 表 。 本 章 将 详细 介绍 在 VBA 中 操作 图 表 的 方法 。 












































9.1 图 表 基 础 


本 节 主 要 介绍 在 VBA 中 创建 图 表 需 要 了 解 的 一 些 基础 知识 ,包括 Excel 中 的 两 种 图 表 类 型 、 
图 表 的 组 成 结构 、Excel 对 象 模 型 中 的 图 表 对 象 ， 以 及 在 VBA 中 引用 图 表 的 方法 。 


9.1.1 嵌入 式 图 表 和 图 表 工 作 表 Ee 
在 Excel 中 可 以 创建 两 类 图 表 : 嵌入 式 图 表 和 图 表 工 作 表 。 如 果 希 望 同时 查看 和 打印 图 表 虑 

及 其 数据 源 ， 则 可 以 创建 嵌入 式 图 表 ， 如 图 9-1 所 示 。 巍 入 式 图 表 位 于 工作 表 中 ， 可 以 在 工作 

表 中 随意 调整 嵌入 式 图 表 的 位 置 、 大 小 ， 操 作 方 法 类 似 于 工作 表 中 的 图 片 和 图 形 。 要 选择 嵌入 

式 图 表 ， 需 要 先 选择 包含 嵌入 式 图 表 的 工作 表 。 















































0 日 民 曾 目的 :; 第 9 章 - Excel 登录 加 品 
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图 9-1 嵌入 式 图 表 
如 果 希 望 在 一 个 独立 的 空间 以 最 大 的 可 视 范 围 显示 图 表 , 则 可 以 创建 图 表 工 作 表 , 如 图 9-2 
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所 示 。 图 表 工 作 表 类 似 于 普通 的 工作 表 ， 在 Excel 窗口 底部 的 工作 表 标 签 栏 中 有 其 自己 的 工作 
表 标 签 ， 单 击 图 表 工 作 表 标签 可 以 选择 并 显示 其 中 的 图 表 。 
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Chart1 Sheet1 Sheet Sheet3 | 图 表 组 成 结构 由 四 





图 9-2 图表 工作 表 


无 论 最 初创 建 的 是 嵌入 式 图 表 还 是 图 表 工 作 表 ， 都 可 以 随时 在 两 者 之 间 相 互 转换 。 选 择 一 
个 嵌入 式 图 表 或 图 表 工 作 表 后 ， 将 在 功能 区 中 显示 “图 表 工 具 ”| “设计” 和 “图 表 工 具 ”|“ 格 
式 ” 两 个 选项 卡 ， 可 以 使 用 这 两 个 选项 卡 中 包含 的 选项 设置 图 表 的 外 观 格式 。 


9.1.2 ”图 表 的 组 成 结构 
在 VBA 中 对 图 表 进行 的 很 多 操作 都 是 在 设置 图 表 中 的 不 同 元 素 , 因此 应 该 对 构成 图 表 的 各 
个 元 素 有 所 了 解 。 如 图 9-3 所 示 是 一 个 标准 的 图 表 及 其 中 包含 的 图 表 元 素 ， 具 体 如 下 : 


第 1 季度 销售 情况 
= 北京 “上海 = 广州 


59 i 824 813 876 
800 655 563 A 
600 
400 
200 
0 
] 坟 2 月 3 月 


图 9-3 图 表 的 组 成 结构 


口 图 表 区 : 由 图 表 外 边框 包围 起 来 的 白色 区 域 ， 图 表 区 是 其 他 图 表 元 素 的 背景 。 
口 绘图 区 : 由 横 、 纵 坐标 轴 包 围 起 来 的 浅 灰 色 区 域 。 
口 图 表 标 题 : 图 表 顶 部 用 于 描述 图 表 含 义 或 用 途 的 文字 。 

口 图 例 : 图 表 标 题 下 方 带 有 颜色 块 的 文字 ， 用 于 标识 图 表 中 的 各 个 数据 系列 。 

口 数据 系列 : 绘图 区 中 的 长 条 和 矩形， 数据 系列 由 数据 源 区 域 中 的 行 或 列 组 成 。 图 9-3 中 的 


















































"168 。 
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图 表 包 含 3 个 数据 系列 , 每 个 数据 系列 中 的 矩形 表示 一 个 数据 点 , 即 特定 单元 格 中 的 值 。 

口 数据 标签 : 每 个 矩形 上 方 的 数字 ， 表 示 特 定数 据点 的 值 。 

口 横 坐 标 轴 : 绘图 区 下 方 用 于 显示 数据 的 分 类 信息 的 文字 ， 比 如 “1 月 ”“2 月 ”。 

口 纵 坐 标 轴 : 绘图 区 左 侧 用 于 显示 数值 的 数字 刻度 ， 比 如 200、400。 

口 网 格 线 : 贯穿 绘图 区 的 水 平 或 垂直 方向 上 的 线条 。 在 不 显示 数据 标签 的 情况 下 ， 网 格 线 
有 助 于 估算 数据 系列 中 的 每 个 数据 点 的 值 。 

除了 上 面 介绍 的 图 表 元 素 之 外 ， 图 表 中 还 可 以 包含 横 坐标 轴 标 题 、 纵 坐标 轴 标 题 、 数 据 表 


















































9.1.3 ”图表 的 Excel 对 象 模型 


于 在 Excel 中 存在 嵌入 式 图 表 和 图 表 工 作 表 , 因此 在 Excel 对 象 模型 中 也 存在 与 这 两 类 图 
表 对 应 的 Excel 对 象 一 一 ChartObject 对 象 和 Chart 对 象 .- ChartObject 对 象 表示 典 入 式 图 表 , Chart 
对 象 表示 图 表 工 作 表 。 
ChartObject 对 象 实际 上 是 嵌入 式 图 表 的 容器 ， 用 于 控制 嵌入 式 图 表 的 外 观 和 大 小 ， 真 正 的 
嵌入 式 图 表 是 Chart 对 象 .如 果 要 对 嵌入 式 图 表 本 身 进行 操作 ,需要 使 用 ChartObject 对 象 的 Chart 
属性 返回 Chart 对 象 ， 然 后 使 用 Chart 对 象 的 属性 和 方法 来 处 理 嵌 入 式 图 表 。 
由 于 媒 入 式 图 表 位 于 工作 表 中 ， 因 此 ChartObject 对 象 的 父 对 象 是 Worksheet 对 象 ， 工 作 表 
中 的 所 有 嵌入 式 图 表 组 成 了 ChartObjects 集合 。 由 于 嵌入 式 图 表 与 图 片 和 图 形 都 位 于 工作 表 的 
绘图 层 中 ， 因 此 可 以 将 ChartObject 对 象 看 作 是 一 种 特殊 类 型 的 Shape 对 象 ， 在 工作 表 中 新 建 的 
嵌入 式 图 表 同 时 属于 ChartObjects 和 Shapes 集合 的 成 员 。 嵌入 式 图 表 的 ChartObject 对 象 的 层次 
结构 如 下 : 
RARPP1ication 一 Workbook 一 Worksheet 一 ChartObject 一 Chart 
作 短 中 的 图 表 工 作 表 是 Chart 对 象 ， 因 此 Chart 对 象 的 父 对 象 是 Workbook 对 象 ， 工 作 短 
中 的 所 有 图 表 工作 表 组 成 了 Charts 集合 。 与 Worksheet 对 象 类 似 ，Chart 对 象 也 是 Sheets 集合 的 
成 员 。 在 图 表 工作 表 中 也 可 以 创建 嵌入 式 图 表 ， 但 通常 不 需要 这 么 做 。 图 表 工 作 表 的 Chart 对 
象 的 层次 结构 如 下 : 


APP1ication 一 Workbook 一 Chart 


















































































































































9.1.4 在 VBA 中 引用 图 表 


在 VBA 中 处 理 图 表 之 前 ， 首 先 需要 引用 指定 的 图 表 。 如 果 当 前 已 经 选中 了 某 个 图 表 , 无 论 
它 是 嵌入 式 图 表 还 是 图 表 工 作 表 ,都 可 以 使 用 Application 对 象 的 全 局 属性 ActiveChart 来 引用 该 
活动 图 表 。 下 面 的 代码 返回 活动 图 表 的 名 称 : 

ActiveChart.Name 
如 果 要 在 工作 表 中 引用 特定 的 嵌入 式 图表 ， 则 需要 使 用 ChartObjects 集合 或 Shapes 集合 并 
使 用 嵌入 式 图 表 的 索引 号 或 名 称 。 下 面 的 代码 引用 活动 工作 表 中 的 第 2 个 嵌入 式 图 表 : 

ActiveSheet .ChartObjects (2) 

如 果 活动 工作 表 中 的 第 2 个 懂 入 式 图 表 的 名 称 是 “图 表 2”， 则 还 可 以 使 用 以 下 两 种 方法 
来 引用 这 个 嵌入 式 图 表 : 


ActiveSheet .ChartObjects ("图 表 2") 
ActiveSheet .Shapes ("图 表 2") 
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注意 : 不 能 像 引 用 活动 工作 表 中 的 Range 对 象 那样 ， 在 引用 ChartObjects 时 省 略 其 左 侧 的 
工作 表 限 定 符 (如 ActiveSheet ) ， 否 则 会 出 现 错误 。 









































集合 或 Sheets 集合 来 引用 了 








[ 作 表 的 方式 类 似 。 负 






































个 图 表 工 作 表 ， 其 在 工作 表 标 签 栏 上 的 位 置 如 图 9-4 所 示 ， 那 么 下 


名 为 Chart2 的 图 表 工 作 表 : 














[| | cnam | sheet | chanz | Sheet2 5 
































Charts (2) 
Sheets (3) 
Charts ("Chart2") 
Sheets ("Chart2") 











9-4 ”引用 工作 短 中 名 为 Chart2 的 图 表 工 作 表 



































如 果 要 引用 的 图 表 工 作 表 是 活动 












































示 为 Chart, 如 下 所 示 : 


用 该 图 表 工 作 表 。 使 用 VBA 的 内 置 函 数 TypeName 可 以 检查 ActiveSheet 返回 


MsgBox TypeName (ActiveSheet) 


9.1.5 ”Chart 对 象 的 常用 属性 和 方法 


无 论 是 嵌入 式 图 表 还 是 图 表 了 

















是 Chart 对 象 。 表 9-1 和 表 9-2 列 出 了 Chart 对 象 的 常用 属性 和 方法 。 


表 9-1 Chart 对 象 的 常用 属性 





























要 引用 工作 短 中 的 图 表 工 作 表 ， 可 以 使 用 Charts 集合 或 Sheets 集合 ， 这 与 使 用 Worksheets 
0 果 活动 工作 短 中 存在 名 为 Chartl 和 Chart2 的 
以 使 用 以 下 几 种 方法 来 引 























作 短 中 的 活动 工作 表 , 那么 还 可 以 使 用 ActiveSheet 来 引 


的 对 象 类 型 ， 显 


[ 作 表 ,在 VBA 中 处 理 与 图 表 自 身 相 关 的 各 项 功能 所 使 用 的 都 








































































































属 性 说 明 
ChartArea 返回 一 个 表示 图 表 区 的 ChartArea 对 象 
ChartTitle 返回 一 个 表示 图 表 标题 的 ChartTitle 对 象 
ChartType 返回 或 设置 图 表 的 类 型 
HasAxis 返回 或 设置 图 表 的 坐标 轴 
HasLegend 返回 或 设置 图 例 的 显示 状态 
HasTitle 返回 或 设置 图 表 标题 的 显示 状态 
Legend 返回 一 个 表示 图 例 的 Legend 对 象 
Name 返回 或 设置 图 表 的 名 称 
PlotArea 返回 一 个 表示 绘图 区 的 PlotArea 对 象 
PlotBy 返回 或 设置 图 表 中 的 数据 的 行列 方向 
Visible 返回 或 设置 图 表 工 作 表 的 显示 或 隐藏 状态 

表 9-2 Chart 对 象 的 常用 方法 

大 说 ”了 明 
Activate 激活 图 表 ， 使 其 成 为 活动 图 表 
ApplyLayout 指定 图 表 的 默认 布局 
Axes 返回 图 表 上 的 坐标 轴 或 坐标 轴 集 合 


. 170 
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续 表 
力 二 大 说 了 明 
Copy 复制 图 表 
Delete 删除 图 表 
Export 将 图 表 导 出 为 指定 格式 的 图 片 
Location 移动 图 表 ， 在 嵌入 式 图 表 和 图 表 工 作 表 之 间 进 行 转换 
Move 移动 图 表 工 作 表 ， 可 以 在 工作 憩 内 移动 ， 也 可 以 将 其 移动 到 新 工作 簿 中 
Paste 将 剪贴 板 中 的 数据 粘贴 到 图 表 中 
SaveChartTemplate 创建 图 表 模 板 
SeriesCollection 返回 图 表 中 的 一 个 数据 系列 或 所 有 数据 系列 
SetBackgroundPicture 设置 图 表 的 背景 
SetElement 设置 图 表 中 的 图 表 元 素 
SetSourceData 设置 用 于 创建 图 表 的 数据 源 区 域 
9.2 创建 图 表 


本 节 将 介绍 在 VBA 中 创建 图 表 的 方法 ,还 介绍 了 在 创建 好 的 嵌入 式 图 表 和 图 表 工 作 表 之 间 

















9.2.1 ”创建 嵌入 式 图 表 








进行 转换 的 方法 。 使 用 VBA 处 理 图 表 的 更 多 内 容 将 在 9.3 节 进 行 介绍 。 


可 以 使 用 工作 表 的 ChartObjects 集合 的 Add 方法 , 或 Shapes 集合 的 AddChart 或 AddChart2 























方法 创建 嵌入 式 图 表 。 这 几 种 方法 的 主要 区 别 在 于 , ChartObjects 集合 的 Add 方法 只 能 使 用 Excel 


默认 的 图 表 类 型 创建 图 表 ， 不 能 选择 图 表 类 型 〈 如 柱 形 图 、 折 线 图 、 饼 图 等 ) ; Shapes 集合 的 
AddChart 方法 可 以 在 创建 图 表 时 指定 图 表 的 类 型 ;AddChart2 方法 比 AddChart 新 增 了 两 个 参数 。 
Shapes 集合 的 AddChart 方法 包含 5 个 参数 ， 语 法 格式 如 下 : 
AddChart (xlChartType, Left, Top, Width, Height) 
口 XIChartType: 可 选 ， 图 表 的 类 型 ， 该 参数 的 值 由 XIChartType 常量 提供 ， 见 表 9-3。 如 
果 省 略 该 参数 ， 则 使 用 Excel 默认 的 图 表 类 型 创建 图 表 。 
口 Left， 可 选 ， 图 表 的 左边 缘 与 工作 表 A 列 左 边缘 的 距离 ， 以 磅 为 单位 。 


























口 Top: 可 选 ， 图 表 的 上 边缘 与 工作 表 上 边缘 的 距离 ， 以 磅 为 单位 。 
口 Width: 可 选 ， 图 表 的 宽度 ， 以 磅 为 单位 。 








口 Height: 可 选 ， 图 表 的 高 度 ， 以 磅 为 和 


位 。 








Shapes 集合 的 AddChart2 方法 包含 7 个 参数 ， 语 法 格式 如 下 : 


AddChart (Style, XlChartType, Left, Top, Width, Height, NewLayout) 





AddChart2 方法 新 增 了 Style 和 NewLayout 两 个 参数 ，Style 参数 用 于 设置 图 表 的 样式 ， 图 


























表 样 式 的 更 多 内 容 将 在 9.3.4 节 介 绍 。 如 果 将 NewLayout 参数 设置 为 True， 则 使 用 新 的 动态 格 














式 规 则 创建 图 表 。 其 他 5 个 参数 的 含义 与 AddChart 方法 相同 。 


汪汪 人 
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表 9-3 XIChartType 常量 
































































































































































































































名 称 值 说 明 
xlColumnClustered 簇 状 柱 形 图 
xlColumnStacked 52 堆积 柱 形 
xlColumnStacked100 53 百分比 堆积 柱 形 图 
xl3DColumn -4100 三 维 柱 形 图 
xl3DColumnClustered 54 三 维 簇 状 柱 形 图 
xl3DColumnStacked = 维 堆 积 柱 形 图 
xl3DColumnStacked100 56 三 维 百分比 堆积 柱 形 图 
xlCylinderColClustered 92 簇 状 柱 形 圆 柱 图 
xlCylinderColStacked 93 堆积 柱 形 圆柱 图 
xlCylinderColStacked100 94 百分比 堆积 柱 形 圆柱 图 
xlCylinderCol 98 三 维 柱 形 圆柱 图 
xlConeColClustered | | 簇 状 柱 形 圆锥 图 
xlConeColStacked 100 堆积 柱 形 圆锥 图 
xlConeColStacked100 101 百分比 堆积 柱 形 圆锥 图 
xlConeCol 105 三 维 柱 形 圆 锥 图 
xlPyramidColClustered 106 簇 状 柱 形 棱锥 图 
xlPyramidColStacked 堆积 柱 形 棱锥 图 
xlPyramidColStacked100 | | 百分比 堆积 柱 形 棱锥 图 
xlPyramidCol 三 维 柱 形 棱锥 图 
xlBarClustered 簇 状 条 形 图 
Barstacked 维和 条 形 图 
xlBarStacked100 百分比 堆积 条 形 图 
xl3DBarClustered 60 三 维 簇 状 条 形 图 
xl3DBarStacked 61 三 维 堆积 条 形 图 
xl3DBarStacked100 62 三 维 百分比 堆积 条 形 图 
xlCylinderBarClustered 95 簇 状 条 形 圆柱 图 
xlCylinderBarStacked 96 堆积 条 形 圆柱 图 
xlCylinderBarStacked100 97 百分比 堆积 条 形 圆 柱 图 
xlConeBarClustered 102 簇 状 条 形 圆 锥 图 
xlConeBarStacked 103 堆积 条 形 圆锥 图 
xlConeBarStacked100 104 百分比 堆积 条 形 圆 锥 图 
xlPyramidBarClustered 109 簇 状 条 形 棱锥 图 
xlPyramidBarStacked 110 堆积 条 形 棱锥 











.172 。 

























































































































































































































































































第 9 章 使 用 Chart 和 ChartObject 对 象 处 理 图 表 
续 表 

名 称 值 说 ” 明 
xlPyramidBarStacked100 111 百分比 堆积 条 形 棱锥 图 
xlLine 4 折线 图 
xlLineMarkers 65 数据 点 折线 图 
xlLineMarkersStacked 66 堆积 数据 点 折线 图 
xlLineMarkersStacked100 67 百分比 堆积 数据 点 折线 图 
xlLineStacked 63 堆积 折线 图 
xlLineStacked100 百分比 堆积 折线 图 
xl3DLine -4101 三 维 折线 图 
XIXYScatter -4169 散 点 图 
XIXYScatterLines 74 折线 散 点 图 
XIXYScatterLinesNoMarkers 75 无 数据 点 折线 散 点 图 
XIXYScatterSmooth 平滑 线 散 点 图 
xlXYScatterSmoothNoMarkers 无 数据 点 平滑 线 散 点 图 
Pie 区 
xlPieExploded | ee | 分 离 型 饼 图 
ee | 
xlBarOfPie 复合 条 饼 图 
xl3DPie 三 维 饼 图 
xl3DPieExploded 分 离 型 三 维 饼 图 
Amea | | mm 
xlAreaStacked 76 堆积 面积 图 
xlAreaStacked100 77 百分比 堆积 面积 图 
xl3DArea -4098 三 维 面积 图 
xl3DAreaStacked 78 三 维 堆积 面积 图 
xl3DAreaStacked100 79 百分比 堆积 面积 图 
xlSurfaceTopView 85 面 图 (俯视 图 ) 
xlSurfaceTopViewWireframe 86 曲面 图 (俯视 线 框图 ) 
xlSurface 三 维 曲 面 图 
xlSurfaceWireframe 84 三 维 曲面 图 ( 线 框 ) 
xlDoughnut -4120 环 图 
xlDoughnutExploded 80 分 离 型 圆 环 图 
xlBubble 15 气泡 图 
xlBubble3DEffect 87 三 维 气泡 图 
xlRadar -4151 雷达 图 
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续 表 
名 称 说 ”了 明 
xlRadarFilled 填充 雷达 图 
xlRadarMarkers 数据 点 雷达 图 
xlStockHLC 盘 高 一 盘 低 一 收盘 图 
xlStockOHLC 开盘 一 盘 高 一 盘 低 一 收 
xlStockVHLC 成 交 量 一 盘 高 一 盘 低 一 收盘 图 
xlStockVOHLC 成 交 量 一 开盘 一 盘 高 一 盘 低 一 收盘 图 


案例 9-1 使 用 AddChart 方 法 创建 谋 入 式 图 表 























下 面 的 代码 在 Sheetl 工作 表 中 创建 了 一 个 嵌入 式 图表 ， 该 图 表 的 类 型 是 簇 状 条 形 图 ， 图 表 











位 于 F2:K15 单元 格 区 











为 图 表 指 定数 据 源 ， 因 














域 中 ， 图 表 的 大 小 与 该 区 域 等 大 。 创建 后 的 图 表 妇 
此 创建 的 图 表 一 片 空 

















Sub 使 用 AddChart 方法 创建 嵌入 式 图 表 () 
Dim shp As Shape 
Set shp = Worksheets ("Sheet1").Shapes.AddChart (xlBarClustered) 
With Range ("F2:K15") 

shp.Top = .Top 
shp.Left = .Left 
shp.Height = .Height 
shp.Width = .Width 


End With 
End Sub 





0 
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图 9-5 所 示 ， 由 于 没有 








创建 一 个 空白 








图 表 后 ， 需 要 为 图 表 指 定数 据 源 ， 这 样 才 能 将 数据 绘制 到 图 表 上 。 可 以 使 


图 9-5 创建 一 个 未 指定 数据 源 的 空白 图 表 



































Chart 对 象 的 SetSourceData 方法 为 图 表 指定 数据 源 ， 该 方法 包含 两 个 参数 ， 语 法 格式 如 下 : 


SetSourceData (Source, 


口 Source: 必 选 ， 图 表 使 


口 PlotBy: 可 选 ， 从 数据 源 


见 表 9-4。 


. 174 。 





PlotBy) 














元 格 区 域 。 





目的 数据 源 所 在 的 和 





的 哪个 方向 绘制 数据 系列 ， 该 参数 的 值 














XIRowCol 常量 提供 ， 
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表 9-4 XIRowCol 常量 








名 称 说 了 明 
xlRows 按 数据 源 的 行 绘制 数据 系列 
xlColumns 按 数据 源 的 列 绘制 数据 系列 





案例 9-2 使 用 SetSourceData 方法 为 图 表 设 置 数据 源 

下 面 的 代码 为 Sheetl 工作 表 中 的 嵌入 式 图 表 设 置 数据 源 所 在 的 单元 格 区 域 为 A1:D7。 本 例 
假设 该 工作 表 中 只 有 一 个 嵌入 式 图 表 ， 且 该 工作 表 是 上 一 个 案例 中 创建 的 空白 图 表 ， 可 以 

使 用 ChartObjects(1) 的 形式 引用 该 图 表 。Worksheets("Sheet1").ChartObjects(1).Chart 返回 的 是 一 

个 Chart 对 象 。 为 嵌入 式 图 表 设 置 数据 源 后 的 效果 如 图 9-6 所 示 , 由 于 在 上 一 个 案例 中 创建 图 表 

时 将 图 表 类 型 设置 为 xIBarClustered 〈 簇 状 条 形 图 ) ， 因 此 在 为 图 表 设 置 好 数据 源 之 后 ， 图 表 以 

簇 状 条 形 图 的 形式 呈现 数据 。 


Sub 使 用 SetSourceData 方法 为 图 表 设 置 数据 源 () 
Dim cht As Chart 
Set cht = Worksheets ("Sheet1") .ChartObjects (1) .Chart 
cht .SetSourceData Range("Al:D7") 



























































End Sub 
A B C D EE F G H 1 ] K 

1 北京 上 海 广州 

2 |] 月 859 949 655 

3 8 726 63, 24 | 

4 |3 月 813 876 722 

5 | 人 馈 980 660 693 有 BBS 

6 5 月 636 575 730 

7 46 月 874 970 756 钥 [一 广州 
8 

9 IE “ 
10 北京 
1 有 ER 一 
12 
13 1 
14 |. : : ， : | 
15 0 2 40 60 80 100 1200 
16 








图 9-6 为 图 表 设置 数据 源 


提示 : 如 果 创 建 图 表 之 前 ， 选 择 的 单元 格 位 于 数据 区 域 中 ， 则 在 创建 图 表 时 就 会 自动 使 用 
该 区 域 中 的 数据 作为 图 表 的 数据 源 。 

还 可 以 使 用 Shapes 集合 的 AddChart2 方法 创建 撕 入 式 图 表 ， 该 方法 与 AddChart 方法 类 似 ， 
只 是 多 了 两 个 用 于 指定 图 表 样式 和 布局 的 参数 。 

案例 9-3 ”使 用 AddChart2 方法 创建 说 入 式 图 表 ' 

下 面 的 代码 使 用 AddChart2 方法 创建 与 前 面 案例 中 类 似 的 嵌入 式 图 表 ， 并 使 用 图 表 样式 26 甸 
格式 化 图 表 外 观 ， 如 图 9-7 所 示 。 首 先 使 用 ChartObjects 集合 的 Delete 方法 删除 工作 表 中 可 能 
存在 的 嵌入 式 图 表 ， 如 果 不 存在 则 会 出 现 运行 时 错误 ， 因 此 需要 在 执行 Delete 方法 前 加 入 On 
Error Resume Next 语句 以 忽略 所 有 的 错误 。 接 着 使 用 AddChart2 方法 创建 簇 状 条 形 图 ， 使 用 图 
表 样 式 26 来 格式 化 图 表 ， 并 设置 图 表 的 位 置 。 然 后 使 用 Chart 对 象 的 SetSourceData 方法 为 图 
表 设 置 数据 源 ， 最 后 将 Chart 对 象 的 HasTitle 和 HasLegend 属性 都 设置 为 True 以 显示 图 表 标 题 
和 图 例 ， 并 使 用 ChartTitle 对 象 的 Text 属性 设置 图 表 的 标题 内 容 。 


Sub 使 用 AddChart2 方法 创建 嵌入 式 图 表 () 
Dim shp As Shape 
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On Error Resume Next 
Worksheets ("Sheet1") .ChartObjects .Delete 
On Error GoTo 0 
Set shp = Worksheets ("Sheet1") .Shapes .AddChart2 (Style:=26, XlChartType:=xlBarClustered) 
With Range ("F2:K15") 
shp .Top = .Top 
shp .Left = .Left 
shp.Height = .Height 
shp.Width = .Width 
End With 
With shp.Chart 
.SetSourceData Range ("R1:D7") 
.HasTitle = True 
.ChartTitle.Text = "各 地 区 销售 情况 " 
.HasLegend = True 








End With 
End Sub 

A B CcC D E F G H ] K 
北京 上 海 广州 
2 |1 月 859 949 655 
3 |2 月 748, 663 824 各 地 区 销售 情况 
4 |3 月 813 876 722 

组 80 550 S93 5 

6 |5 月 636 575 730 | 
7 6 月 874 970 756 5 月 央 和 2 | 
8 | 
S “有 = 广州 | 
10 = 上 海 | 
11 2 月 和 a 北京 | 
12 
13 = | 
TT 0 200 400 600 800 ”1000 1200 | 
16 








图 9-7 使 用 AddChart2 方法 创建 嵌入 式 图 表 


9.2.2 ”创建 图 表 工 作 表 


如 果 要 创建 图 表 工 作 表 ， 可 以 使 用 Charts 集合 的 Add 方法 或 Sheets 集合 的 Add 方法 ， 这 
两 个 集合 的 Add 方法 的 用 法 基本 相同 ， 只 有 第 4 参数 不 同 ， 语 法 格式 如 下 : 


Charts.Add (Before, After, Count, Type) 
Sheets.Add (Before, After, Count, Type) 


口 Before: 可 选 ， 将 新 建 的 图 表 工 作 表 放置 到 指定 的 工作 表 之 前 。 

口 After: 可 选 ， 将 新 建 的 图 表 工作 表 放 置 到 指定 的 工作 表 之 后 。 

口 Count: 可 选 ， 新 建 的 图 表 工 作 表 的 数量 ， 如 果 省 略 该 参数 ， 则 其 值 默认 为 1。 

口 Type: 可 选 ， 如 果 是 Charts 集合 的 Add 方法 的 Type 参数 ， 则 用 于 设置 新 建 的 图 表 工 作 
表 的 图 表 类 型 ， 该 参数 的 值 由 XIChartType 常量 提供 ; 如 果 是 Sheets 集合 的 Add 方法 的 
Type 参数 ， 则 用 于 设置 新 建 的 工作 表 的 类 型 ， 该 参数 的 值 由 XISheetType 常量 提供 ， 如 
果 要 创建 图 表 工作 表 ， 则 需要 将 该 参数 的 值 设置 为 xliChart， 并 且 使 用 Excel 默认 的 图 表 
类 型 。 

案例 9-4 使 用 Charts 集合 的 Add 方法 创建 图 表 工 作 表 

下 面 的 代码 使 用 Charts 集合 的 Add 方法 创建 一 个 图 表 工 作 表 ， 如 图 9-8 所 示 。 由 于 没有 为 

Add 方法 指定 Before 或 After 参数 , 因此 图 表 工 作 表 被 创建 在 活动 工作 表 的 左 侧 。 使 用 cht 变量 
存储 新 建 的 图 表 工作 表 , 然后 在 With 结构 中 设置 图 表 工 作 表 的 多 个 属性 和 方法 , 包括 ChartType 
(图 表 类 型 》、SetSourceData (图 表 数 据 源 ) 、 图 表 标 题 〈ChartTitle) 。 
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Sub 使 用 Charts 集合 的 Rdd 方法 创建 图 表 工作 表 () 
Dim cht As Chart, rngSource As Range 
Set rngSource = Worksheets ("Sheet1") .Range ("Al1:D7") 
Set cht = Charts.Add 
With cht 
.ChartType = xlBarClustered 
.SetSourceData rngSource, xlColumns 
.HasTitle = True 
.ChartTitle.Text = "各 地 区 销售 情况 " 








End With 
End Sub 
0 日 民 六 目光 ; 安全 9-4 - Excel 本 加 一 口 
开始 ”插入 页 面 布局 公式 数据 审阅 视图 开发 了 具 加载 项 QQ 告诉 我 你 碟 要 做 什么 
天 
各 地 区 销售 情况 
Ce or 
= 上 海 
ev 村 
Chart1 | Sheet1 9 





图 9-8 使 用 Charts 集合 的 Add 方法 创建 图 表 工 作 表 





9.2.3 ”在 嵌入 式 图 表 和 图 表 工作 表 之 间 转 换 


无 论 最 初创 建 的 是 符 入 式 图 表 还 是 图 表 工 作 表 ， 以 后 都 可 以 使 用 Chart 对 象 的 Location 方 
法 从 其 中 的 一 种 图 表 转换 为 男 一 种 图 表 。Location 方法 的 语法 格式 如 下 : 

Location (Where, Name) 

口 Where: 必 选 , 要 将 图 表 转 换 为 嵌入 式 图 表 还 是 图 表 工 作 表 , 该 参数 的 值 由 XIChartLocation 
常量 提供 ， 见 表 9-5。 

口 Name: 可 选 ， 如 果 将 Where 参数 的 值 设置 为 xlLocationAsNewSheet， 则 该 参数 表示 新 
建 的 图 表 工 作 表 的 名 称 ， 如 果 将 Where 参数 的 值 设 置 为 xlLocationAsObject， 则 该 参数 
将 变 为 必 选 参数 ， 且 为 包含 嵌入 式 图 表 的 工作 表 的 名 称 ， 该 工作 表 必 须 是 工作 钴 中 已 经 


















































存在 的 工作 表 。 
表 9-5 XIChartLocation 常量 
名 称 值 说 明 
xlLocationAsNewSheet 1 将 嵌入 式 图 表 转换 为 图 表 工 作 表 
xlLocationAsObject 2 将 图 表 工作 表 转 换 为 颈 入 式 图 表 
xlLocationAutomatic Excel 控制 图 表 的 位 置 
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案例 9-5 将 嵌入 式 图 表 转 换 为 图 表 工 作 表 





下 面 的 代码 将 活动 工作 短 中 Sheetl 工作 表 中 的 第 一 个 嵌入 式 图 表 转换 为 图 表 了 














该 图 表 工 作 表 的 了 


所 有 可 




















[ 作 表 ， 并 将 
[ 作 表 标签 的 名 称 设置 为 “上 半年 销售 情况 ”， 如 图 9-9 所 示 。 为 了 避免 引用 
的 嵌入 式 图 表 不 存在 或 工作 短 中 已 存在 同名 的 图 表 工作 表 ， 因 此 应 该 加 入 防 错 代码 。 首 先 忽略 




















发生 的 运行 时 错误 ， 之 后 检查 cht 变量 中 的 值 是 否 是 Nothing， 如 果 是 则 说 明 Set 语句 
并 没有 将 Chart 对 象 赋值 给 cht 变量 ， 这 就 意味 着 没有 成 功 引用 指定 的 嵌入 式 图 表 ， 换 句 话 说， 
指定 的 嵌入 式 图 表 并 不 存在 。 

Sub 将 嵌入 式 图 表 转 换 为 图 表 工 作 表 () 








Dim cht As Chart 
On Error Resume Next 
Set cht = Worksheets ("Sheet1") .ChartObjects (1) .Chart 
If cht Is Nothing Then 
MsgBox "指定 的 图 表 无 效 ! " 




















Exit Sub 

End If 

cht.Location xlLocationAsNewSheet，" 上 半年 销售 情况 " 
End Sub 

A B C D E F G H ] K EE 
1 北京 | 上 海 | 广州 
2 |] 月 859 949 655 
3 |2 月 748 663 824 各 地 区 销售 情况 | 
4 3 月 813 876 722 | 
5 4 月 380 560 593 5 
6 5 月 636 575 730 1 | 
7 6 月 874 970 756 5 月 EEE 
a | 
9| 钥 上 . | a 广州 
10| 3 月 RE | “上海 | 
| ee | 
12| 1 | 
13. 1 月 ER | 
14| rt i y 
15 0 200 400 600 800 1000 1200 
16| 

日 民 放 有 旧 疙 = 安 例 9-5 - Excel 3 有 加 一 0 x 


开始 插入 页 面 布局 公式 数据 审阅 视图 开发 I 具 加 载 项 Q 告诉 我 你 要 要 做 什么 





各 地 区 销售 情况 




















上 半年 销售 情况 | Sheet1 ® 可 
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图 9-9 将 嵌入 式 图 表 转换 为 图 表 工作 表 
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案例 9-6 ”将 图 表 工作 表 转 换 为 嵌入 式 图 表 
下 面 的 代码 将 活动 工作 敌 中 名 为 “< 上 半年 销售 情况 ”的 图 表 工 作 表 移动 到 Sheetl 工作 表 中 ， 
使 其 变 为 嵌入 式 图 表 。Charts.Location 返回 一 个 Chart 对 象 ,使 用 Parent 属性 返回 该 对 象 的 父 对 
象 ， 即 ChartObject 对 象 。 然 后 设置 ChartObject 对 象 的 Top、Left、Height 和 Width 属性 ， 以 确 
定 转换 后 的 嵌入 式 图 表 的 位 置 和 大 小 。 为 了 避免 指定 的 图 表 工 作 表 或 转换 到 的 目标 工作 表 不 存 
在 ， 因 此 加 入 了 防 错 代码 。 
Sub 将 图 表 工 作 表 转 换 为 谋 入 式 图 表 () 
Dim cho As ChartObject 
On Error Resume Next 
Set cho = Charts ("上 半年 销售 情况 ") .Location (xlLocationAsObject, "Sheet1") .Parent 
If Err.Number <> 0 Then 
MsgBox "指定 的 图 表 工 作 表 或 目标 工作 表 不 存在 ! " 
Exit Sub 
End If 
With Range ("F2:K15") 
cho.Top = .Top 
cho.Left = .Left 
cho.Height = .Height 
cho.Width = .Width 
End With 
End Sub 


9.2.4 将 所 有 岁入 式 图 表 转 换 为 图 表 工作 表 


如 果 一 个 工作 短 中 有 多 个 工作 表 ， 每 个 工作 表 中 包含 一 个 或 多 个 嵌入 式 图 表 ， 当 需要 将 所 
有 这 些 嵌 入 式 图 表 都 转换 为 图 表 工作 表 时， 手动 操 作 将 是 一 项 非常 耗 时 且 烦 琐 的 工作 ， 使 用 
VBA 则 可 以 快速 完成 。 

案例 9-7 ”将 所 有 嵌入 式 图 表 批 量 转换 为 图 表 工作 表 

下 面 的 代码 将 活动 工作 短 中 的 所 有 工作 表 中 的 所 有 嵌入 式 图 表 都 转换 为 图 表 工 作 表 。 转 换 
后 的 图 表 工 作 表 的 标签 使 用 转换 前 的 嵌入 式 图 表 中 的 图 表 标 题 命 名 。 使 用 内 外 两 层 典 套 的 For 
Each 循环 结构 ， 分 别 在 活动 工作 短 中 的 每 个 工作 表 中 ， 以 及 每 个 工作 表 中 的 嵌入 式 图 表 集合 中 
遍历 每 一 个 嵌入 式 图 表 。 通 过 嵌入 式 图 表 的 Chart 属性 返回 Chart 对 象 ， 然 后 通过 Chart 对 象 的 
ChartTitle.Text 属性 返回 图 表 的 标题 ， 并 将 标题 赋值 给 strTitle 变量 。 最 后 使 用 Chart 对 象 的 
Location 方法 将 肉 入 式 图 表 转 换 为 图 表 工 作 表 ， 并 以 每 个 图 表 标 题 的 名 称 对 转换 后 的 图 表 工 作 
表 命 名 。 

Sub 将 所 有 嵌入 式 图 表 转 换 为 图 表 工 作 表 () 


Dim wks As Worksheet, cho As ChartObject, strTitle As String 
For Each wks In Worksheets 
For Each cho In wks.ChartObjects 
strTitle = cho.Chart.ChartTitle.Text 
cho.Chart.Location xlLocationAsNewSheet, strTitle 
Next cho 
Next wks 
End Sub 







































































































































































9.3 设置 与 管理 图 表 


本 节 将 介绍 在 VBA 中 对 图 表 进 行 一 些 常规 性 设置 的 方法 , 包括 更 改 图 表 的 类 型 和 布局 、 使 
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图 表 样 式 更 改 图 表 的 外 观 、 设 置 图 表 的 数据 系列 和 数据 标签 等 内 容 ， 最 后 还 介绍 了 设置 所 有 
入 式 图 表 的 大 小 以 及 删除 图 片 的 方法 。 


9.3.1 更 改 图 表 类 型 


创建 图 表 后 ， 可 以 使 用 Chart 对 象 的 ChartType 属性 更 改 图 表 的 类 型 ， 该 属性 的 值 
XIChartType 常量 提供 ， 具 体 可 参考 表 9-3。 下 面 的 代码 将 活动 工作 表 中 的 第 一 个 肉 入 式 图 表 
的 图 表 类 型 改 为 带 数据 标记 的 折线 图 。 如 果 活 动工 作 表 中 不 存在 嵌入 式 图 表 ， 则 会 出 现 运行 
时 错误 。 


RActiveSheet.ChartObjects (1) .Chart.ChartTyYPe = xlLineMarkers 


如 9.3.2 ”选择 预 置 的 图 表 布 局 


图 表 布 局 是 指 图 表 中 的 各 个 元 素 在 图 表 中 的 显示 状态 和 排列 位 置 。 Excel 预 置 了 一 些 图 表 布 
局 ， 可 以 从 中 选择 以 便 快速 获得 图 表 元 素 的 不 同 组 合 方式 。 不 同类 型 的 图 表 拥有 不 同 数量 的 布 
局 ， 比 如 簇 状 柱 形 图 包含 11 种 布局 ， 簇 状 条 形 图 包含 10 种 布局 。 

在 VBA 中 ， 可 以 使 用 Chart 对 象 的 ApplyLayout 方法 为 图 表 选 择 Excel 预 置 的 图 表 布 
ApplyLayonut 方法 包含 两 个 参数 ， 语 法 格式 如 下 : 

ApplyLayout (Layout, ChartType) 

口 Layout: 必 选 ， 要 使 用 的 布局 ， 使 用 数字 1 一 12 表示 不 同 的 布局 。 

口 ChartType: 可 选 , 包含 要 使 用 的 布局 所 属 的 图 表 类 型 ， 该 参数 的 值 由 XIChartType 常量 

提供 ， 见 表 9-3。 

下 面 的 代码 为 活动 图 表 设 置 默认 布局 中 的 第 2 个 布局 ， 假 设 该 图 表 的 图 表 类 型 是 艇 状 柱 形 
图 。 该 布局 包含 图 表 标 题 、 图 例 、 数 据 标签 ， 图 例 位 于 图 表 标题 的 下 方 ， 数 据 标签 位 于 数据 系 
列 每 个 柱 形 条 的 顶部 ， 在 图 表 中 不 显示 纵 坐标 轴 和 网 格 线 ， 如 图 9-10 所 示 。 


ActiveChart .ApplyLayout 2 







































































可 
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| ] 月 2 月 3 月 

图 9-10 簇 状 柱 形 图 的 第 2 个 布局 

于 可 用 的 布局 数量 由 图 表 类 型 决定 , 如 果 在 VBA 中 设置 的 布局 编号 大 于 当前 图 表 类 型 所 
拥有 的 最 大 布局 数 ， 则 会 出 现 运行 时 错误 。 因 此 ， 在 设置 图 表 布 局 时 ， 应 该 加 入 防 错 代 码 ， 当 
所 选 布局 不 存在 时 可 以 向 用 户 发 出 提示 信息 。 
案例 9-8 为 图 表 设 置 Excel 预 置 的 图 表 布 局 
下 面 的 代码 根据 用 户 输入 的 数字 来 为 图 表 设 置 相 应 的 图 表 布 局 ， 如 果 没 有 与 输入 的 数字 对 


应 的 图 表 布局 ， 则 会 向 用 户 发 出 提示 信息 。 将 用 户 输入 的 内 容 存储 在 strLayout 变量 中 ， 然 后 使 
VBA 的 内 置 函数 ISNumeric 检查 该 变量 中 的 值 是 否 是 有 效 的 数字 ， 如 果 是 则 使 用 Chart 对 象 
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的 ApplyLayonut 方法 为 活动 图 表 选 择 与 用 户 输入 的 数字 对 应 的 图 表 布 局 。Cint 函数 用 于 将 数据 
显 式 转换 为 整 型 值 ， 也 可 以 不 使 用 该 函数 而 让 VBA 自动 完成 类 型 转换 。 如 果 出 现 运行 时 错误 ， 
则 说 明 没有 与 输入 的 数字 对 应 的 图 表 布 局 。 运 行 本 例 代 码 之 前 ， 需 要 先 选择 一 个 图 表 以 使 其 成 
为 活动 图 表 ， 否 则 即使 输入 了 正确 的 数字 ， 也 会 显示 提示 信息 。 
Sub 选择 预 置 的 图 表 布 局 () 
Dim strLayout As String 
strLayout = InputBox ("请 输入 表示 图 表 布 局 的 编号 : ") 
If IsNumeric(strLayout) Then 
On Error Resume Next 
ActiveChart.ApplyLayout CInt (strLayout) 
If Err.Number <> 0 Then 
MsgBox "选择 的 图 表 布局 不 存在 ! " 
Exit Sub 
End If 
End If 
End Sub 


9.3.3” 自 定义 设置 图 表 布 局 

大 家 有 可 能 会 觉得 Excel 预 置 的 布局 并 不 能 满足 实际 需要 ， 为 此 可 以 自 定义 设置 图 表 中 显示 的 
元 素 以 及 它们 在 图 表 中 的 位 置 。 在 VBA 中 ， 可 以 使 用 Chart 对 象 的 SetElement 方法 自 定义 设置 图 
表 的 布局 。 该 方法 只 有 一 个 参数 ， 用 于 指定 要 设置 的 图 表 元 素 的 类 型 及 其 显示 方式 。SetElement 方 
法 中 的 参数 的 值 由 MsoChartElementType 常量 提供 ， 表 9-6 列 出 了 部 分 常用 的 常量 值 。 


表 9-6 MsoChartElementType 常量 























































































































名 称 说 明 
ImsoElementChartTitleNone 不 显示 图 表 标 题 
msoElementChartTitleCenteredOverlay 将 标题 显示 为 居中 覆盖 
msoElementChartTitleAboveChart 在 图 表 上 方 显 示 标题 
msoElementLegendNone 不 显示 图 例 
msoElementLegendRight 在 右 侧 显 示 图 例 
msoElementLegendTop 在 顶部 显示 图 例 
msoElementLegendLeft 在 左 侧 显 示 图 例 
msoElementLegendBottom 在 底部 显示 图 例 
msoElementLegendRightOverlay 在 右 侧 县 放 图 例 
msoElementLegendLeftOverlay 在 左 侧 县 放 图 例 
msoElementDataLabelNone 不 显示 数据 标签 
msoElementDataLabelShow 显示 数据 标签 
msoElementDataLabelCenter 居中 显示 数据 标签 
msoElementDataLabelInsideEnd 在 顶端 内 侧 显示 数据 标签 
msoElementDataLabelInsideBase 在 底 端 内 侧 显 示 数 据 标签 
msoElementDataLabelOutSideEnd 在 顶端 外 侧 显示 数据 标签 
msoElementDataLabelLeft 靠 左 显示 数据 标签 
msoElementDataLabelRight 靠 右 显示 数据 标签 
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续 表 

名 称 说 明 
msoElementDataLabelTop 在 顶部 显示 数据 标签 
msoElementDataLabelBottom 在 底部 显示 数据 标签 
msoElementDataLabelBestFit 使 用 数据 标签 最 佳 位 置 
msoElementPrimaryCategoryAxisNone 不 显示 主 分 类 轴 
msoElementPrimaryCategoryAxisShow 显示 主 分 类 轴 
msoElementPrimaryCategoryAxisWithoutLabels 无 标签 显示 主 分 类 轴 
msoElementPrimaryValueAxisNone 不 显示 主 数值 轴 
msoElementPrimaryValueAxisShow 显示 主 数值 轴 
msoElementSeriesAxisNone 不 显示 系列 轴 
msoElementSeriesAxisShow 显示 系列 轴 
msoElementPlotAreaNone 不 显示 绘图 区 
msoElementPlotAreaShow 显示 绘图 区 




















可 以 在 对 象 浏览 器 中 查看 MsoChartElementType 常量 包含 的 所 有 值 。 按 F2 键 打 开 对 象 浏览 





器 ， 在 “工程 / 库 ” 列 表 框 中 选择 “所 有 户 
在 右 侧 的 列表 框 中 将 会 显示 MsoChartElementType 常量 包含 的 所 有 值 ， 如 图 9-11 所 示 。 























”， 在 下 方 的 类 列表 中 选择 MsoChartElementType， 





各 对 全 浏 晤 器 





《所 有 库 > 











类 


gpP MsoBroadoastState 
gp MsoBulletType 

gpP MsoButtonSetType 
ep MsoButtonState 

ep MsoButtonStyle 

aP MsoCallouthngleType 
gP MsoCalloutDropType 
gp MsoCalloutType 

gpP MsoCharacterSet 
Ms oChar thlenentT ,pe | 
gp JsoChartPieldType 
PP Msoclipboar dF ornat 
gp MsoColorType 

gP MsoConboStyle 











[se 
了 ] |’| mls ®| 
-| 得 | > 
"soCher tlenentType 的 成 员 
A | nsoFlenentChartFloorlone 


国 msoBlenentChartFloorShow 
国 nsoBlenentChartTitleAboveChart 
国 mseElenentChartTitleCentered0verlay 
国 msoElenentChartTitleNone 
国 msoklementChart¥alllione 
国 nsoFlenentChar tHallShow 
国 mseElenentDataLabelBestFit 
国 mseElenentDataLabelBottom 
国 mseElenentDataLabelCallout 
国 mseElenentDataLabelCenter 
国 msoElenentDataLabelInsideBase 
国 mseElenentDataLabelInsideEnd 
Y | 回 wsoElementDataLabelLeft v 











Enun MsoChar tElenentType 


0ffiee 的 成 员 





图 9-11 在 对 象 浏览 器 中 查看 MsoChartElementType 常量 包含 的 所 有 值 


案例 9-9 将 图 例 移动 到 图 表 标 题 下 方 
下 面 的 代码 将 活动 工作 表 中 的 第 一 个 嵌入 式 图 表 中 的 图 例 由 图 表 右 侧 的 默认 位 置 移动 到 图 
表 顶 部 ， 位 于 图 表 标 题 下 方 的 位 置 ， 如 图 9-12 所 示 。 























Sub 自 定义 设置 图 表 布 局 () 





If ActiveChart Is Nothing Then 


MsgBox "当前 未 选中 任何 图 表 ! " 


Exit Sub 
End If 


ActiveChart.SetElement msoElementLegendTop 


End Sub 
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图 9-12 自 定义 设置 图 表 布局 


9.3.4 选择 预 置 的 图 表 样 式 


为 了 快速 改变 图 表 的 外 观 ， 可 以 为 图 表 选 择 一 种 Excel 预 置 的 图 表 样 式 。 图 表 样 式 包括 对 
图 表 元 素 的 配色 、 边 框 样式 以 及 发 光 、 阴 影 等 特殊 效果 的 格式 设置 组 合 。 

在 VBA 中 ， 可 以 使 用 Chart 对 象 的 ChartStyle 属性 为 图 表 选 择 Excel 预 置 的 图 表 样 式 。 与 
Excel 预 置 的 图 表 布局 类 似 ， 预 置 的 图 表 样 式 采用 数字 1 一 48 的 编号 方式 ， 分 别 对 应 于 48 种 预 
置 的 图 表 样式 。 


案例 9-10 ”使 用 Excel 预 置 的 图 表 样 式 格式 化 图 表 
下 面 的 代码 根据 用 户 输入 的 数字 来 为 图 表 设 置 相应 的 图 表 样 式 ， 如 图 9-13 所 示 。 如 果 没 有 
与 输入 的 数字 对 应 的 图 表 样 式 ， 则 会 向 用 户 发 出 提示 信息 。 运 行 本 例 代码 之 前 ， 需 要 先 选 择 一 
个 图 表 以 使 其 成 为 活动 图 表 ， 否 则 即使 输入 了 正确 的 数字 ， 也 会 显示 提示 信息 。 
Sub 选择 预 置 的 图 表 样式 () 
Dim strStyle Rs String 
strStyle = InputBox (" 请 输入 表示 图 表 样 式 的 编号 : ") 
If IsSNumeric (strStyle) Then 
On Error Resume Next 


RActiveCchart .ChartStyle = CInt(strStyle) 
If Err.Number <> 0 Then 


MsgBox "选择 的 图 表 样 式 不 存在 ! " 

































































Exit Sub 
End If 
End If 
End Sub 
第 1 季度 销售 情况 
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图 9-13 为 图 表 设 置 指定 的 图 表 样式 
9.3.5 自 定义 设置 图 表格 式 
使 用 预 置 的 图 表 样 式 虽然 可 以 快速 改变 图 表 的 外 观 ， 但 是 在 很 多 情况 下 可 能 并 不 符合 图 表 


ls 


Excel VBA 编程 实战 宝典 








格式 上 的 要 求 。 可 以 根据 实际 需求 对 图 表 中 的 各 个 元 素 的 格式 进行 自 定义 设置 。 图 表 元 素 的 格 


式 主 要 包括 以 下 几 种。 








口 填充 : 设置 图 表 元 素 的 填充 色 。 











口 边框 : 设置 图 表 元 素 的 边框 。 





口 特殊 效果 : 设置 发 光 、 阴 影 、 边 缘 、 三 维 等 格式 。 








在 VBA 中 ， 可 以 使 用 ChartFormat 对 象 的 不 同属 性 设置 图 表 元 素 的 不 同 格式 ， 表 9-7 列 出 
了 ChartFormat 对 象 的 不 同属 性 所 负责 设置 的 格式 。 可 以 使 用 表示 图 表 元 素 的 对 象 的 Format 属 
性 返回 ChartFormat 对 象 ， 比 如 使 用 Chart 对 象 的 ChartTitle 属性 返回 ChartTitle 对 象 , 然后 使 用 
































ChartTitle 对 象 的 Format 属性 返回 ChartFormat 对 象 。 





表 9-7 ”用 于 设置 图 表 元 素 格式 的 ChartFormat 对 象 的 属性 





属 性 
Fill 
Glow 
Line 
PictureFormat 
Shadow 
SoftEdge 
TextFrame2 


ThreeD 








看 以 设置 绘图 


























使 月 
使 有 


使 用 


使 有 


使 用 


使 有 


使 用 


使 月 


说 明 
由 Fil 属性 返回 的 FilFormat 对 象 设置 填充 格式 
由 Glow 属性 返回 的 GlowFormat 对 象 设置 发 光 格式 
由 Line 属性 返回 的 LineFormat 对 象 设置 边框 格式 
由 PictureFormat 属性 返回 的 PictureFormat 对 象 设置 图 片 格式 
由 Shadow 属性 返回 的 ShadowFormat 对 象 设置 阴影 格式 
由 SoftEdge 属性 返回 的 SoftEdgeFormat 对 象 设置 边缘 格式 
由 TextFrame2 属性 返回 的 TextFrame2 对 象 设置 文本 格式 


























由 ThreeD 属性 返回 的 ThreeDFormat 对 象 设置 三 维 格式 


区 的 格式 为 例 ， 介 绍 设置 图 表 元 素 格式 的 方法 。 
案例 9-11 将 绘图 区 的 背景 设置 为 灰色 
下 面 的 代码 将 活动 图 表 中 的 绘图 区 的 背景 设置 为 灰色 ， 并 将 填充 色 的 透明 度 设 置 为 50%， 





效果 如 图 9-14 所 示 。 本 例 使 用 VBA 的 内 置 函 数 RGB 指定 一 种 颜色 , 该 函数 包含 3 个 表示 颜色 
分 量 的 参数 , 对 应 于 红 、 绿 、 蓝 。FillFormat 对 象 的 Transparency 属性 用 于 设置 填充 色 的 透明 度 ， 
取 值 为 0~1， 表 示 由 透明 到 不 透明 ， 本 例 中 的 透明 度 50% 即 为 0.5。 
Sub 将 绘图 区 的 背景 设置 为 灰色 () 
With ActiveChart.PlotArea.Format .Fil1l 


.ForeColor.RGB = RGB(200, 200, 200) 
.Transparency = 0.5 





End With 
End Sub 


.184 。 
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9-14 ”将 绘图 区 的 背景 设置 为 灰色 
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案例 9-12 ”将 图 片 设置 为 绘图 区 的 背景 


下 面 的 代码 将 包含 该 代码 的 工作 敌 所 在 路 径 中 名 为 “图 表 背 景 ”的 图 片 设置 为 活动 图 表 的 

绘图 区 的 背景 ， 如 图 9-15 所 示 。FillFormat 对 象 的 UserPicture 方法 用 于 将 图 片 设置 为 绘图 区 的 

背景 ， 该 方法 只 有 一 个 参数 ， 用 于 指定 要 使 用 的 图 片 的 路 径 和 名 称 。 
Sub 将 图 片 设置 为 绘图 区 的 背景 () 


Dim strPic As String 
On Error Resume Next 


strPic = ThisWorkbook.Path & "\" & "图 表 背 景 .jpg" 


ActiveChart .PlotArea.Format .Fill.UserPicture strPic 
End Sub 
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图 9-15 用 图 片 作为 填充 介质 
案例 9-13 ”设置 绘图 区 的 边框 


下 面 的 代码 将 活动 图 表 的 绘图 区 的 边框 设置 为 虚线 ， 如 图 9-16 所 示 。 由 于 图 表 中 显示 了 数 
值 轴 的 网 格 线 , 为 了 让 绘图 区 的 边框 更 清晰 , 因此 使 用 SetElement 方法 隐藏 了 数值 轴 的 网 格 线 。 


然后 使 用 LineFormat 对 象 的 DashStyle 属性 设置 边框 的 线 型 为 虚线 ,再 将 该 对 象 的 Visible 属性 
设置 为 True 使 边框 显示 出 来 。 


Sub 设置 绘图 区 的 边框 () 
With ActiveChart 
.SetElement msoElementPrimaryValueGridLinesNone 
With .PlotArea.Format.Line 
.DashStyle = msoLineDash 
.Visible = True 





























End With 
End With 
End Sub 
第 1 季度 销售 情况 
1200 TT-------- 
1000 -| 
疯 北京 
sl = 上 海 
wl = 广州 
200 -| 
0 
1 明 2 月 3 月 














图 9-16 设置 绘图 区 的 边框 











9.3.6 ”编辑 图 表 的 数据 系列 
如 图 9-17 所 示 中 的 图 表 的 数据 源 包含 单元 格 




















区 





域 中 的 所 有 数据 。 如 果 希 望 图 表 中 只 包含 北 
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京 、 上 海 、 广 州 的 销售 数据 ， 则 可 以 使 用 两 种 方法 : 一 种 方法 是 使 用 所 需 的 数据 区 域 重新 创建 
图 表 ， 另 一 种 方法 是 对 现 有 图 表 的 数据 系列 进行 编辑 。 
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9-17 图 表 的 数据 源 包 含 数据 区 域 中 的 所 有 数据 


案例 9-14 ”使 用 不 连续 的 数据 区 域 创建 图 表 
下 面 的 代码 创建 如 图 9-18 所 示 的 图 表 ， 图 表 的 数据 源 使 用 了 3 个 不 连续 的 单元 格 区 域 
Al:D2、A4:D4 和 A6:D6。 由 于 北京 、 上 海 、 广 州 3 个 地 区 的 数据 位 于 不 连续 的 单元 格 区 域 中 ， 
因此 需要 使 用 Application 对 象 的 Union 方法 将 3 个 独立 区 域 以 及 分 类 轴 (水 平 轴 ) 所 在 的 区 域 
合并 为 一 个 整体 , 然后 在 创建 图 表 时 使 用 Chart 对 象 的 SetSource 方法 将 合并 后 的 数据 区 域 指定 
为 图 表 的 数据 源 。 
Sub 使 用 不 连续 的 数据 区 域 创建 图 表 () 
Dim rngl As Range, rng2 As Range, rng3 As Range 
Dim rngSource As Range, shp As Shape 
Set rngl = Range ("Al:D2") 
Set rng2 = Range ("A4:D4") 
Set rng3 = Range ("A6:D6") 
Set rngSource = Application.Union(rngl, rng2, rng3) 
Set shp = ActiveSheet.Shapes.AddChart 
With Range ("M2:R15") 
shp.Top = .Top 
shp.Left = .Left 
shp.Height = .Height 
shp.Width = .Width 
End With 
With shp.Chart 
.SetSourceData rngSource, xlRows 
.ChartType = xlColumnClustered 
.SetElement msoEglementChartTitleAboveChart 


.ChartTitle.Text = "第 1 季度 部 分 地 区 销售 情况 " 
























































End With 
End Sub 
第 1 季度 部 分 地 区 销售 情况 
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图 9-18 使 用 不 连续 的 数据 区 域 创建 图 表 
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如 果 只 想 修改 图 表 而 不 是 重新 创建 图 表 ， 则 可 以 使 用 Series 对 象 编辑 特定 的 数据 系列 。 
Series 对 象 表示 一 个 数据 系列 ， 图 表 中 的 所 有 数据 系列 组 成 了 SeriesCollection 集合 。Series 对 象 
的 Values 属性 用 于 指定 图 表 的 数据 系列 ， 该 对 象 的 XValues 属性 用 于 指定 图 表 的 分 类 轴 信 息 。 

对 于 上 一 个 案例 来 说 ， 由 于 图 表 中 包含 6 个 地 区 的 数据 ， 如 果 只 想 在 图 表 中 显示 其 中 3 个 
地 区 的 数据 ， 则 可 以 将 另外 3 个 地 区 的 数据 从 图 表 中 删除 。 与 从 其 他 集合 中 引用 特定 对 象 的 方 
法 类 似 ， 可 以 使 用 数据 系列 的 索引 号 或 名 称 从 SeriesCollection 集合 中 引用 指定 的 数据 系列 ， 之 
后 就 可 以 使 用 Series 对 象 的 Delete 方法 删除 指定 的 数据 系列 。 下 面 的 代码 将 名 为 “沈阳 ”的 数 
据 系 列 从 活动 图 表 中 删除 。 


RctiveChart.SeriesCollection(" 沈 阳 ") .delete 


案例 9-15 使 用 Series 对 象 删除 图 表 中 的 多 个 数据 系列 
下 面 的 代码 删除 如 图 9-19 所 示 的 图 表 中 的 “天 津 ” “沈阳 ”“ 成 都 ”3 个 数据 系列 ， 从 而 站 
实现 与 上 一 个 案例 相同 的 效果 。 通 过 SeriesCollection 集合 的 Count 属性 获得 图 表 中 包含 的 数据 
系列 总 数 ， 然 后 在 For Next 循环 中 从 最 后 一 个 数据 系列 开始 每 隔 两 个 删除 一 个 数据 系列 ， 即 删 
除 第 6 个 、 第 4 个 和 第 2 个 数据 系列 ， 从 而 将 第 5 个 、 第 3 个 和 第 1 个 数据 系列 保留 下 来 。 如 
果 从 最 小 的 编号 开始 删除 数据 系列 ， 位 于 后 面 的 数据 系列 的 最 初 编号 会 在 删除 过 程 中 改变 ， 从 
而 导致 无 法 引用 特定 编号 的 数据 系列 的 运行 时 错误 。 
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图 9-19 一 次 性 删除 多 个 数据 系列 
Sub 使 用 Series 对 象 删除 图 表 中 的 多 个 数据 系列 () 


Dim intCount As Integer, sc Rs SeriesCollection 
Set sc = ActiveChart.SeriesCollection 
For intCount = sc.Count To 2 Step -2 
sc (intCount) .Delete 
Next intCount 


End Sub 

如 果 要 删除 的 数据 系列 的 编号 不 像 上 一 个 案例 那样 呈 规 律 性 变化 ， 则 可 以 使 用 Array 函数 
为 要 删除 的 数据 系列 的 名 称 创建 一 个 数组 ， 然 后 使 用 For Next 循环 结构 进行 删除 。 

案例 9-16 ”删除 编号 无 规律 的 多 个 数据 系列 

下 面 的 代码 删除 前 面 案例 中 的 “天 津 ”“ 上 海 ”“ 广 州 ”“ 成 都 ”这 4 个 数据 系列 ， 它 介 
的 编号 分 别 是 2、3、5、6， 这 些 数 据 系列 不 完全 连续 且 编 号 无 规律 。 将 Array 函数 创建 的 由 数 
据 系 列 名 称 组 成 的 数组 赋值 给 varName 变量 从 而 创建 一 个 数组 ， 然 后 使 用 VBA 的 内 置 函数 
LBound 和 UBound 获取 数组 的 下 界 和 上 界 ， 从 而 可 以 回避 模块 顶部 的 Option Base 语句 所 限定 


的 数组 下 界 。 之 后 使 用 SeriesCollection 集合 通过 遍历 数组 中 每 一 个 元 素来 删除 指定 名 称 的 数据 
系列 ， 如 图 9-20 所 示 。 
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Sub 删除 编号 无 规律 的 多 个 数据 系列 () 
Dim intIndex As Integer, varName As Variant 
varName = Array ("天 津 "，" 上 海 "，" 广 州 "，" 成 都 ") 
For intIndex = LBound (varName) To UBound (varName) 
ActiveChart.SeriesCollection (varName (intIndex) ) .Delete 
Next intIndex 
End Sub 
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图 9-20 删除 编号 无 规律 的 多 个 数据 系列 


9.3.7 ”将 指定 内 容 设置 为 图 表 的 数据 标签 


在 Excel 图 表 中 可 以 很 容易 地 为 一 个 数据 系列 或 所 有 数据 系列 添加 数据 标签 。 默认 情况 下 ， 
数据 标签 的 内 容 是 数据 系列 中 各 个 数据 点 的 值 。 有 时 可 能 希望 使 用 一 组 特定 的 内 容 代替 数据 标 
签 的 默认 值 ， 使 用 VBA 进行 批量 编辑 比 逐 一 手动 修改 效率 更 高 。 

在 如 图 9-21 所 示 的 图 表 中 显示 了 上 半年 每 个 月 销量 最 高 的 地 区 , 图 表 中 的 数据 标签 显示 的 
是 销量 ， 现 在 希望 使 用 B2:B7 单元 格 区 域 中 的 地 区 名 称 蔡 换 销量 。 

















图 9-21 数据 标签 默认 显示 数据 点 的 值 
案例 9-17 自 定义 图 表 的 数据 标签 

















下 面 的 代码 使 用 B2:B7 单元 格 区 域 中 的 地 区 名 称 代替 数据 标签 中 的 销量 ， 如 图 9-22 所 示 。 
首先 将 活动 工作 表 中 的 第 1 个 嵌入 式 图 表 赋值 给 cht 变量 ， 然 后 将 图 表 中 的 第 1 个 数据 系列 赋 
值 给 ser 对 象 变量 。 将 Series 对 象 的 HasDataLabels 属性 设置 为 True 以 显示 数据 标签 ， 之 后 在 
For Each 循环 结构 中 遍历 数据 系列 中 的 每 一 个 数据 点 ， 将 每 个 数据 点 的 数据 标签 设置 为 B2:B7 
单元 格 区 域 中 的 内 容 。 使 用 intIndex 变量 存储 当前 循环 的 次 数 ， 也 就 是 当前 正在 处 理 的 是 第 几 
个 数据 点 ， 并 将 该 变量 作为 从 B2:B7 单元 格 区 域 中 引用 指定 单元 格 的 索引 号 ， 从 而 可 以 确保 将 
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B2:B7 单元 格 区 域 中 指定 单元 格 的 内 容 与 指定 的 数据 点 正确 对 应 上 。 
Sub 将 指定 内 容 设置 为 图 表 的 数据 标签 () 


Dim cht As Chart，intIndex As Integer 
Dim ser As Series, poi As Point 
Set cht = ActiveSheet .ChartObjects (1) .Chart 
Set ser = cht.SeriesCollection(1) 
ser.HasDataLabels = True 
For Each poi In ser.Points 
intIndex = intIndex + 1 
poi.DataLabel.Text = Range("B2:B7") .Cells (intIndex) .Value 








Next poi 
End Sub 
A B D F G H ] K 

1 时 间 地 区 销量 
2 1 月 北京 353 
3 2 月 天 津 176 
4 13 月 上 371 Soo 
5 4 月 沈阳 377 50 
6 |5 月 广州 459 400 

6 月 成 都 276 350 
8 300 
9 250 
10 200 
11 150 
12 100 
13 过 
14 1 2 4 月 5 
15 
16 








图 9-22 将 指定 内 容 设置 为 图 表 的 数据 标签 


9.3.8 ”设置 所 有 肉 入 式 图 表 的 大 小 


当 工 作 表 中 存在 多 个 嵌入 式 图 表 时 ,为 了 整齐 美观 ， 可 能 希望 将 所 有 图 表 设 置 为 相同 大 小 。 
可 以 使 用 VBA 快速 精确 地 将 所 有 图 表 设 置 为 指定 大 小 ， 也 可 以 以 某 个 图 表 的 大 小 为 基准 ， 将 
其 他 图 表 都 设置 为 与 该 图 表 等 大 。 使 用 ChartObject 对 象 的 Width 和 Height 属性 可 以 设置 嵌入 式 
图 表 的 宽度 和 高 度 。 

案例 9-18 将 所 有 诸 入 式 图 表 设 置 为 相同 大 小 

下 面 的 代码 将 活动 工作 表 中 的 所 有 钳 入 式 图 表 的 宽度 设置 为 10 厘米 ， 将 高 度 设置 为 6 厘米 。 
在 For Each 循环 结构 中 遍历 活动 工作 表 中 的 所 有 图 形 对 象 ， 使 用 Shape 对 象 的 Type 属性 检查 图 
形 对 象 是 否 是 图 表 ， 如 果 是 则 为 其 设置 大 小 。 为 了 防止 图 表 的 宽度 和 高 度 处 于 锁定 状态 ， 因 此 将 
Shape 对 象 的 属性 LockAspectRatio 设置 为 False 以 解除 锁定 。 由 于 Width 和 Height 属性 接 
受 的 是 磅 值 ， 因 此 使 用 Application 对 象 的 CentimetersToPoints 方法 将 输入 的 厘米 值 转换 为 
磅 值 。 

Sub 将 所 有 嵌入 式 图 表 设置 为 相同 大 小 () 


Dim shp As Shape 
For Each shp In ActiveSheet.Shapes 
If shp.Type = msoChart Then 
shp.LockAspectRatio = False 
shp.Width = Application.CentimetersToPoints (10) 
shp.Height = Application.CentimetersToPoints (6) 
End If 
Next shp 
End Sub 
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案例 9-19 ”将 所 有 嵌入 式 图 表 的 大 小 设置 为 与 活动 图 表 等 大 
下 面 的 代码 以 活动 图 表 的 大 小 为 基准 ， 将 同一 个 工作 表 中 的 其 他 嵌入 式 图 表 的 大 小 设置 为 
与 该 活动 图 表 等 大 。 运 行 代码 之 前 ， 需 要 先 选择 一 个 图 表 以 使 其 成 为 活动 图 表 。 
Sub 将 所 有 嵌入 式 图 表 的 大 小 设置 为 与 活动 图 表 等 大 () 
Dim shp As Shape, dblWidth As Double, dblHeight As Double 
If ActiveChart Is Nothing Then 
MsgBox "当前 没有 活动 图 表 ! " 
Exit Sub 
End If 
dblWidth = ActiveChart.Parent .Width 
dblHeight = ActiveChart.Parent.Height 
For Each shp In ActiveSheet.Shapes 
If shp.Type = msoChart Then 
shp.LockAspectRatio = False 
shp.Width = dblwidth 
shp.Height = dblHeight 
End If 
Next shp 
End Sub 


9.3.9 删除 图 表 


如 果 一 个 工作 短 包 含 多 个 工作 表 ， 每 个 工作 表 又 包含 多 个 嵌入 式 图 表 ， 当 希望 删除 工作 短 
中 的 所 有 嵌入 式 图 表 时 ， 手 动 删除 不 但 效率 低 ， 而 且 还 很 容易 出 现 遗 漏 ， 使 用 VBA 可 以 快速 
完成 删除 操作 。 


案例 9-20 ”删除 工作 秒 中 的 所 有 赃 入 式 图 表 
下 面 的 代码 删除 活动 工作 短 中 的 所 有 嵌入 式 图 表 ， 在 For Each 循环 结构 中 遍历 工作 簿 中 的 
每 一 个 工作 表 ，, 然后 使 用 Worksheet 对 象 的 ChartObjects 方法 返回 ChartObjects 集合 ， 该 集合 表 
示 工 作 表 中 的 所 有 榜 入 式 图 表 ， 之 后 执行 该 集合 的 Delete 方法 删除 指定 工作 表 中 的 所 有 媒 入 式 
图 表 。 加 入 On Error Resume Next 语句 以 防 没 有 嵌入 式 图 表 时 出 现 运行 时 错误 。 
Sub 删除 工作 簿 中 的 所 有 媒 入 式 图 表 () 
Dim wks Rs Worksheet 
On Error Resume Next 
For Each wks In Worksheets 
wks.ChartObjects.Delete 


Next wks 
End Sub 


如 果 要 删除 一 个 工作 短 中 的 所 有 图 表 工 作 表 ， 则 可 以 使 用 Charts 集合 的 Delete 方法 。 为 了 
在 删除 图 表 工 作 表 时 不 会 出 现 中 断 程序 运行 的 确认 删除 的 提示 信息 ， 可 以 将 Application 对 象 的 
属性 设置 为 False， 在 完成 删除 操作 之 后 再 将 该 属性 设置 为 True。 


Application.DisplayAlerts = False 
Charts.Delete 
Application.DisplayAlerts = True 














































































































9.4 将 图 表 转 换 为 图 片 


如 果 希 望 只 允许 其 他 人 浏览 图 表 而 不 能 对 其 进行 修改 , 则 可 以 使 用 VBA 将 图 表 转 换 为 指定 
格式 的 图 片 。 可 以 导出 的 图 片 格式 由 Windows 操作 系统 中 安装 的 文件 筛选 器 决定 。 
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9.4.1 将 单个 嵌入 式 图 表 转 换 为 图 片 


在 VBA 中 , 可 以 使 用 Chart 对 象 的 Export 方 法 将 嵌入 式 图表 转 换 为 图 片 。Export 方法 包含 
3 个 参数 ， 语 法 格式 如 下 : 

Export (Filename, FilterName, Interactive) 

口 Filename: 必 选 ， 将 图 表 转 换 为 图 片 的 文件 路 径 和 文件 名 。 

口 FilterName: 可 选 ， 将 图 表 转 换 为 图 片 的 文件 格式 。 

口 Interactive: 可 选 ， 如 果 设 置 为 True 则 显示 包含 筛选 器 特定 选项 的 对 话 框 ， 如 果 设 置 为 
False 则 使 用 筛选 器 的 默认 值 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 False。 


案例 9-21 将 活动 的 做 入 式 图 表 转 换 为 图 片 

下 面 的 代码 将 活动 图 表 转 换 为 PG 格式 的 图 片 ， 图 片 的 保存 位 置 与 图 表 所 属 工作 短 位 于 同名 
一 个 文件 夹 中 , 并 使 用 图 表 标 题 作为 图 片 的 文件 名 。ActiveChart.Parent.Parent.Parent 返回 对 活动 
图 表 所 属 工作 德 的 引用 ，ActiveChart.Parent 返回 Chart 对 象 的 父 对 象 ， 即 ChartObject 对 象 。 
ActiveChart.Parent.Parent 相当 于 返回 ChartObject 对 象 的 父 对 象 ， 即 Worksheet 对 象 。 
ActiveChart.Parent.Parent.Parent 相当 于 返回 Worksheet 对 象 的 父 对 象 ， 即 Workbook 对 象 ， 最 后 
使 用 Workbook 对 象 的 Path 属性 获取 工作 敌 的 路 径 。 

Sub 将 活动 的 嵌入 式 图 表 转 换 为 图 片 () 


Dim strFileName As String, strPath As String 
If ActiveChart Is Nothing Then 
MsgBox "当前 没有 活动 图 表 ! " 
Exit Sub 
End If 
strPath = ActiveChart.Parent.Parent.Parent.Path 
strFileName = strPath & "\" & ActiveChart.ChartTitle.Text & ".jpg" 
ActiveChart .Export strFileName, "jpg" 
End Sub 


9.4.2 ”将 工作 往 中 的 所 有 赃 入 式 图 表 转 换 为 图 片 


将 工作 短 中 的 所 有 嵌入 式 图 表 转 换 为 图 片 的 方法 与 上 一 节 介 绍 的 转换 单个 图 片 的 方法 类 
似 ， 只 是 需要 使 用 For Each 循环 结构 遍历 工作 矢 中 的 每 个 工作 表 ， 以 及 在 每 个 工作 表 中 遍历 每 
个 图 表 。 


案例 9-22 ”将 所 有 谱 入 式 图 表 批量 保存 为 图 片 
下 面 的 代码 将 活动 工作 短 中 的 所 有 嵌入 式 图 表 转 换 为 JPG 格式 的 图 片 , 如 图 9-23 所 示 。 
日 于 不 同 工 作 表 中 的 图 表 可 能 具有 相同 的 标题 , 如 果 以 图 表 标 题 作 为 图 片 的 文件 名 , 那么 在 
将 这 些 图 表 转 换 为 图 片 时 就 会 出 现 同名 文件 的 情况 ， 此 时 Excel 会 中 断 程序 的 运行 ， 并 显示 
是 否 覆 盖 文 件 的 提示 信息 。 为 了 避免 这 种 情况 ,在 导出 不 同 工 作 表 中 的 图 表 时 ， 使 用 工作 表 
名 + 图 表 标 题 的 方式 来 为 转换 后 的 图 片 命名 ,在 工作 表 名 与 图 表 标 题 之 间 使 用 “-” 符 号 作为 
分 隔 符 。 
Sub 将 工作 竹中 的 所 有 嵌入 式 图 表 转 换 为 图 片 () 
Dim wks As Worksheet, cho As ChartObject 
Dim strFileName As String, strPath As String 
strPath = ActiveWorkbook.Path 
On Error Resume Next 
For Each wks In Worksheets 


For Each cho In wks.ChartObjects 
strFileName = strPath & "\" gwks.Name & "-" & cho.Chart.ChartTitle.Text & ".jpg" 


















































































































































































































































ks 


lg2* 


cho .Chart.Export strFileName, 
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"jpg™ 
Next cho 
Next wks 
End Sub 
让 
Sheet1- 第 1 季度 Sheet1- 第 2 季度 Sheet2- 第 1 季度 Sheet2- 第 2 季度 
销售 情况 销售 情况 销售 情况 销售 情况 
mm wn | 
Pie 
aa mm 一 | 
己 疡 
二 一 
bu + I 
a 
Sheet3- 第 2 季度 窒 例 9-22 
销售 情况 
图 9-23 将 工作 簿 中 的 所 有 风 入 式 图 表 转 换 为 图 片 


Sheet3- 第 1 季度 
销售 情况 
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数据 透视 表 是 一 种 功能 强大 且 易 于 使 用 的 数据 分 析 了 








[ 具 。 在 Excel 界面 环境 中 可 以 很 容易 





地 创建 和 设置 数据 透视 表 , 在 VBA 中 可 以 使 用 Excel 对 象 模型 中 的 数据 透视 表 对 象 来 创建 和 设 
置 数据 透视 表 。 本 章 将 详细 介绍 在 VBA 中 操作 数据 透视 表 的 方法 。 


结构 、 数 据 透 视 表 的 党 


10.1.1 


数据 透视 表 通 常 包括 4 个 部 分 : 行 区 域 、 列 区 域 、 值 


10.1 数据 透视 表 基 础 


本 节 主 要 介绍 在 VBA 中 创建 数据 透视 表 需 要 了 解 的 一 些 基础 知识 ,包括 数据 透视 表 的 组 成 


























数据 透视 表 的 组 成 结构 


分 进行 简要 介绍 。 
1. 行 区 域 


如 图 10-1 所 示 的 灰色 部 分 是 数据 透视 表 的 行 














通常 放置 一 些 可 用 于 进行 分 类 或 分 组 的 内 容 ， 比 如 部 门 、 地 区 、 





A B 
1 

2 负责 人 (全 部 ) | 
3 

4 求 和 项 :销量 商品 ~ 
5 吨 区 二 冰箱 

6 4104 
3801 
1703 
4298 
2694 
3441 
4671 
3556 
1499 
1439 
3999 
2682 
2703 
3201 
1948 








C 


电脑 “电视 ”空调 ”洗衣 机 总 计 


1618 
4377 
3474 
3061 
1332 
1496 
5440 
4097 
1419 

521 
2592 
3916 
2127 
2173 
3671 


D 


2391 
5915 

539 

958 
3095 
2992 
1280 
2702 
3673 
6673 
4856 
2781 
1280 
4081 
2415 


E 


1213 
2708 
3796 
1731 
1665 
4107 

503 
4559 
3906 
2285 
3848 
1390 
2705 
4098 
3446 


45739 41314 45631 41960 





3 


6191 
2915 
4426 
4515 
3221 
1689 
3171 
2966 
3076 
3096 
2063 
1504 
5580 
2402 
2117 


48932 223576 


区 域 、 


报表 筛选 


区 域 ， 它 位 于 数据 透视 表 





日 期 等 。 


G 


15517 
19716 
13938 
14563 
12007 
13725 
15065 
17880 
13573 
14014 
17358 
12273 
14395 
15955 
13597 








图 10-1 


2. 列 区 域 





如 图 











10-2 所 示 的 灰色 部 分 是 数据 透视 表 的 列 





行 区 域 





术语 、 数 据 透 视 表 缓存 ， 以 及 Excel 对 象 模型 中 的 数据 透视 表 对 象 。 





Xl 
党 




















的 左 侧 。 在 行 区 域 中 





区 域 ， 它 位 于 数据 透视 表 各 列 的 顶部 。 
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10-2 列 区 域 


3. 值 区 域 


如 图 10-3 所 示 的 灰色 部 分 是 数据 透视 表 的 值 区 域 , 它 是 由 行 区 域 和 列 区 域 包围 起 来 的 面积 
最 大 的 区 域 。 值 区 域 中 的 数据 是 对 行 区 域 和 列 区 域 中 的 字段 所 包含 的 数据 进行 数值 运算 后 的 计 
算 结果 。 默 认 情况 下 ，Excel 对 值 区 域 中 的 数值 型 数据 进行 求 和 ， 对 文本 型 数据 进行 计数 。 




















45739 41314 45631 41960 48932 223576 


图 10-3 值 
4. 报表 筛选 区 域 








区 域 


如 图 10-4 所 示 的 灰色 部 分 是 数据 透视 表 的 报表 筛选 区 域 ， 它 位 于 数据 透视 表 的 最 上 方 。 报 
表 筛 选区 域 由 一 个 或 多 个 下 拉 列 表 组 成 ， 在 下 拉 列 表 中 选择 特定 选项 后 ， 将 会 对 整个 数据 透视 














表 中 的 数据 进行 筛选 。 


.194 





第 10 章 ”使 用 PivotTable 对 象 处 理 数据 透视 表 





A B C D E F G 
负责 人 (全 部 ) - 
求 和 项 :销量 商品 了 
地 区 二 冰箱 电脑 “电视 “空调 ”洗衣 机 总 计 
北京 4104 1618 2391 1213 6191 15517 
成 都 3801 4377 5915 2708 2915 19716 
大 连 1703 3474 539 3796 4426 13938 
广州 4298 3061 958 1731 4515 14563 
哈尔滨 2694 1332 3095 1665 3221 12007 
济南 3441 1496 2992 4107 1689 13725 
上 海 4671 5440 1280 503 3171 15065 
沈阳 3556 4097 2702 4559 2966 17880 
石家庄 1499 1419 3673 3906 3076 13573 
太原 1439 521 6673 2285 3096 14014 
天 津 3999 2592 4856 3848 2063 17358 
武汉 2682 3916 2781 1390 1504 12273 
长 春 2703 2127 1280 2705 5580 14395 
长 沙 3201 2173 4081 4098 2402 15955 
重庆 1948 3671 2415 3446 2117 13597 


图 10-4 报表 筛选 区 域 





10.1.2 ”数据 透视 表 的 常用 术语 


本 章 会 使 用 数据 透视 表 的 一 些 术语 用 于 描述 数据 透视 表 中 的 特定 内 容 ， 了 解 这 些 术语 不 仅 








有 助 于 理解 本 章 的 内 容 ， 还 可 以 与 使 用 数据 透视 表 的 其 他 用 户 进行 更 好 的 交流 。 


1. 数据 源 


数据 源 是 创建 数据 透视 表 的 数据 来 源 ， 数 据 源 可 以 是 Excel 中 的 单元 格 


区 域 、 定 义 的 名 称 、 





另 一 个 数据 透视 表 ， 还 可 以 是 Excel 之 外 的 其 他 来 源 的 数据 ， 比 如 文本 文件 、Access 数据 库 或 


SQL Server 数据 库 。 


2. 字段 


数据 透视 表 中 的 字段 是 数据 源 中 各 列 顶 部 的 标题 ， 每 一 个 字段 代表 一 类 数据 。 如 图 10-5 所 


示 的 深 灰 色 部 分 就 是 数据 透视 表 中 的 字段 ， 比 如 “商品 ”“ 地 区 ”“ 销 量 ” 














A B C D E F G 

负责 人 (全部 ) > 

销量 商品 ~ 

地 区 工 冰箱 ”电脑 “电视 空调 洗衣 机 总 计 
北京 4104 1618 2391 1213 6191 15517 
成 都 3801 4377 5915 2708 2915 19716 
大 连 1703 3474 539 3796 4426 13938 
广州 4298 3061 958 1731 4515 14563 
哈尔滨 2694 1332 3095 1665 3221 12007 
济南 3441 1496 2992 4107 1689 13725 
上 海 4671 5440 1280 503 3171 15065 
沈阳 3556 4097 2702 4559 2966 17880 
石家庄 1499 1419 3673 3906 3076 13573 
太原 1439 521 6673 2285 3096 14014 
天 津 3999 2592 4856 3848 2063 17358 
武汉 2682 3916 2781 1390 1504 12273 
长 春 2703 2127 1280 2705 5580 14395 
长 沙 3201 2173 4081 4098 2402 15955 
重庆 1948 3671 2415 3446 2117 13597 
总 计 45739 41314 45631 41960 48932 223576 








10-5 ”数据 透视 表 中 的 字段 





“负责 人 ”。 


和 
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可 以 将 字段 按 其 所 在 的 不 同 区 域 分 为 报表 筛选 字段 、 行 字段 、 列 字段 、 值 字段 ， 各 字段 的 





说 明 如 下 : 





口 报表 筛选 字段 : 位 于 报表 入 选区 域 中 











P 的 字段 , 可 以 对 整个 数据 透视 表 中 的 数据 进行 第 选 。 


口 行 字 段 : 位 于 行 区 域 中 的 字段 。 如 果 数 据 透 视 表 包含 多 个 行 字段 ， 这 些 行 字段 将 以 树 状 
结构 的 形式 进行 排列 ， 类 似 文件 夹 和 子 文件 夹 。 通 过 改变 各 个 行 字段 在 行 区 域 中 的 排列 


顺序 ， 可 以 获得 表达 不 同 含义 的 数据 透视 表 。 


口 列 字段 : 位 于 列 区 域 中 的 字段 。 








口 值 字段 : 位 于 最 外 层 行 字段 上 方 的 字段 。 值 字段 中 的 数据 主要 用 于 执行 各 种 运算 ，Excel 
对 数值 数据 默认 执行 求 和 ， 对 文本 数据 默认 执行 计数 。 


3. 项 


项 是 字段 中 包含 的 数据 。 如 图 10-6 所 示 的 深 灰 部 分 就 是 数据 透视 表 中 的 项 ， 比 如 “北京 
“成 都 ”“ 大 连 ” 是 “地 区 ”字段 中 的 项 。 各 个 字段 中 位 于 同一 行 上 的 某 个 项 组 成 了 一 条 数据 记 








录 ， 每 条 数据 记录 在 表 中 应 该 是 唯一 的 。 


(全 部 ) > 


商品 
-冰箱 ”电脑 ”电视 空调 ”洗衣 机 总 计 


4104 
3801 
1703 
4298 
2694 
3441 
4671 
3556 
1499 
1439 
3999 
2682 
2703 
3201 
1948 


1618 
4377 
3474 
3061 
1332 
1496 
5440 
4097 
1419 

521 
2592 
3916 
2127 
2173 
3671 


2391 
5915 

539 

958 
3095 
2992 
1280 
2702 
3673 
6673 
4856 
2781 
1280 
4081 
2415 


1213 
2708 
3796 
1731 
1665 
4107 

503 
4559 
3906 
2285 
3848 
1390 
2705 
4098 
3446 


45739 41314 45631 41960 


6191 
2915 
4426 
4515 
3221 
1689 
3171 
2966 
3076 
3096 
2063 
1504 
5580 
2402 
2117 


15517 
19716 
13938 
14563 
12007 
13725 
15065 
17880 
13573 
14014 
17358， 
12273 
14395 
15955 
13597 


48932 223576 


图 10-6 数据 透视 表 中 的 项 























数据 透视 表 缓 存 是 一 个 数据 缓冲 区 ， 用 于 在 数据 透视 表 与 数据 源 之 间 传递 数据 。 在 Excel 


2003 中 使 用 相同 的 数据 源 创建 的 每 一 个 数据 透视 表 都 有 一 个 与 其 匹配 的 数据 透视 表 缓 存 。 但 是 
在 Excel 2007 或 更 高 版 本 的 Excel 中 ， 使 用 相同 的 数据 源 创建 的 所 有 数据 透视 表 都 将 共享 同一 











个 数据 透视 表 缓存 。 





共享 数据 透视 表 缓 存 的 优点 是 可 以 减少 内 存 占 用 ， 并 可 避免 工作 等 的 体积 随 数据 透视 表 数 
量 的 增多 而 显著 变 大 。 共 享 数据 透视 表 缓存 也 存在 以 下 两 个 问题 : 





口 刷新 任意 一 个 数据 透视 表 ， 共 享 相同 的 数据 透视 表 缓 存 的 其 他 数据 透视 表 也 将 自动 刷新 。 
口 在 任意 一 个 数据 透视 表 中 添加 计算 字段 和 计算 项 ,或 对 指定 字段 进行 组 合 后 ,操作 结果 
他 数据 透视 表 中 生效 。 

相同 的 数据 源 创 建 数据 透视 表 时 不 











也 会 在 共享 相同 的 数据 透视 表 缓存 的 其 
如 果 希 望 在 Excel 2007 或 更 高 版 本 的 Excel 中 ， 在 使 
共享 同一 个 数据 透视 表 缓存 ， 可 以 使 用 “数据 透视 表 和 数据 透视 图 向 导 ” 对 话 框 。 











“196* 

















用 
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性 





(1) 单 击 数据 源 中 的 任意 一 个 单元 格 , 然后 按 AlttD 组 合 键 , 在 显示 快捷 键 提示 时 按 P 键 ， 
打开 “数据 透视 表 和 数据 透视 图 向 导 ” 对 话 框 ， 如 图 10-7 所 示 ， 保 持 默 认 设 置 直接 单 击 “ 下 一 





























数据 适 视 表 和 数据 适 视图 向 导 -- 步 票 1 ( 共 3 步 ) ? x 
@R 
口外 部 数据 源 上 日 
〇 多 重合 并 计算 数据 区 域 (O 
〇 号 一 个 数据 适 视 表 或 数据 适 视图 (A) 
所 需 创 建 的 报表 类 型 : 
图 数 掺 适 视 表 四 
〇 数据 适 视图 (及 数据 适 视 表 )(R) 


| [Em sa0 
10-7 “数据 透视 表 和 数据 透视 图 向 导 ” 对 话 框 


(2) 进入 向 导 的 下 一 个 设置 界面 ，Excel 会 自动 将 数据 源 的 连续 单元 格 区 域 填 入 数据 源 区 域 ， 
如 图 10-8 所 示 ， 直 接 单 击 “ 下 一 步 ” 按 钮 。 











数据 适 视 吉 和 数据 适 视 图 向 导 - 第 2 步 , 共 3 步 和 
请 召 入 或 迁 定 要 建立 数据 适 视 表 的 数据 源 区 域 : 
迁 定 区 域 R)， 天 85565500 人 | | WW).. 


取消 “| | < 上 - 步 g 克成 上 
图 10-8 ”自动 填 入 数据 源 的 范 目 


(3) 如 果 在 上 一 步 填 入 的 数据 源 范围 与 工作 短 中 现 有 的 数据 透视 表 所 使 用 的 数据 源 范围 相 
同 ， 则 会 显示 如 图 10-9 所 示 的 对 话 框 ， 单 击 “ 否 ”按钮 将 会 创建 一 个 新 的 数据 透视 表 缓 在， 而 
不 是 使 用 现 有 的 数据 透视 表 缓 存 。 


Microsoft Excel 小 




















井 





























如 使 新 报表 基于 现 有 的 、 创 建 合同 一 源 数据 的 报表 [ 笋 10 童 ,xlsmjSheet1! 数 据 适 视 夫 1 , 则 新 报表 可 以 使 用 较 少 的 内 存 。 旺 否 让 新 报表 建立 在 与 现 有 报表 相同 的 数据 上 ? 


“* 单 击 " 是 "按钮 时 可 以 节省 内 存 并 使 工作 表 较 小 . 
“* 单 击 " 否 按钮 时 ,两 个 报表 将 各 生 独 立 . 


[sm ] | am 
图 10-9 选择 是 否 共享 同一 个 数据 透视 表 缓 存 
10.1.4 数据 透视 表 的 Excel 对 象 模型 


Excel 对 象 模型 中 主要 包括 4 个 与 数据 透视 表 相 关 的 常用 对 象 :PivotCaches 集合 /PivotCache 
对 象 、PivotTables 集合 /PivotTable 对 象 、PivotFields 集合 /PivotField 对 象 和 PivotItems 集合 

















人 
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/PivotItem 对 象 。 


1. PivotCaches 集合 /PivotCache 对 象 


PivotCaches 集合 包含 工作 敌 中 的 所 有 数据 透视 表 缓 存 ，PivotCache 对 象 是 特定 的 数据 透视 
表 缓 存 ，PivotCache 对 象 是 PivotCaches 集合 的 成 员 。PivotCaches 集合 的 父 对 象 是 Workbook 对 







































































象 。 表 10-1 一 表 10-3 列 出 了 PivotCaches 集合 与 PivotCache 对 象 的 常用 属性 和 方法 。 
表 10-1 PivotCaches 集合 的 常用 方法 
友 说 明 
Create 创建 一 个 数据 透视 表 缓 存 ， 并 返回 相应 的 PivotCache 对 象 
表 10-2 PivotCache 对 象 的 常用 属性 
属 性 说 明 
RefreshOnFileOpen 返回 或 设置 打开 工作 短 时 是 否 自动 刷新 数据 透视 表 缓 存 
SourceData 返回 数据 透视 表 缓存 中 的 数据 源 
表 10-3 ”PivotCache 对 象 的 常用 方法 
力 呈 < 尖 说 明 
CreatePivotTable 创建 一 个 基于 PivotCache 对 象 的 数据 透视 表 ， 并 返回 一 个 PivotTable 对 象 
Refresh 刷新 数据 透视 表 缓存 





2. PivotTables 集合 /PivotTable 对 象 

PivotTables 集合 包含 工作 表 中 的 所 有 数据 透视 表 ，PivotTable 对 象 是 特定 的 数据 透视 表 ， 
PivotTable 对 象 是 PivotTables 集合 的 成 员 。PivotTables 集合 的 父 对 象 是 Worksheet 对 象 。 表 
10-4 一 表 10-6 列 出 了 PivotTables 集合 与 PivotTable 对 象 的 常用 属性 和 方法 。 


表 10-4 PivotTables 集合 的 常用 方法 
















































































方 曙 法 说 明 

Add 创建 一 个 数据 透视 表 ， 并 返回 相应 的 PivotTable 对 象 
表 10-5 ”PivotTable 对 象 的 常用 属性 

属 性 说 了 明 
ColumnFields 返回 包含 数据 透视 表 中 的 所 有 列 字段 的 PivotFields 集合 
ColumnGrand 返回 或 设置 是 否 显 示 列 总 计 
ColumnRange 返回 表示 数据 透视 表 中 的 列 区 域 的 Range 对 象 
DataBodyRange 返回 表示 数据 透视 表 中 的 值 区 域 的 Range 对 象 
DataFields 返回 包含 数据 透视 表 中 的 所 有 值 字段 的 PivotFields 集合 
LayoutRowDefault 返回 或 设置 初次 向 数据 透视 表 中 添加 字段 时 的 布局 形式 
Name 返回 或 设置 数据 透视 表 的 名 称 











本 有 
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续 表 
民 了 性 说 明 
PageFields 返回 包含 数据 透视 表 中 的 所 有 报表 筛选 字段 的 PivotFields 集合 
PageRange 返回 表示 数据 透视 表 中 的 报表 筛选 区 域 的 Range 对 象 
RowFields 返回 包含 数据 透视 表 中 的 所 有 行 字 段 的 PivotFields 集合 
RowGrand 返回 或 设置 是 否 显示 行 总 计 
RowRange 返回 表示 数据 透视 表 中 的 行 区 域 的 Range 对 象 
SourceData 返回 数据 透视 表 使 用 的 数据 源 
TableRangel 返回 不 包含 页 字段 的 整个 数据 透视 表 区 域 的 Range 对 象 
TableRange2 返回 包含 页 字段 在 内 的 整个 数据 透视 表 区 域 的 Range 对 象 
TableStyle2 返回 或 设置 当前 应 用 于 数据 透视 表 的 数据 透视 表 样 式 
VisibleFields 返回 包含 数据 透视 表 中 当前 已 布局 的 所 有 字段 的 PivotFields 集合 
表 10-6 PivotTable 对 象 的 常用 方法 
方 法 说 明 
AddDataField 在 数据 透视 表 中 添加 值 字段 ， 并 返回 相应 的 PivotField 对 象 
AddFields 在 数据 透视 表 中 添加 行 字段 、 列 字段 和 报表 筛选 字段 
ClearTable 清除 数据 透视 表 中 的 所 有 字段 以 及 排序 和 筛选 ， 使 其 恢复 为 空白 的 数据 透视 表 
PivotFields 返回 包含 数据 透视 表 中 的 所 有 字段 的 PivotFields 集合 
RefreshTable 使 用 数据 源 刷新 数据 透视 表 ， 如 果 刷 新 成 功 则 返回 True， 刷 新 失败 则 返回 False 
RowAxisLayout 设置 数据 透视 表 的 布局 形式 
Update 更 新 数据 透视 表 





3. PivotFields 集合 /PivotField 对 象 
PivotFields 集合 包含 数据 透视 表 中 的 所 有 字段 ，PivotField 对 象 是 特定 的 字段 ，PivotField 
对 象 是 PivotFields 集合 的 成 员 。PivotTables 集合 的 父 对 象 是 Worksheet 对 象 。 表 10-7 和 表 10-8 
列 出 了 PivotTable 对 象 的 常用 属性 和 方法 。 
表 10-7 PivotField 对 象 的 常用 属性 
属 性 说 了 明 






















































































Calculation 返回 或 设置 值 字段 中 的 数据 的 值 显示 方式 ， 比 如 百分比 、 差 异 、 差 异 百分比 等 
Caption | 返回 或 设置 字段 在 数据 透视 表 字 段 列表 窗 格 中 显示 的 名 称 

DataRange | 返回 包含 字段 中 的 所 有 数据 的 Range 对 象 

DataType | 返回 字段 中 的 数据 的 数据 类 型 

Name | 返回 或 设置 字段 的 名 称 

NumberFormat | 返回 或 设置 信 字 段 中 的 数据 的 数字 格式 

Function 返回 或 设置 值 字段 中 的 数据 的 值 汇总 依据 ， 比 如 求 和 、 计 数 、 平 均值 等 
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续 表 
属 性 说 明 
Orientation 返回 或 设置 数据 透视 表 中 的 字段 布局 方式 
Position 返回 或 设置 位 于 相同 区 域 中 的 多 个 字段 的 排列 方式 
Subtotals 返回 或 设置 值 字段 以 外 的 其 他 字段 中 的 数据 的 汇总 方式 








表 10-8 PivotField 对 象 的 常用 方法 











方法 说 明 
Delete 删除 字段 
PivotItems 返回 包含 字段 中 的 所 有 项 的 PivotItems 集合 





4. Pivotltems 集合 /Pivotltem 对 象 

PivotItems 集合 包含 字段 中 的 所 有 项 , PivotItem 对 象 是 特定 的 项 ,PivotItem 对 象 是 PivotItems 
集合 的 成 员 。PivotItems 集合 的 父 对 象 是 PivotField 对 象 。 表 10-9 和 表 10-10 列 出 了 PivotItem 
对 象 的 常用 属性 和 方法 。 























表 10-9 Pivotltem 对 象 的 常用 属性 
属 性 说 :了 明 
Caption 返回 或 设置 项 在 数据 透视 表 中 显示 的 名 称 























Name 返回 或 设置 项 的 名 称 
Position 返回 或 设置 项 在 其 所 属 字段 中 的 位 置 
Visible 设置 项 的 显示 或 隐藏 状态 


表 10-10 ”Pivotltem 对 象 的 常用 方法 
方 法 说 明 
Delete 删除 项 





10.2 ”创建 与 设置 数据 透视 表 
本 节 将 介绍 在 VBA 中 创建 数据 透视 表 ， 以 及 对 数据 透视 表 中 的 数据 进行 操作 的 方法 。 


10.2.1 创建 基本 的 数据 透视 表 


在 VBA 中 创建 数据 透视 表 之 前 ， 需 要 先 创建 数据 透视 表 缓 存 , 其 中 存储 用 于 创建 数据 透视 
表 的 数据 源 ， 然 后 使 用 已 创建 好 的 数据 透视 表 缓 存 来 创建 数据 透视 表 。 可 以 使 用 PivotCaches 
集合 的 Create 方法 创建 数据 透视 表 缓 存 ， 该 方法 包含 3 个 参数 ， 语 法 格式 如 下 : 
PivotCaches .Create (SourceType, SourceData, Version) 
口 SourceType: 必 选 ， 数 据 源 的 类 型 ， 该 参数 的 值 由 XIPivotTableSourceType 常量 提供 ， 
见 表 10-11。 
口 SourceData: 可 选 ， 数 据 源 的 位 置 。 如 果 没 有 将 SourceType 参数 设置 为 xlExternal， 则 
必须 指定 SourceData 参数 。 
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口 Version: 可 选 , 数据 透视 表 缓存 的 版 本 。 Excel 2003 版 本 表示 为 xlPivotTableVersion11, Excel 
2007 版 本 表示 为 xlPivotTableVersion12，Excel 2010 版 本 表示 为 xlPivotTableVersion14， 
Excel 2013 版 本 表示 为 xlPivotTableVersion15, Excel 2016 版 本 表示 为 xlPivotTableVersion16。 


表 10-11 XIPivotTableSourceType 常量 



































名 称 值 说 明 
xlDatabase 1 Excel 中 的 数据 区 域 
xlConsolidation 3 多 重合 并 计算 数据 区 域 
xlExternal 2 其 他 应 用 程序 中 的 数据 
xlScenario 4 使 用 方案 管理 器 创建 的 方案 
xlPivotTable -4148 来 源 于 另 一 个 数据 透视 表 





创建 好 数据 透视 表 缓 存 后 , 可 以 使 用 PivotCache 对 象 的 CreatePivotTable 方法 创建 数据 透视 
表 。 该 方法 包含 4 个 参数 ， 语 法 格式 如 下 : 

PivotCache.CreatePivotTable (TableDestination, TableName, ReadData, DefaultVersion) 

口 TableDestination: 放置 数据 透视 表 的 区 域 左 上 角 的 单元 格 。 

口 TableName: 数据 透视 表 的 名 称 。 

口 ReadData: 在 创建 数据 透视 表 时 通常 省 略 该 参数 。 如 果 设 置 为 True 则 创建 一 个 包含 外 


部 数据 库 中 所 有 记录 的 数据 透视 表 高 速 组 
存 ， 如 果 设 置 为 False 则 允许 在 实际 读 取 数 
据 之 前 将 某 些 字段 设置 为 基于 服务 器 的 页 
字段 。 

口 DefaultVersion: 数据 透视 表 的 版 本 , 与 前 
介绍 的 PivotCaches 对 象 的 Create 方法 的 






D E 
销售 额 ” 负责 人 
1570800 雷 盛 
3475500 范 妮 
4987500 石 杰 
4520100 邵 森 
1069700 曾 范 
1410200 杜 晶 









































1181800 曹 琼 

Version 参数 相同 。 2 i 

案例 10-1 创建 数据 透视 表 缓存 和 数据 透视 表 ee 

下 面 的 代码 以 如 图 10-10 所 示 的 数据 区 域 作为 3206600 
数据 源 ， 创 建 一 个 空白 的 数据 透视 表 ， 如 图 10-11 547800 芭 
所 示 。 数 据 源 所 在 的 工作 表 的 名 称 是 “数据 源 ”， 2166500 贡 直 
将 放置 数据 透视 表 的 工作 表 命名 为 “数据 透视 表 ”， | 六 一 入 人 | 400 各 





将 创建 的 数据 透视 表 命名 为 “销量 分 析 ”。pvc 变量 : 
表示 数据 透视 表 缓存 ，pvt 变量 表示 数据 透视 表 ， 图 10-10 数据 源 
mgSource 变量 表示 数据 源 区 域 ，rmgPvt 变量 表示 放 
置 所 创建 的 数据 透视 表 的 区 域 左 上 角 的 单元 格 。 

Sub 创建 数据 透视 表 缓存 和 数据 透视 表 () 


Dim pvc As PivotCache, pvt As PivotTable 
Dim rngSource As Range, rngPvt As Range 
Set rngSource = Worksheets ("数据 源 ") .Range ("Al") .CurrentRegion 
Worksheets.Add 
ActiveSheet .Name = "数据 透视 表 " 
Set rngPvt = ActiveSheet.Range ("A3") 
Set pvc = ActiveWorkbook.PivotCaches .Create (xlDatabase, rngSource) 
pvc.CreatePivotTable rngPvt，" 销 量 分 析 " 
End Sub 


数据 源 由 
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口 日 民 和 四 四 问 := 守 例 10-1 - Excel 本 录 国 口 
Ew* 插入 页 面 布 公式 数据 审阅 视图 开发 工 加 载 项 分 析 设计 “9 生活 会 是 下 二 
A 天 ~ 
A C D < 
1 于 所 通 杭 下段 
3 |] 加 到 报表 的 字段: 和 














6 车 要 生成 报表 ， 请 从 数据 透视 
表 字段 列表 中 选择 字段 














图 10-11 创建 的 空白 数据 透视 表 


10.2.2 ”将 字段 添加 到 数据 透视 表 中 


本 节 中 的 案例 以 上 一 节 创建 好 的 数据 透视 表 为 基础 进行 介绍 。 在 创建 好 一 个 空白 的 数据 透 
视 表 之 后 ， 需 要 将 字段 添加 在 数据 透视 表 中 的 不 同 区 域 中 ， 以 构建 有 意义 的 数据 报表 。 可 以 使 
PivotField 对 象 的 Orientation 属性 和 Position 属性 指定 字段 在 数据 透视 表 中 的 位 置 , Orientation 
属性 的 值 由 XIPivotFieldOrientation 常量 提供 ， 见 表 10-12。 






































表 10-12 XIPivotFieldOrientation 常量 











名 称 说 明 
xlHidden 从 数据 透视 表 中 删除 指定 的 字段 
xlRowField 将 字段 添加 到 行 区 域 
xlColumnField 将 字段 添加 到 列 区 域 
xlPageField 将 字段 添加 到 报表 筛选 区 域 
xlDataField 将 字段 添加 到 值 区 域 








案例 10-2 ”对 数据 透视 表 中 的 字段 进行 布局 

下 面 的 代码 对 数据 透视 表 中 的 字段 进行 布局 ， 将 “负责 人 ”字段 添加 到 报表 筛选 区 域 ， 将 
地 区 ”和 “商品 ”两 个 字段 添加 到 行 区 域 ， 将 “销量 ”和 “销售 额 ”两 个 字段 添加 到 值 区 域 。 
对 字段 进行 布局 后 的 数据 透视 表 如 图 10-12 所 示 。 首先 将 活动 工作 表 中 的 数据 透视 表 赋 值 给 pvt 
变量 ， 然 后 使 用 PivotField 对 象 的 Orientation 属性 设置 将 字段 添加 到 哪个 区 域 。 由 于 本 例 中 行 
区 域 包含 两 个 字段 ， 因 此 需要 使 用 PivotField 对 象 的 Position 属性 指定 字段 的 排列 顺序 。 使 
PivotTable 对 象 的 AddDataField 方法 将 值 字 段 添 加 到 数据 透视 表 中 。 
Sub 将 字段 添加 到 数据 透视 表 中 () 
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Dim pvt As PivotTable 
Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 
With pvt 
.PivotFields ("负责 人 ") .Orientation = xlPageField 
With .PivotFields ("地 区 ") 
.Orientation = xlRowField 
.Position = 1 
End With 
With .PivotFields ("商品 ") 
.Orientation = xlRowField 
.Position = 2 
End With 
.AddDataField .PivotFields ("销量 ") 
.AddDataField .PivotFields ("销售 额 ") 


End With 
End Sub 





0 日 民 曾 目的 : 塞 刚 10-2 - Excel 发。 到 录 加 口 


Ew 插入 ”页 而 布局 ”公式 数据 市 阅 视图 开发 TJ 具 。 加 载 项 分 析 设计 9 告 F 生 








A3 ” 到 ~ 
| se | B C DE eG EN 全 se 
全 部 数据 透视 表 字 段  ” * 
值 选择 要 添加 到 报表 的 字段 人 ~ 
求 和 项 :销量 求 和 项 :销售 额 es 5 
4104 11491200 
1618 9222600 3 
2391 8368500 
9 1213 2668600 
10 洗衣 机 6191 11762900 


15517 43513800 
















3801 10642800 
4377 24948900 
5915 20702500 





2708 5957600 是 贡 
2915 5538500 2 

19716 67790300 人 =] [三 有 
1703 4768400 
3474 19801800 四 行 三 值 
539 1886500 一 

区 村 7 

3796 8351200 rs 于 和 磺 梢 量 
4426 8409400 商品 ”| | 也 和 页 销售 蜂 ~ 





13938 43217300 











图 10-12 ”对 字段 进行 布局 后 的 数据 透视 表 


10.2.3 ”调整 和 删除 字段 
在 对 数据 透视 表 中 的 字段 进行 布局 后 , 以 后 可 能 需要 调整 字段 的 位 置 或 删除 不 需要 的 字段 。 
调整 数据 透视 表 中 现 有 字段 的 位 置 仍然 需要 使 用 PivotField 对 象 的 Orientation 和 Position 属性 ， 
而 从 数据 透视 表 中 删除 字段 则 需要 将 Orientation 属性 的 值 设置 为 xIHidden。 
案例 10-3 ”更 改 数据 透视 表 中 的 字段 布局 
下 面 的 代码 将 “地 区 ”字段 从 行 区 域 移动 到 报表 筛选 区 域 ， 并 将 该 字段 置 于 “负责 人 ” 字 
段 的 下 方 ， 然 后 将 “销量 ”字段 从 数据 透视 表 中 删除 ， 如 图 10-13 所 示 。 
Sub 调整 和 删除 字段 () 


Dim pvt As PivotTable 
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Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 
With pvt 
With .PivotFields ("地 区 ") 
.Orientation = xlPageField 
.Position = 1 
End With 
.PivotFields (" 求 和 项 :销量 ") .Orientation = xlHidden 
End With 
End Sub 


A B 
负责 人 “(全 部 ) A 
地 区 (全 部 ) 


行 标签 “” 求 和 项 :销售 额 
冰箱 128069200 
235489800 
159708500 
92312000 
92970800 
708550300 


1 
3 
4 
6 
9 
10 


Le 


名 





图 10-13 ”调整 和 删除 数据 透视 表 中 的 字段 


10.2.4 修改 字段 的 名 称 


可 以 修改 数据 透视 表 中 的 字段 的 显示 名 称 ， 但 是 该 名 称 不 能 与 数据 透视 表 字 段 列 表 窗 格 中 
的 同一 个 字段 的 名 称 相同 。 为 了 让 同一 个 字段 获得 两 个 完全 相同 的 名 称 ， 可 以 在 数据 透视 表 中 
的 字段 名 称 的 末尾 添加 一 个 空格 ,这 样 Excel 会 将 其 看 作 另 一 个 不 同 的 名 称 。 可 以 使 用 PivotTable 
对 象 的 Name 属性 设置 字段 的 名 称 。 


案例 10-4 重 命 名 字段 
下 面 的 代码 将 数据 透视 表 中 的 “ 求 和 项 : 销售 额 ” 字 段 的 名 称 改 为 “销售 额 ”， 如 图 10-14 所 示 。 


Sub 修改 字段 的 名 称 () 
Dim pvt As PivotTable 
Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 
pvt .PivotFields (" 求 和 项 :销售 额 ") .Name = "销售 额 " 
End Sub 




















A B 
负责 人 “(全 部 ) | 
地 区 (全 部 |- 


行 标签 -销售 额 
128069200 
235489800 


159708500， 
92312000 
92970800， 


mmwooewmr 


5s 





rrr 


名 











图 10-14 ”修改 字段 的 名 称 


10.2.5 设置 数据 透视 表 的 布局 形式 
默认 创建 的 数据 透视 表 使 用 压缩 形式 的 布局 ， 本 章 前 面 出 现 的 数据 透视 表 都 使 用 的 是 这 种 
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布局 形式 。 可 以 使 用 PivotTable 对 象 的 RowAxisLayonut 方法 设置 数据 透视 表 的 布局 形式 ， 该 方 
法 的 参数 值 由 XILayoutRowType 常量 提供 ， 见 表 10-13。 











表 10-13 ”XILayoutRowType 常量 














名 称 值 说 明 
xlCompactRow 0 压缩 布局 形式 
xlTabularRow 1 表格 布局 形式 
xlOutlineRow 2 大 纲 布局 形式 





案例 10-5 ”设置 数据 透视 表 的 报表 布局 
下 面 的 代码 将 数据 透视 表 的 布局 设置 为 表格 形式 ， 如 图 10-15 所 示 。 
Sub 设置 数据 透视 表 的 布局 形式 () 


Dim pvt As PivotTable 
Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 
pvt.RowAxisLayout xlTabularRow 

End Sub 

















1 | 负责 太医 识 
2 地 区 (全 部 ) 


商品 ”销售 额 
5 | 冰箱 128069200 
6 | 电脑 235489800 
7 | 电视 ，159708500 
8 | 空调 92312000 
9 | 洗衣 机 。 92970800 


10 总 计 ”708550300 





图 10-15 将 数据 透视 表 的 布局 设置 为 表格 形式 


10.2.6 ”隐藏 行 总 计 和 列 总 计 


默认 创建 的 数据 透视 表 会 在 行 区 域 的 最 下 方 以 及 列 区 域 的 最 右 侧 显示 总 计 。 可 以 使 
PivotTable 对 象 的 RowGrand 和 ColumnGrand 属性 设置 行 总 计 和 列 总 计 的 显示 状态 。 这 两 个 属 
性 都 返回 或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 表示 显示 总 计 ， 如 果 为 False 则 表示 隐 
藏 总 计 。 

案例 10-6 不 显示 数据 透视 表 中 的 行 总 计 和 列 总 计 

下 面 的 代码 将 “商品 ”字段 移动 到 列 区 域 ， 将 “地 区 ”字段 移动 到 行 区域 ， 然 后 隐藏 行 总 
计 和 列 总 计 ， 如 图 10-16 所 示 。 

Sub 隐藏 行 总 计 和 列 总 计 () 

Dim pvt As PivotTable 
Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 
With pvt 
.PivotFields ("商品 ") .Orientation = xlColumnField 
.PivotFields ("地 区 ") .Orientation = xlRowField 
.RowGrand = False 
.ColumnGrand = False 


End With 
End Sub 
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A 


B [oo 


负责 人 (全 部 ) 


4 销售 额 商品 了 
地 区 -冰箱 电脑 
北京 
7 成 都 





案例 10-7 ”使 用 货币 格式 显示 销售 额 
的 代码 将 值 区 域 中 的 “销售 额 ” 字 段 中 包含 的 数据 设置 为 货币 格式 ， 如 图 10-17 所 示 。 
由 于 在 前 面 案例 中 对 “销售 额 ” 字 段 进行 过 重 命名 而 使 其 末尾 包含 一 个 空格 ， 





下 下 


























电视 空调 


洗衣 机 


11491200 9222600 8368500 2668600 11762900 
10642800 24948900 20702500 5957600 5538500 
4768400 19801800 1886500 8351200 8409400 
12034400 17447700 3353000 3808200 8578500 
7543200 “7592400 10832500 3663000 6119900 
9634800 8527200 10472000 9035400 3209100 
13078800 31008000 4480000 1106600 6024900 
9956800 23352900 9457000 10029800 5635400 
4197200 8088300 12855500 8593200 5844400 
4029200 2969700 23355500 5027000 “5882400 
11197200 14774400 16996000 8465600 3919700 
7509600, 22321200 9733500 3058000 2857600 
7568400 12123900 4480000 5951000 10602000 
8962800 12386100 14283500 9015600 4563800 
5454400 20924700 8452500 7581200 4022300 





图 10-16 隐藏 行 总 计 和 列 总 计 


10.2.7 ”设置 数据 的 数字 格式 


可 以 为 值 区 域 中 的 数据 设置 数字 格式 ， 比 如 为 表示 金额 的 数字 设置 货币 格式 。 使 用 
PivotField 对 象 的 NumberFormat 属性 可 以 为 数据 设置 数字 格式 ， 该 格式 设置 的 方法 与 Excel 中 
的 “设置 单元 格格 式 ” 对 话 框 “数字 ”选项 卡 中 的 设置 相同 。 


码 中 引用 该 字段 时 也 要 包含 对 应 的 空格 。 





Sub 设置 数据 的 数字 格式 () 


Dim pvt As PivotTable 
Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 


pvt.PivotFields ("销售 额 ") .NumberFormat = " 半 #,##0.00; 半 一 #,##0 .00" 


End Sub 
A B 

负责 人 (全部) = 
销售 额 商品 3 
地 区 -冰箱 
北京 ¥11,491,200.00 

7 | 成 都 ¥10,642.800.00 
大 连 ¥4,768.400.00 
广州 
哈尔滨 
济南 

2 | 上 海 ¥13.078,800.00 
沈阳 ¥ 9.956.800.00 
石家庄 ¥4,197,200.00 

5 | 太原 ¥ 4.029,200.00 
天 津 ¥11,197.,200.00, 
武汉 ¥7.,509.600.00 
长 春 ¥7.,568,400.00 
长 沙 ¥ 8,962.800.00 
重庆 ¥5,454,400.00 





"206。 





电脑 
¥9.222.600.00 
¥24.948.90000 
¥19,801,800.00 
¥17,447,700.00 
¥7,592.400.00 
¥ 8,527.,200.00 
¥ 31,008,000.00 
¥23.352.900.00 
¥8,088,300.00 
¥2.969.700.00 
¥14.774.40000 
¥22.321,20000 
¥12,123.90000 
¥12.386,10000 
¥20924.70000 


电视 


¥ 8,368,500.00 
¥ 20,702,500.00 
¥1.886,500.00 
¥3,353,000.00 
¥10,832,500.00 
¥10,472,000.00 
¥ 4,480,000.00 
¥9.457.000.00 
¥ 12.855,500.00 
¥23,355,500.00 
¥16,996,000.00 
¥9.733,500.00 
¥ 4.480,000.00 
¥14,283,500.00 
¥8.452,500.00 


空调 


洗衣 机 
¥2.668,600.00 ¥11,762.900.00 
¥5.957,600.00  ¥5,538,500.00 
¥8,351,20000  ¥8,409.40000 
¥3.808,20000  ¥8,578,500.00 
¥3,663.000.00 ¥6,119,.900.00 
¥9.035.400.00 ¥3,209,100.00 
¥1,106.60000  ¥6.024,900.00 

¥10,029.80000  ¥5.635.400.00 
¥8,593,200.00 _¥5,.844,.400.00 
¥5027.000.00  ¥5.882,400.00 
¥8,465,.600.00 ¥3,919,700.00 
¥3,058.00000  ¥2.857,600.00 
¥5.951,000.00 ¥10,602.000.00 
¥9.015.60000  ¥4,563,800.00 
¥7,581,20000  ¥4022,300.00 


图 10-17 将 数据 设置 为 货币 格式 














此 在 VBA 代 





第 10 章 ”使 用 PivotTable 对 象 处 理 数据 透视 表 


10.2.8 设置 数据 的 汇总 方式 


默认 情况 下 ，Excel 对 数据 透视 表 中 的 数值 型 数据 进行 自动 求 和 ,对 文本 型 数据 进行 自动 计 


案例 10-8 将 销售 额 的 汇总 方式 设置 为 求 最 大 值 
下 面 的 代码 将 销售 额 的 汇总 方式 改 为 最 大 值 ， 即 显示 每 种 商品 的 最 大 销售 额 ， 如 

















所 示 。 


Sub 设置 数据 的 汇总 方式 () 
Dim pvt As PivotTable 
Set pvt = Worksheets ("数据 透视 表 ") .PivotTables (1) 
pvt ,PivotFields ("销售 额 ") .Function = xlMax 





End Sub 
A B C D E F G 

1 

2 | 负责 人 (全 部 ) 二 

3 

4 最 大 值 项 :销售 额 商品 到 

5 地 区 二 冰箱 电脑 电视 空调 洗衣 机 

6 | 北京 ¥2,746,800.00 ¥5.614,500.00 ¥3,335.500.00 ¥1,381.600.00 ¥1,873,400.00 
7 | 成 都 ¥2,721,600.00 ¥5.563,200.00 ¥3,374,000.00 着 2162.60000 ¥1,795,500.00 
8 | 大 连 ¥2,696,400.00 ¥4520,100.00 ¥1.886,500.00 ¥2,109,80000 ¥1,822,100.00 
9 | 广州 ¥2,382,800.00 ¥3,887,.400.00 ¥3,353,000.00 ¥2,101,000.00 ¥1,445,900.00 
10 | 哈尔滨 ¥2,441,600.00 ¥4451,700.00 ¥2471.00000 ¥2,107,60000 ¥1,755,600.00 
11 | 济南 ¥2,707,600.00 ¥5,084,400.00 ¥3,181,500.00 ¥1977,800.00 ¥1,787,900.00 
12 | 上 海 ¥2.578,800.00 ¥5,295.300.00 ¥2,243,500.00 ¥1,106,600.00 ¥1,434,500.00 
13 | 沈阳 ¥2.018,800.00 ¥5,700,000.00 ¥2.,793.000.00 ¥2.,175,800.00 ¥1,643,500.00 
14 | 石家庄 ¥2,464,000.00 ¥4058,400.00 ¥3,374.000.00 ¥2,109,80000 ¥1,734,700.00 
15 | 太原 ¥2,458,400.00 ¥2.969,700.00 ¥3,321.500.00 ¥2.092,20000 ¥1,577,000.00 
16 | 天 津 ¥2,763,600.00 ¥5,329,500.00 ¥3,458,000.00 ¥2,182,40000 ¥1,531,400.00 
17 | 武汉 ¥2,654,40000 ¥5,175,600.00 ¥3.475,50000 ¥1,557,60000 ¥1,461,100.00 
18 | 长 春 ¥2.357,600.00 ¥4,987,500.00 ¥2.464.000.00 ¥1647,800.00 ¥1,896,200.00 
19 | 长 沙 ¥2.688,000.00 ¥4,542.900.00 ¥3,227.000.00 ¥2.076,800.00 ¥1.417,400.00 
20 | 重庆 ¥2,114,000.00 ¥5,466,300.00 ¥3,447,500.00 ¥2.,160,400.00 ¥1,660,600.00 
21 
22 
23 


图 10-18 将 销售 额 的 汇总 方式 由 求 和 改 为 求 最 大 值 


10.2.9 设置 数据 的 显示 方式 





数 。 可 以 根据 需要 改变 数据 的 运算 方式 ， 在 数据 透视 表 中 将 其 称 为 “汇总 方式 ”。 可 以 使 用 
PivotField 对 象 的 Function 属性 设置 数据 的 汇总 方式 。 


图 10-18 








默认 情况 下 ，Excel 对 数据 透视 表 中 的 数值 型 数据 进行 自动 求 和 ,对 文本 型 数据 进行 自动 计 





案例 10-9 设置 数据 的 计算 方式 
下 面 




















Sub 设置 数据 的 显示 方式 () 
Dim pvt As PivotTable 
Set pvt = Worksheets (" 数 据 透视 表 ") .PivotTables (1) 
pvt .PivotFields ("销售 额 ") .Calculation = xlPercentOfColumn 


pvt.ColumnGrand = True 
End Sub 


数 。 可 以 根据 需要 改变 数据 的 运算 方式 ， 在 数据 透视 表 中 将 其 称 为 “显示 方式 ”。 可 以 使 用 
PivotField 对 象 的 Calculation 属性 设置 数据 的 显示 方式 。 


的 代码 将 “销售 额 ” 字 段 中 的 数据 的 显示 方式 设置 为 占 同 列 数据 总 和 的 百分比 ， 并 显 
示 列 总 计 ， 以 便 分 析 同 一 种 商品 在 不 同 地 区 的 销售 比重 ， 如 图 10-19 所 示 。 
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A B C D E FE G 
a 
2 | 负责 人 (全 部 ) | 
3 
4 销售 额 商品 
5 地 区 -冰箱 电脑 电视 空调 洗衣 机 
6 | 北京 897% 392% 524% 289% 12.65% 
7 | 成 都 8.31% 10.59% 12.96% 6.45% 5.96% 
8 | 大 连 3.72% 8.41% 1.18% 9.05% 9.05% 
9 | 广州 9.40% 7.41% 2.10% 413% 9.23% 
10 | 哈尔滨 589% 322% 6.78% 397% 6.58% 
11 | 济南 752% 362% 656% 979% 3.45% 
12 | 上 海 1021% 1317% 281% 120% 6.48% 
13 | 沈阳 777% 992% 592% 10.87% 6.06% 
14 | 石家庄 328% 343% 805% 931% 6.29% 
15 | 太原 315% 126% 1462% 545% 6.33% 
16 | 天 津 8.74% 627% 10.64% 9.17% 422% 
17 | 武汉 5.86% 9.48% 6.09% 3.31% 3.07% 
18 | 长 春 5.91% 5.15% 281% 645% 11.40% 
19 | 长 沙 700% 526% 894% 9.77% 491% 
20 | 重庆 426% 889% 529% 821% 433% 
21 总 计 100.00% 100.00% 100.00% 100.00% 100.00% 
22 
23 
24 





图 10-19 设置 数据 占 同 列 数据 总 和 的 百分比 


10.2.10 ”刷新 数据 透视 表 


如 果 对 数据 源 中 的 数据 进行 了 修改 ， 那 么 可 以 通过 刷新 命令 使 修改 后 的 结果 反映 到 已 创建 
好 的 数据 透视 表 中 ， 以 便 与 数据 源 中 的 数据 保持 同步 。 下 面 的 代码 将 会 刷新 名 为 “数据 透视 表 ” 
的 工作 表 中 的 数据 透视 表 的 数据 。 


Worksheets ("数据 透视 表 ") .PivotTables (1) .RefreshTable 
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第 11 章 使 用 类 模块 创建 新 的 对 象 


在 Excel 中 进行 编程 的 大 多 数 时 间 都 是 在 处 理 不 同类 型 的 对 象 ， 比 如 代表 Excel 工作 矢 的 
Workbook 对 象 。Excel 提供 了 大 量 的 内 置 对 象 ， 这 些 对 象 构成 了 Excel 对 象 模型 ， 以 供用 户 操 
作 Excel 的 各 个 部 分 。 虽然 在 处 理 大 多 数 任务 时 通常 不 需要 额外 创建 新 的 对 象 , 但 是 Excel 仍然 
为 用 户 提供 了 创建 新 对 象 的 机 制 一 一 类 模块 。 本 章 将 介绍 如 何 使 用 类 模块 创建 新 对 象 及 其 属性 
和 方法 ， 还 介绍 了 在 VBA 中 使 用 创建 的 新 对 象 的 方法 。 





























11.1 类 和 类 模块 简介 


类 模块 是 VBA 中 一 种 特殊 类 型 的 模块 ， 可 以 在 VBA 工程 中 插入 类 模块 ， 并 在 类 模块 中 编 
写 代码 ， 从 而 创建 新 的 对 象 所 属 的 类 。 实 际 上 在 类 模块 中 创建 的 是 类 而 不 是 对 象 ， 新 对 象 是 在 
实际 使 用 中 基于 类 而 创建 的 ， 不 同 的 类 创建 不 同 的 对 象 。 在 对 象 浏览 器 的 “类 ”列表 中 显示 的 
都 是 对 象 所 属 的 类 , 在 实际 使 用 中 需要 基于 这 些 类 来 创建 它们 的 实例 , 这些 实 例 就 是 类 的 对 象 。 

例如 , 在 使 用 Excel 内 置 的 Workbook 对 象 之 前 , 需要 先 声明 一 个 类 型 为 Workbook 的 变量 ， 
然后 使 用 Set 语 名 将 Workbook 对 象 的 实例 赋值 给 该 变量 下面 的 代码 首先 声明 了 一 个 Workbook 
类 型 的 变量 wkb， 然 后 将 当前 活动 工作 筹 赋值 给 该 变量 。 其 中 的 Workbook 就 是 一 个 表示 工作 
短 的 类 ， 而 wkb 就 是 从 Workbook 类 创建 出 来 的 对 象 ， 该 对 象 被 赋值 为 ActiveWorkbook 之 后 就 
可 以 代表 活动 工作 短 。 之 后 就 可 以 使 用 Workbook 类 包含 的 属性 和 方法 来 处 理 活动 工作 憩 。 


Dim wkb As Workbook 
Set wkb = ActiveWorkbook 


可 以 使 用 类 模块 创建 用 户 自己 的 类 ， 并 为 类 添加 所 需 的 属性 和 方法 ， 在 实际 应 用 中 新 建 类 
的 工作 方式 与 Excel 内 置 的 类 (如 Workbook) 类 似 .VBA 工程 中 的 ThisWorkbook 模块 和 Sheetl 、 
Sheet2 等 模块 是 比较 特殊 的 类 模块 。 
在 Excel VBA 中 进行 的 大 多 数 编程 任务 通常 都 不 需要 涉及 类 模块 的 操作 ， 但 是 在 完成 以 下 
几 类 特定 任务 时 则 必须 使 用 类 模块 : 
口 捕获 和 使 用 应 用 程序 事件 。 
口 捕获 和 使 用 嵌入 式 图 表 事件 。 
口 同时 处 理 多 个 同类 控件 的 事件 。 
口 创建 可 易于 被 其 他 工程 使 用 的 可 重用 组 件 。 
口 封装 复杂 的 代码 ， 比 如 包含 API 函数 的 Sub 过 程 。 
在 VBA 中 可 以 使 用 以 下 两 种 方法 插入 类 模块 : 
口 在 VBE 窗口 显示 出 工程 资源 管理 器 , 选择 要 插入 类 模块 的 VBA 工程 中 的 任意 一 项 , 然 
后 单 击 菜单 栏 中 的 “插入 ”|“ 类 模块 ”命令 。 
口 在 VBE 窗口 显示 出 工程 资源 管理 器 , 然后 在 要 插入 类 模块 的 VBA 工程 中 的 任意 一 项 上 
右 击 ， 在 弹出 的 菜单 中 选择 “插入 ”|“ 类 模块 ”命令 。 
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11.2 创建 类 


本 节 将 通过 一 个 实例 来 介绍 创建 类 的 基本 方法 ， 包 括 创建 基本 的 类 以 及 创建 类 的 属性 和 
方法 。 关 于 使 用 类 模块 捕获 和 使 用 应 用 程序 事件 与 嵌入 式 图 表 事 件 的 内 容 ， 将 在 第 12 章 中 进 
行 介绍 。 


11.2.1 创建 基本 的 类 


本 节 将 创建 一 个 表示 员工 的 类 ， 该 类 包含 3 个 属性 和 1 个 方法 。 本 例 中 的 员工 类 的 名 称 为 
CEmployee， 它 的 3 个 属性 是 Name、Hours 和 Rate， 分 别 用 于 记录 员工 的 姓名 、 加 班 时 长 和 加 
班 费 等 级 。 该 类 包含 一 个 Pay 方法 ， 用 于 根据 工作 时 长 和 薪水 等 级 来 计算 员工 每 周 的 加 班 费 。 

创建 一 个 类 的 首要 工作 是 在 VBA 工程 中 插入 一 个 类 模块 , 然后 修改 其 名 称 。 类 模块 的 名 称 
就 是 要 创建 的 类 的 名 称 。 

案例 11-1 创建 基本 的 类 并 为 其 命名 

使 用 上 一 节 介 绍 的 方法 在 VBA 工程 中 插入 一 个 类 模块 ， 在 工程 资源 管理 器 中 选择 该 类 模 
块 ， 然 后 按 F4 键 打开 属性 窗口 ， 其 中 显示 了 该 类 模块 的 属性 。 在 属性 窗口 中 选择 “( 名 称 )”， 
然后 在 其 右 侧 输入 新 的 名 称 “CEmployee”， 按 Enter 键 确 认 修 改 ， 如 图 11-1 所 示 。 



























































图 11-1 设置 类 模块 的 名 称 


11.2.2 创建 类 的 属性 


通过 对 象 的 属性 可 以 改变 对 象 的 特性 。 创 建 类 的 属性 的 最 简单 方法 是 在 类 模块 中 使 
Public 关键 字 声 明 变量 ， 这 些 变量 将 作为 类 的 属性 。 使 用 Public 关键 字 声 明 的 变量 是 工程 级 变 
量 ， 可 被 工程 中 的 其 他 过 程 访问 ， 因 此 这 些 变量 所 代表 的 属性 都 是 可 读 写 的 ， 即 既 可 以 设置 这 
些 属性 的 值 ， 也 可 以 获取 这 些 属 性 中 的 值 。 

案例 11-2 ”使 用 Public 关键 字 为 类 创建 简单 的 可 读 写 属性 

下 面 的 代码 位 于 CEmployee 类 模块 中 ， 使 用 Public 关键 字 声明 了 3 个 变量 ,这 3 个 变量 
作 CEmployee 类 的 可 读 写 属 性 ， 如 图 11-2 所 示 。 
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第 11 章 ， 使 用 类 模块 创建 新 的 对 象 


Public Name Rs String 
Public Hours As Double 
Public Rate Rs Double 





人 Microsoft Visual Basic for Applications - 守 例 11-2.xlsm 一 口 x 
文件 昌 ”编辑 (E) ”视图 VW 插入 由 ”格式 (QO) 请 坛 D) 运行 R) 工具 中 ”外接 程序 A) 音 D 帮助 
国 国 - 回 

~ VBAProject 
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er 村 As loyee, strlse As String 
































“8 clsEnp. Hane & 


如 : E vbcrLE 
er 


























图 11-2 在 类 模块 和 标准 模块 中 的 代码 


下 面 的 代码 位 于 一 个 标准 模块 中 ， 声 明了 一 个 CEmployee 类 型 的 变量 clsEmp， 然 后 在 Set 

语句 使 用 New 关键 字 将 该 类 的 一 个 实例 赋值 给 clsEmp 变量 。 然 后 分 别 设置 对 象 的 Name 属性 、 

Hours 属性 和 Rate 属性 ， 最 后 在 对 话 框 中 显示 包含 各 个 属性 值 的 汇总 信息 ， 如 图 11-3 所 示 。 
Sub 使 用 Public 关键 字 为 类 创建 简单 的 可 读 写 属性 () 


Dim clsEmp As CEmployee, strMsg As String 
Set clsEmp = New CEmployee 
clsEmp.Name = " 尚 品 科技 " 
clsEmp .Hours = 16 
clsEmp.Rate = 20 
strMsg = "员工 姓名 : " & clsEmp.Name & vbCrLf 
strMsg = strMsg & "工作 时 长 : " & clsEmp.Hours & "小 时 " & vbCrLf 
strMsg = strMsg & "薪水 等 级 : " & clsEmp.Rate & "元 /小 时 " 
MsgBox strMsg 
End Sub 














Microsoft Excel x 


员工 姓名 : 尚 品 科技 
工作 时 长 : 16 小 时 
属 水 等 级 : 20 元 /小 时 


11-3 ”获取 对 象 的 属性 值 
使 用 Public 关键 字 创建 类 的 属性 虽然 简单 ,但 是 只 能 单纯 地 为 属性 赋值 或 从 属性 中 读 取 值 ， 
属性 自身 不 具备 任何 检测 与 控制 功能 。 如 果 希 望 对 类 的 属性 进行 更 多 的 内 部 控制 ， 则 需要 使 用 
Property 过 程 创 建 类 的 属性 。 在 Property 过 程 内 部 可 以 通过 编写 代码 来 检测 和 控制 属性 的 值 ， 
从 而 可 以 将 属性 的 值 限定 在 一 个 特定 的 范围 内 ， 而 不 是 任意 值 。Property 过 程 有 以 下 3 种 形式 : 
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口 Property Get 过 程 : 该 过 程 用 于 获取 属性 的 值 。 与 Function 过 程 有 返回 值 类 似 ，Property 
Get 过 程 可 以 返回 值 ， 即 实际 使 用 时 从 属性 获取 到 值 。 创 建 Property Get 过 程 时 需要 为 
其 返回 值 指定 数据 类 型 。 

口 Property Let 过 程 : 该 过 程 用 于 为 属性 赋值 。 通 常 包含 至 少 一 个 参数 ， 用 于 接收 用 户 的 
输入 以 便 为 属性 赋值 。 为 Property Let 过 程 的 参数 指定 的 数据 类 型 应 该 与 Property Get 

过 程 的 返回 值 的 数据 类 型 相同 。 

口 Property Set 过 程 : 该 过 程 与 Property Let 过 程 类 似 ， 但 是 用 于 处 理 对 象 而 不 是 普通 值 。 
使 用 Property 过 程 创建 类 的 属性 时 ， 需 要 在 类 模块 中 使 用 Private 关键 字 声 明 模块 级 变量 ， 

以 便 在 不 同 的 Property 过 程 之 间 传 递 数据 ， 从 而 实现 属性 的 赋值 与 返回 值 。 如 果 一 个 属性 是 可 

读 写 的 ， 那 么 该 属性 则 会 同时 包含 Property Get 和 Property Let 两 个 过 程 。 如 果 一 个 属性 只 有 

Property Get 过 程 ， 则 该 属性 是 只 读 属性 ， 不 能 为 其 赋值 。 


案例 11-3 ”使 用 Property 过 程 创建 类 的 属性 

下 面 的 代码 位 于 CEmployee 类 模块 中 , 使 用 Public 关键 字 创 建 CEmployee 类 的 Name 属性 ， 
该 属性 的 赋值 不 受 任何 限制 。 使 用 Property 过 程 创 建 CEmployee 类 的 Hours 和 Rate 属性 。 将 
Hours 属性 的 值 分 为 正常 工作 时 间 与 加 班 时 间 两 部 分 ，8 小 时 以 内 属于 正常 工作 时 间 , 超过 8 小 
时 属于 加 班 时 间 。 将 Rate 属性 的 值 限制 在 10 一 50。NormalHours 和 OverTimeHours 两 个 属性 用 
于 返回 正常 工作 时 间 和 加 班 时 间 ， 它 们 是 只 读 属 性 ， 因 为 各 自 只 有 一 个 Property Get 过 程 。 在 
实际 使 用 中 只 能 为 Hours 属性 赋值 ， 然 后 由 其 内 部 的 代码 对 输入 的 时 间 进 行 处 理 ， 最 后 得 到 
NormalHours 和 OverTimeHours 两 个 属性 的 值 ， 并 返回 给 用 户 。 


Public Name As String 

Private dblHours As Double 

Private dblRate As Double 

Private dblNormalHours As Double 
Private dblOverTimeHours As Double 
































































































































Property Let Hours (dblInputHours As Double) 
If dblIinputHours < 8 Then 
dblNormalHours = dblInputHours 
Else 
dblNormalHours = 8 
dblOverTimeHours = dblInputHours - 8 
End If 
End Property 


Property Get Hours() As Double 
Hours = dblNormalHours + dblOverTimeHours 
End Property 


Property Get NormalHours() As Double 
NormalHours = dblNormalHours 
End Property 


Property Get OverTimeHours() As Double 
OverTimeHours = dblOverTimeHours 
End Property 


Property Let Rate(dblInputRate As Double) 
If dblInputRate < 10 Or dblInputRate > 50 Then 
Exit Property 
Else 
dblRate = dblInputRate 
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End If 


End Property 


PE 


operty Get Rate () As Double 
Rate = dblRate 


End Property 


下 面 





的 代码 位 于 一 个 标准 模块 中 ， 与 上 一 个 案例 中 的 代码 基本 类 似 ， 唯 一 区 别 是 在 最 后 显 























示 的 汇 4 


这 两 个 





总 信息 中 , 使 用 只 读 属性 NormalHours 和 OverTimeHours 返回 正常 工作 时 间 和 加 班 时 间 ， 
时 间 是 由 用 户 为 Hours 属性 设置 的 时 间 自 动 计算 得 到 的 ， 如 图 11-4 所 示 。 
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Sub 使 用 Property 过 程 创建 类 的 属性 () 


Dim clsEmp As CEmployee, strMsg As String 

Set clsEmp = New CEmployee 

clsEmp.Name = " 尚 品 科技 " 

clsEmp.Rate = 20 

clsEmp.Hours = 12 

strMsg = "员工 姓名 : " & clsEmp.Name & vbCrLf 

strMsg = strMsg & "正常 工作 时 间 : " & clsEmp.NormalHours & "小 时 " & vbCrLf 
strMsg = strMsg & "加 班 时 间 : " & clsEmp.OverTimeHours & "小 时 " 

MsgBox strMsg 


End Sub 





Microso ft Excel x 


员工 姓名 : 尚 品 科技 
正常 工作 时 间 : 8 小 时 
加 班 时 间 : 4 小 时 


CC 


图 11-4 使 用 Property 过 程 创建 类 的 属性 











11.2.3 创建 类 的 方法 


与 


创建 类 的 属性 相 比 ， 创 建 类 的 方法 则 显得 没有 那么 复杂 。 在 类 模块 中 包含 的 Sub 过 程 或 


Function 都 将 作为 类 的 方法 ， 它 们 之 间 的 唯一 区 别 是 方法 是 否 需 要 返回 值 。 类 模块 中 的 Sub 过 


程 是 没 

到 
性 中 的 
任何 有 




















Pul 


En 











有 返回 值 的 类 的 方法 ， 而 Function 过 程 则 是 包含 返回 值 的 类 的 方法 。 

目前 为 止 ， 为 CEmployee 类 创建 了 3 个 属性 ， 可 以 为 这 些 属 性 赋值 ， 也 可 以 获取 这 些 属 
值 并 显示 在 指定 的 提示 信息 中 。 由 于 CEmployee 类 还 没有 方法 ， 因 此 还 无 法 对 该 类 执行 
实际 意义 的 操作 。 
面 将 为 CEmployee 类 创建 一 个 Pay 方法 ， 用 于 计算 员工 的 薪水 。 薪 水 的 计算 方式 分 为 两 
， 一 部 分 是 正常 工作 时 间 的 薪水 ， 使 用 正常 工作 时 间 与 薪水 等 级 的 乘积 得 到 。 另 一 部 分 
时间 的 薪水 ， 加 班 时 间 的 薪水 比 正常 薪水 多 1 倍 ， 使 用 加 班 时 间 与 2 倍 薪 水 等 级 的 乘积 
























































例 11-4 创建 一 个 计算 员工 薪水 的 类 
面 的 代码 位 于 CEmployee 类 模块 中 ， 使 用 Public 关键 字 创 建 名 为 Pay 的 Function 过 程 ， 
时 间 薪 水 与 加 班 时 间 薪 水 总 和 的 公式 的 计算 结果 赋值 给 函数 名 Pay， 以 使 该 函数 包含 返 




















blic Function Pay() As Double 
Pay = dblNormalHours * Rate + dblOverTimeHours * Rate 2 
d Function 
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下 面 的 代码 位 于 一 个 标准 模块 中 ， 为 CEmployee 对 象 的 各 个 属性 赋值 ， 


方法 计算 员工 的 薪水 ， 并 显示 在 汇总 信息 中 ， 如 图 11-5 所 示 。 














Sub 创建 类 的 方法 () 
Dim clsEmp Rs CEmployee, strMsg As String 
Set clsEmp = New CEmployee 
clsEmp.Name = " 尚 品 科技 " 
clsEmp.Rate = 20 
clsEmp .Hours = 12 




















该 对 象 的 Pay 


strMsg = "员工 姓名 : " & clsEmp.Name & vbCrLf 





strMsg = strMsg & "正常 工作 时 间 : " & clsEmp.NormalHours & "小 时 " & vbCrLf 
strMsg = strMsg & "加 班 时 间 : " & clsEmp.OverTimeHours & "小 时 " & vbCrLf 
strMsg = strMsg & "薪水 等 级 : " & clsEmp.Rate & "元 /小 时 " & vbCrLf 
strMsg = strMsg & "应 得 薪水 : " & clsEmp.Pay & "元 " 
MsgBox strMsg 
End Sub 

Microsoft Excel x 

员工 姓名 : 沿 品 科技 

正常 工作 时 间 : 8 小 时 

加 班 时 间 : 4 小 时 

于 水 等 级 : 20 元 /小 时 

应 得 薪水 : 320 元 
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图 11-5 创建 类 的 方法 
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对 象 除了 具有 属性 和 方法 之 外 ， 还 具有 可 以 响应 用 户 操作 的 事件 。 通 过 为 对 象 的 事件 编写 
VBA 代码 ， 可 以 在 用 户 执行 特定 操作 时 自动 执行 相应 的 代码 ， 从 而 实现 对 用 户 操作 的 自动 化 处 
理 ， 而 不 必 手 动 运行 指定 的 代码 。 本 章 将 详细 介绍 在 VBA 中 编写 事件 代码 所 需 了 解 的 知识 ， 
以 及 Excel 中 的 不 同 对 象 所 包含 的 事件 及 其 具体 应 用 。 





























12.1 事件 编程 基础 
本 节 将 介绍 VBA 事件 相关 的 一 些 基础 知识 ,它们 是 在 开始 编写 事件 代码 前 需要 了 解 的 内 容 。 


12.1.1 ”Excel 中 的 事件 类 型 


Excel 为 不 同 的 对 象 提供 了 大 量 可 用 的 事件 ， 当 用 户 对 这 些 对 象 执行 特定 操作 时 ， 如 果 事先 
为 相应 的 事件 编写 了 VBA 代码 ， 这 些 代码 就 会 在 用 户 执行 操作 时 自动 运行 。 在 Excel 中 主要 包 
括 应 用 程序 事件 、 工 作 短 事件 、 工 作 表 事件 、 图 表 工 作 表 事 件 、 嵌 入 式 图 表 事 件 、 用 户 窗 体 和 
控件 事件 ， 各 类 事件 的 简要 说 明 如 下 。 
口 应 用 程序 事件 : 应 用 程序 事件 监视 在 Excel 运行 期 间 发 生 的 操作 ， 它 针对 的 是 任意 一 个 
工作 敌 ， 而 不 是 特定 的 某 个 工作 短 。 如 果 希 望 在 触发 不 同 工 作 敌 中 的 相同 事件 时 执行 指 
定 的 操作 ， 比 如 在 新 建 或 打开 任意 一 个 工作 夭 时 显示 特定 的 信息 ， 那 么 就 需要 使 用 应 用 
程序 事件 。 默认 情况 下 无 法 使 用 应 用 程序 事件 ， 只 有 在 类 模块 和 标准 模块 中 编写 少量 代 
码 后 才能 使 用 应 用 程序 事件 。 
口 工作 短 事 件 : 工作 矢 事 件 只 作用 于 特定 工作 短 中 的 操作 ， 包 括 工作 矢 自 身 的 操作 ， 以 及 
工作 竹中 任意 一 个 工作 表 的 操作 。 
工作 表 事 件 : 工作 表 事件 只 作用 于 特定 工作 表 中 的 操作 ， 而 不 是 任意 一 个 工作 表 。 
表 工 作 表 事件 : 图 表 工 作 表 事 件 只 作用 于 特定 图 表 工 作 表 中 的 操作 。 
入 式 图 表 事件 : 嵌入 式 图 表 事件 只 作用 于 特定 嵌入 式 图 表 的 操作 。 与 应 用 程序 事件 类 
似 ， 默 认 无 法 使 用 嵌入 式 图 表 事件 ， 需 要 在 类 模块 和 标准 模块 中 编写 少量 代码 后 才能 使 
撕 入 式 图 表 事件 。 
口 用 户 窗 体 和 控件 事件 : 用 户 窗 体 和 控件 事件 只 作用 于 特定 用 户 窗 体 和 控件 的 操作 。 


12.1.2 ”事件 代码 的 存储 位 置 与 输入 方法 


不 同 对 象 的 事件 代码 存储 在 不 同 的 位 置 ， 具 体 如 下 : 

口 应 用 程序 事件 的 代码 存储 在 用 户 创建 的 类 模块 中 。 只 有 在 类 模块 和 标准 模块 中 编写 少量 
的 代码 之 后 ， 才 能 使 用 应 用 程序 事件 。 

[ 作 短 事件 的 代码 存储 在 与 工作 短 关 联 的 ThisWorkbook 模块 中 。 

[ 作 表 事件 的 代码 存储 在 与 工作 表 关 联 的 Sheet1、Sheet2 等 模块 中 。 
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口 图 表 工作 表 事件 的 代码 存储 在 与 图 表 工 作 表 关联 的 Chartl、Chart2 等 模块 中 。 
口 嵌入 式 图 表 事件 的 代码 存储 在 用 户 创建 的 类 模块 中 。 嵌入 式 图 表 事 件 与 应 用 程序 事件 类 






































其 的 代码 模块 中 。 

















输入 事件 代码 时 ， 必 须 将 事件 代码 输入 到 事件 所 属 的 对 象 的 代码 模块 中 。 例 如 ， 久 
输入 Sheetl 工作 表 的 事件 代码 ， 则 需要 在 VBE 窗口 的 了 
关联 的 代码 模块 (比如 Sheetl ) ， 打 开 对 应 的 代码 窗口 。 

在 窗口 顶部 左 侧 的 下 拉 列 表 中 选择 “Worksheet”， 如 图 12-1 所 示 。 此 
事件 过 程 的 代码 框架 , 它 由 包含 事件 过 程 声 明 的 两 行 代码 组 成 , 与 第 2 章 介绍 的 声明 普通 的 Sub 
过 程 的 格式 类 似 ， 只 不 过 事件 过 程 以 Private 关键 字 开 头 ， 说 明 是 私有 过 程 。 习 




















似 ， 也 需要 在 类 模块 和 标准 模块 中 编写 少量 代码 之 后 才能 正常 使 用 。 
口 用 户 窗 体 和 控件 事件 的 代码 存储 在 与 用 户 窗 体 关 联 的 代码 模块 中 。 如 
表 或 图 表 工作 表 中 , 那么 控件 事件 的 代码 存储 在 与 包含 该 控件 的 工作 表 或 图 表 











果 控 件 嵌 入 到 工作 


























[ 程 资源 管理 器 中 双击 与 Sheetl 








了 件 过 程 的 名 称 


作 表 


果 想 要 
工作 表 


时 会 自动 输入 默认 




















“对 象 名 ”+“ 事 件 名 ”组 成 ， 两 个 名 称 之 间 使 用 下 画 线 分 隔 ， 比 如 Worksheet SelectionChange。 


Private Sub Worksheet SelectionChange (ByVal Target Rs Range) 


End Sub 





罗 委 12 宣 xsm - sheetl (三 ) 
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图 12-1 在 左 侧 下 拉 列 表 中 选择 事件 所 属 的 





对 象 
如 果 默 认输 入 的 事件 不 是 想 要 使 用 的 事件 ， 则 可 以 在 代码 窗口 顶部 右 侧 的 下 拉 列 表 中 


其 他 事件 ， 如 图 12-2 所 示 。 






























































图 12-2 选择 所 需 的 事件 
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选择 


12.1.3 


与 普通 的 Sub 过 程 类 似 ， 事 件 过 程 也 可 以 包含 一 个 或 多 个 参数 ， 大 多 数 参 数 都 采用 
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包含 参数 的 事件 
































传 值 方 式 来 传递 数据 。 下 面 显 示 的 是 工作 短 的 SheetChange 事件 过 程 的 框架 : 


Private Sub Workbook SheetChange (ByVal Sh As Object, ByVal Target As Range) 


End Sub 


在 该 事件 过 程 名 称 右 侧 的 括号 中 包含 两 个 参数 Sh 和 Target， 两 个 参数 的 传递 方式 都 是 


ByVal 传 值 ， 将 Sh 参数 声明 为 Object 一 般 对 象 类 型 ， 将 Target 参数 声明 为 Range 特定 对 象 类 





ByVal 





型 。Sh 参数 表示 工作 短 中 的 某 个 工作 表 ，Target 参数 表示 工作 表 中 的 单元 格 或 单元 格 区 域 。 与 
普通 Sub 过 程 中 的 参数 的 作用 类 似 ， 事 件 过 程 中 的 参数 也 用 于 传递 所 需 的 数据 。 


案例 12-1 使 用 包含 参数 的 事件 过 程 


下 面 


中 的 某 个 单元 格 执行 编辑 操作 后 ， 将 在 对 话 框 中 显示 刚 编辑 过 的 单元 格 地 址 及 其 所 属 的 了 

















多 代码 放置 在 本 例 工作 簿 的 SheetChange 事件 过 程 中 。 当 对 该 工作 短 中 的 某 个 了 








的 名 称 ， 如 图 12-3 所 示 。 


Private Sub Workbook SheetChange (ByVal Sh As Object, ByVal Target Rs Range) 
MsgBox " 刚 编 辑 的 是 "”& Sh.Name & "工作 表 中 的 " & Target.Address (0，0) & "单元 格 " 

















End Sub 
Microsof ft Excel x 
刚 六 名 的 是 Sheet1 工 作 雪 中 的 C3 单 元 格 
图 12-3 包含 参数 的 事件 过 程 的 一 个 简单 案例 
很 多 事件 过 程 都 包含 一 个 名 为 Cancel 的 参数 , 该 参数 是 一 个 Boolean 类 型 的 值 , 如果 为 True 














则 取消 事件 过 程 ， 如 果 为 False 或 不 进行 设置 ， 则 按 正常 方式 执行 事件 过 程 。 
案例 12-2 ”使 用 事件 过 程 中 的 Cancel 参数 





下 面 


瑟 











True。 在 了 
击 “ 取 消 ”按钮 将 取消 打印 。 











[ 作 夭 中 执行 打印 命令 时 将 显示 如 图 12-4 所 示 的 对 话 框 ,询问 用 户 是 否 进行 打 晶 





Private Sub Workbook BeforePrint (Cancel As Boolean) 
Dim lngAns As Long 
lngAns = MsgBox ("要 打印 吗 ? "，vibOKCancel) 
If lngAns = vbCancel Then 


Cancel = True 


End If 
End Sub 











图 12-4 ”使 用 Cancel 参数 控制 是 否 取消 事件 过 程 





























他 
的 代码 位 于 工作 德 的 BeforePrint 事件 过 程 中 ， 在 该 事件 过 程 中 将 Cancel 参数 设置 为 下 


ph， 单 
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12.1.4 事件 触发 的 先后 顺序 

Excel 包含 大 量 的 事件 ， 不 同 对 象 既 拥有 不 同 的 事件 ， 也 拥有 相同 的 事件 。 用 户 的 某 些 操作 
会 触发 不 同 对 象 的 同一 个 事件 ， 另 一 些 操作 会 触发 同一 个 对 象 的 多 个 事件 。 这 些 事件 具有 预先 
指定 的 先后 顺序 。 例 如 ， 在 工作 短 中 添加 新 工作 表 时 ， 将 会 按 先后 顺序 依次 触发 以 下 3 个 工作 





夭 事 件 : 

















口 先 触发 NewSheet 事件 ， 在 工作 短 中 新 建 工 作 表 时 先 触发 该 事件 。 















































口 再 触发 SheetDeactivate 事件 : 执行 新 建 工 作 表 的 操作 后 ， 原 来 处 于 活动 状态 的 工作 表 将 


失去 焦点 。 


口 最 后 触发 SheetActivate 事件 ， 添加 的 工作 表 获 得 焦点 ， 成 为 活动 工作 表 。 
事件 的 执行 始终 遵循 由 低 到 高 的 顺序 ， 如 果 同 时 设置 了 工作 表 事 件 、 工 作 短 事 件 和 应 用 程 
序 事件 ， 工 作 表 事件 将 被 优先 执行 ， 然 后 是 工作 短 事 件 ， 最 后 是 应 用 程序 事件 。 

对 于 不 同 对 象 拥有 的 同一 个 事件 而 言 ， 事 件 触发 的 先后 顺序 遵循 最 小 范围 优先 原则 。 
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案例 12-3 不 












































同 对 象 的 同一 个 事件 的 触发 顺序 








应 用 程序 、 工 作 短 和 工作 表 都 包含 SelectionChange 事件 ， 如 果 在 这 3 个 对 象 的 该 事件 过 程 














中 输入 下 面 的 代码 ， 
表 的 SelectionChan， 

















那么 在 包含 该 事件 过 程 的 工作 表 中 改变 选择 的 单元 格 时 ， 将 会 先 触发 工作 
ge 事件 ， 然 后 触发 工作 短 的 SelectionChange 事件 ， 最 后 触发 应 用 程序 的 























SelectionChange 事件 。 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
MsgBox "触发 工作 表 事 件 " 


End Sub 


Private Sub Workbook SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range) 
MsgBox "触发 工作 簿 事件 " 


End Sub 


Private Sub xlsApp SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range) 
MsgBox "触发 应 用 程序 事件 " 


End Sub 


12.1.5 ”开启 与 关闭 事件 


在 用 户 执行 特定 操作 时 会 触发 与 该 操作 关联 的 事件 过 程 ， 并 自动 执行 其 中 包含 的 VBA 代 
码 。 这 种 机 制 为 自动 处 理 大 量 工作 带 来 了 方便 ， 并 且 可 以 让 程序 变 得 更 智能 。 

然而 对 于 某 些 操作 而 言 ， 这 种 自动 触发 事件 过 程 的 方式 可 能 会 带 来 一 些 问题 。 例 如 ， 在 编 
辑 单元 格 后 会 触发 工作 表 的 Change 事件 ， 此 时 如 果 Change 事件 过 程 中 的 代码 包含 改变 单元 格 


中 的 内 容 的 操作 , 丸 














人 么 就 会 再 次 触发 Change 事件 。 该 事件 过 程 中 的 代码 会 继续 编辑 单元 格 而 又 


一 次 触发 Change 事件 ， 这 种 连锁 反应 会 无 限 循环 下 去 ， 最 终 可 能 会 导致 Excel 崩溃 。 
避免 这 种 情况 的 方法 是 临时 关闭 事件 的 触发 机 制 ， 在 完成 指定 操作 后 ， 再 重新 开启 事件 的 
触发 机 制 。 为 此 需要 在 事件 过 程 中 设置 Application 对 象 的 EnableEvents 属性 , 将 其 设置 为 False 


表示 关闭 事件 触发 ， 
关闭 事件 触发 : 

















将 其 设置 为 True 表示 开启 事件 触发 。 


Application.EnableEvents = False 





开启 事件 触发 : 


Application.EnableEvents = True 


人 
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12.2 使 用 工作 簿 事件 

































































本 节 首 先 列 出 了 Excel 中 的 所 有 工作 敌 事 件 ， 然 后 介绍 其 中 一 些 常用 事件 的 具体 应 
12.2.1 工作 簿 包含 的 事件 
表 12-1 列 出 了 Excel 中 的 所 有 工作 敌 事 件 以 及 触发 事件 的 操作 。 
表 12-1 工作 簿 事件 
事件 名 称 触发 事件 的 操作 

Activate 激活 工作 簿 时 
AddinInstall 作为 加 载 项 安装 工作 短 时 
AddinUninstall 作为 加 载 项 卸载 工作 短 时 
AfterSave 保存 工作 短 之 后 


AfterXmlExport 
AfterXmlImport 
BeforeClose 
BeforePrint 
BeforeSave 
BeforeXmlExport 
BeforeXmlImport 
Deactivate 
NewChart 
NewSheet 

Open 
PivotTableCloseConnection 


PivotTableOpenConnection 


保存 或 导出 指定 工作 短 中 的 XML 之 后 
刷新 XML 数据 连接 或 导入 XML 之 后 
关闭 工作 夭 之 前 

打印 工作 短 之 前 

保存 工作 短 之 前 

保存 或 导出 指定 工作 适中 的 XML 之 前 
刷新 XML 数据 连接 或 导入 XML 之 前 
工作 短 由 活动 状态 转 为 非 活 动 状态 时 
在 工作 短 中 新 建 图 表 时 

在 工作 短 中 新 建 工 作 表 时 

打开 工作 禾 时 

关闭 数据 透视 表 与 其 数据 源 的 连接 之 后 
打开 数据 透视 表 与 其 数据 源 的 连接 之 后 






































RowsetComplete 在 OLAP 上 深化 记录 集 或 调用 行 集 操作 时 
SheetActivate 激活 任何 一 个 工作 表 时 

SheetBeforeDoubleClick 双击 任何 一 个 工作 表 时 ， 发 生 在 默认 的 双击 之 前 
SheetBeforeRightClick 右 击 任意 一 个 工作 表 时 ， 发 生 在 默认 的 右 击 之 前 
SheetCalculate 重新 计算 工作 表 时 

SheetChange 由 用 户 更 改 任意 一 个 工作 表 时 

SheetDeactivate 任意 一 个 工作 表 由 活动 状态 转 为 非 活动 状态 时 
SheetFollowHyperlink 单 击 Excel 中 的 任何 一 个 超 链接 时 








SheetPivotTableAfterValueChange 





在 编辑 或 重新 计算 数据 透视 表 中 的 单元 格 或 单元 格 








区 域 之 后 





SheetPivotTableBeforeAllocateChanges 





在 向 数据 透视 表 应 用 更 改 之 前 





SheetPivotTableBeforeCommitChanges 


在 针对 OLAP 数据 源 提 交 对 数据 透视 表 的 更 改 之 前 





SheetPivotTableBeforeDiscardChanges 


在 放弃 对 数据 透视 表 所 做 的 更 改 之 前 





SheetPivotTableChangeSync 





在 对 数据 透视 表 进行 更 改 之 后 
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续 表 
事件 名 称 触发 事件 的 操作 
SheetPivotTableUpdate 更 新 数据 透视 表 的 工作 表 之 后 
SheetSelectionChange 在 任意 一 个 工作 表 中 选择 单元 格 或 单元 格 区 域 时 
Sync 同步 工作 短 的 本 地 副本 与 服务 器 的 副本 时 
WindowActivate 激活 工作 短 窗 口 时 
WindowDeactivate 当 工 作 短 窗口 由 活动 状态 变 为 非 活 动 状态 时 











WindowResize 调整 任何 一 个 工作 短 窗 口 大 小 时 





12.2.2 Open 事件 


在 打开 指定 的 工作 短 时 将 会 触发 Open 事件 。 工作 敌 的 Open 事件 过 程 主要 用 于 对 工作 短 进 
行 初始 化 设置 ， 具 体 包括 以 下 几 个 方面 : 
口 显示 欢迎 信息 。 
口 激活 特定 的 工作 表 和 单元 格 。 
口 配置 工作 簿 的 界面 环境 。 
口 通过 验证 Excel 用 户 名 来 设置 工作 德 的 操作 权限 。 
案例 12-4 ”使 用 工作 答 的 Open 事件 显示 欢迎 信息 
: 下 面 的 代码 位 于 工作 禾 的 Open 事件 过 程 中 ， 在 用 户 打开 工作 短 时 自动 显示 “欢迎 使 用 本 
系统 ”的 提示 信息 。 
Private Sub Workbook Open() 
MsgBox Prompt:=" 欢 迎 使 用 本 系统 ! "，Title:=" 欢 迎 信 息 " 
End Sub 
案例 12-5 ”使 用 工作 簿 的 Open 事件 设置 用 户 的 操作 权限 
下 面 的 代码 位 于 工作 敌 的 Open 事件 过 程 中 ， 在 打开 工作 短 时 检查 Excel 的 用 户 名 是 否 是 
“admin”， 如 果 不 是 则 自动 关闭 该 工作 敌 。 


Private Sub Workbook Open() 
Dim strUserName As String 
strUserName = Application.UserName 
If LCase (sStrUserName) <> "admin" Then 
MsgBox "用 户 名 不 正确 ， 退 出 程序 ! " 
ThisWorkbook.Close False 
End If 
End Sub 


我 们 可 能 会 发 现 无 法 修改 本 例 工作 憩 中 的 代码 , 因为 如 果 用 户 计 算 机 中 的 Excel 程序 的 用 
户 名 不 是 admin (大 小 写 均 可 )， 在 每 次 打开 工作 筹 时 显示 一 个 提示 信息 后 就 会 自动 关闭 工作 
夭 。 为 了 能 编辑 工作 敌 中 的 代码 ， 可 以 在 打开 工作 夭 时 按 住 Shift 键 禁止 执行 工作 憩 的 Open 
事件 过 程 。 还 可 以 在 打开 工作 敌 并 显示 提示 信息 后 ， 按 Ctrl+Break (Pause) 组 合 键 进入 中 断 
模式 。 















































































































































12.2.3 Activate 事件 


在 打开 工作 敌后 或 者 激活 某 个 工作 敌 使 其 成 为 活动 工作 夭 时 ， 将 触发 工作 簿 的 Activate 事 
件 。 可 以 使 用 Activate 事件 过 程 对 激活 后 的 工作 矢 进 行 显示 方面 的 设置 。 
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案例 12-6 ”使 用 工作 往 的 Activate 事件 设置 工作 往 的 界面 显示 环境 





下 面 的 代码 位 于 工作 敌 的 Activate 事件 过 程 中 ， 在 激活 工作 短 使 其 成 为 活动 工作 敌后 ， 自 





























动 将 该 工作 短 的 窗口 最 大 化 显示 ， 并 隐藏 水 平 滚动 条 和 垂直 滚动 条 。 


Private Sub Workbook RActivate () 
ThisWorkbook.Windows (1) .WindowState = xlMaximized 
ThisWorkbook.Windows (1) .DisplayHorizontalScrollBar = False 
ThisWorkbook.Windows (1) .DisplayVerticalScrollBar = False 
End Sub 





12.2.4 ”Deactivate 事件 
在 以 下 几 种 情况 下 会 触发 工作 敌 的 Deactivate 事件 : 
口 打开 或 激活 一 个 工作 短 时 ， 之 前 处 于 活动 状态 的 工作 敌 将 会 触发 
口 将 工作 短 窗 口 最 小 化 。 
口 关闭 工作 敌 。 
案例 12-7 ”使 用 工作 簿 的 Deactivate 事件 


























Deactivate 事 


EY 



































下 面 的 代码 位 于 工作 德 的 Deactivate 事件 过 程 中 ， 当 工作 敌 成 为 非 活动 工作 簿 时 ， 恢 复工 








作 德 窗口 中 的 水 平 深 动 条 和 垂直 深 动 条 的 正常 显示 ， 并 自动 将 工作 短 窗 口 最 小 化 到 任务 栏 。 








Private Sub Workbook Deactivate() 
ThisWorkbook.Windows (1) .WindowState = xlMinimized 
ThisWorkbook.Windows (1) .DisplayHorizontalScrollBar = True 
ThisWorkbook.Windows (1) .DisplayVerticalScrollBar = True 

End Sub 


12.2.5 ”BeforeClose 事件 

















在 关闭 工作 敌 之 前 触发 工作 短 的 BeforeClose 事件 ， 该 事件 常 与 工作 夭 的 Open 事件 组 合 使 
































。 最 常见 的 一 个 应 用 是 在 Open 事件 中 编写 自 定义 工作 短 界 面 环境 的 代码 ， 以 便 在 打开 工作 











敌后 可 以 自动 加 载 并 配置 窗口 中 的 界面 显示 元 素 。 在 BeforeClose 事件 中 编写 移 除 自 定义 界面 元 


























素 的 代码 ， 从 而 确保 关闭 工作 短 时 可 以 自动 卸载 任何 自 定义 界面 元 素 。 











当 关 闭 一 个 未 保存 的 工作 短 时 会 弹出 是 否 保存 的 确认 对 话 框 ， 无 论 用 户 选择 是 否 保存 工作 
适 或 单 击 “ 取 消 ” 按 钮 返回 工作 夭 窗 口 ，BeforeClose 事件 都 已 被 触发 。 如 果 该 事件 过 程 用 于 移 
除 工 作 矢 中 临时 加 载 的 自 定义 菜单 和 命令 ， 那 么 在 用 户 单 击 “ 取 消 ” 按 钮 返回 工作 禾 窗 口 后 ， 























工作 矢 中 的 自 定义 菜单 和 命令 仍然 会 被 移 除 ， 这 并 不 是 我 们 希望 的 效果 。 


























避免 这 个 问题 的 方法 是 将 BeforeClose 事件 过 程 中 的 Cancel 参数 的 值 设 置 为 True， 以 便 





拦截 关闭 工作 短 时 弹出 的 是 否 保存 的 确认 对 话 框 ， 然 后 使 用 自己 编写 的 
闭 方式 。 


案例 12-8 使 用 BeforeClose 事件 过 程控 制 工作 筹 的 关闭 方式 


代码 控制 工作 簿 的 关 











下 面 的 代码 位 于 工作 敌 的 BeforeClose 事件 过 程 中 ， 当 关闭 未 保存 的 了 

















义 的 对 话 框 ， 如 图 12-5 所 示 ， 询 问 用户 是 否 保存 工作 短 ， 并 根据 用 户 在 对 话 框 中 的 选择 执行 不 同 “ 
的 操作 。 代 码 中 通过 Workbook 对 象 的 Saved 属性 的 值 来 判断 工作 矢 是 否 已 保存 ， 如 果 未 保存 则 





[ 作 敌 时 ， 会 显示 自 定 坟 








显示 自 定义 的 对 话 框 ， 并 将 MsgBox 的 返回 值 赋值 给 IngAns 变量 ， 然 后 使 
构 检 测 IngAns 变量 以 判断 用 户 单 击 的 是 哪个 按钮 。 如 果 单 击 “ 是 ”按钮 ， 

















] Select Case 判断 结 
则 执行 Workbook 对 








象 的 Save 方法 保存 工作 短 ; 如 果 单 击 “ 否 ”按钮 , 则 将 Workbook 对 象 的 Saved 属性 设置 为 True， 











让 Excel 认为 工作 短 已 保存 ， 如 果 单 击 “ 取 消 ”按钮 ， 则 将 BeforeClose 








事件 过 程 中 的 Cancel 
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参数 的 值 设 置 为 True， 取 消 关 闭 操作 并 退出 该 事件 过 程 ， 从 而 避免 在 未 关闭 工作 短 的 情况 下 意 
外 地 执行 了 其 他 代码 。 


Private Sub Workbook BeforeClose (Cancel As Boolean) 
Dim strMsg As String, lngAns As Long 
If Not ThisWorkbook.Saved Then 
strMsg = "是 否 保存 对 “" & ThisWorkbook.Name & "” 的 更 改 ? " 
lngAns = MsgBox (strMsg, vbInformation + vbYesNoCancel) 
Select Case lngAans 
Case vbYes: ThisWorkbook.Save 
Case vbNo: ThisWorkbook.Saved = True 
Case vbCancel 
Cancel = True 
Exit Sub 
End Select 
End If 
End Sub 











Microsoft Excel x 


0 旺 否 保存 对 -实例 12-8xsm 的 更 改 ? 








否 N) 取消 


图 12-5 自 定义 确认 保存 的 对 话 杠 

















12.2.6 ”BeforeSave 事件 


在 用 户 执 行 “保存 ”或 “另存 为 ”命令 时 将 会 触发 BeforeSave 事件 。BeforeSave 事件 过 程 
包含 两 个 参数 ，SaveAsUI 参数 用 于 确定 是 否 显示 了 “另存 为 ”对 话 框 ， 如 果 显示 了 该 对 话 框 ， 
则 SaveAsUI 参数 的 值 为 True， 否 则 为 False。BeforeSave 事件 过 程 的 另 一 个 参数 Cancel 用 于 控 
制 是 否 允 许 保存 工作 短 ， 该 参数 的 默认 值 为 False， 如 果 将 其 设置 为 True， 则 不 保存 工作 短 。 

案例 12-9 禁止 另存 工作 简 

下 面 的 代码 位 于 工作 短 的 BeforeSave 事件 过 程 中 ， 通 过 检查 SaveAsUI 的 值 是 否 为 True 来 
判断 用 户 是 否 执行 了 “另存 为 ”命令 ， 如 果 为 True 则 说 明 用 户 执行 了 “另存 为 ”命令 ， 此 时 将 
BeforeSave 事件 过 程 中 的 Cancel 参数 的 值 设 置 为 True， 从 而 取消 另存 工作 短 的 操作 。 


Private Sub Workbook BeforeSave (BYVal SaveAsUI As Boolean, Cancel As Boolean) 
If SaveAsUI = True Then Cancel = True 
End Su 


案例 12-10 ”禁止 保存 工作 筹 

下 面 的 代码 位 于 工作 短 的 BeforeSave 事件 过 程 中 , 通过 检查 SaveAsUI 的 值 是 否 为 False 来 
判断 用 户 是 否 执 行 了 “保存 ”命令 ， 如 果 为 False 则 说 明 用 户 执行 了 “保存 ”命令 ， 此 时 将 
BeforeSave 事件 过 程 中 的 Cancel 参数 的 值 设置 为 True， 从 而 取消 保存 工作 簿 的 操作 。 


Private Sub Workbook BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean) 
If SaveAsUI = False Then Cancel = True 
End Sub 


案例 12-11 禁止 保存 和 另存 工作 簿 


下 面 的 代码 位 于 工作 筹 的 BeforeSave 事件 过 程 中 , 通过 将 Cancel 参数 的 值 设置 为 True, 从 
而 完全 禁止 保存 和 另存 工作 敌 的 操作 。 为 了 避免 在 关闭 未 保存 的 工作 夭 时 弹出 是 否 保存 的 确认 
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对 话 框 ， 可 以 在 工作 筹 的 BeforeClose 事件 过 程 中 将 Workbook 对 象 的 Saved 属性 设置 为 True。 


Private Sub Workbook BeforeSave (ByVal SaveAsUI Rs Boolean, Cancel Rs Boolean 
Cancel = True 
End Sub 








Private Sub Workbook BeforeClose (Cancel Rs Boolean) 
ThisWorkbook.Saved = True 
End Sub 


12.2.7 ”BeforePrint 事件 


在 用 户 执 行 打印 操作 时 将 会 触发 BeforePrint 事件 。 BeforePrint 事件 过 程 包 含 一 个 Cancel 参 
数 ， 将 其 设置 为 True 可 以 取消 打印 操作 ， 该 用 法 已 在 12.1.3 节 介绍 过 。 

案例 12-12 ”打印 前 检查 数据 区 域 的 标题 是 否 填写 完 

下 面 的 代码 位 于 工作 敌 的 BeforePrint 事件 过 程 中 ， 在 执行 打印 前 检查 活动 工作 表 中 的 数据 
区 域 顶 部 的 标题 是 否 填写 完整 ， 如 果 缺 少 内 容 则 显示 预先 指定 的 提示 信息 并 取消 打印 操作 ， 如 
图 12-6 所 示 。 


Private Sub Workbook BeforePrint (Cancel As Boolean) 
Dim rng As Range, intCount As Integer 
Set rng = ActiveSheet .UsedRange 
intCount = rng.Rows (1) .Cells.Count 
If WorksheetFunction.CountRA(rng.Rows (1)) < intCount Then 
MsgBox "标题 内 容 不 完整 ， 无 法 打印 ! " 
Cancel = True 
End If 
End Sub 
































Microsoft Excel 


| 标题 内 容 不 完整 ,无 法 打印 ! 


Cw 





图 12-6 打印 前 检查 数据 区 域 的 标题 是 否 填写 完整 


12.2.8 SheetActivate 事件 


在 工作 短 中 激活 任意 一 个 工作 表 时 将 会 触发 工作 短 的 SheetActivate 事件 。SheetActivate 事 
件 过 程 包含 一 个 Sh 参数 ， 表 示 激 活 的 工作 表 。 该 参数 的 数据 类 型 是 Object， 因 为 激活 的 既 可 能 
是 工作 表 ， 也 可 能 是 图 表 工 作 表 。 可 以 通过 检查 Sh 参数 的 类 型 来 判断 激活 的 工作 表 的 类 型 ， 然 
后 执行 相应 的 操作 。 

案例 12-13 ”显示 激活 的 工作 表 中 的 数据 区 域 的 地 址 

下 面 的 代码 位 于 工作 憩 的 SheetActivate 事件 过 程 中 ， 在 激活 一 个 工作 表 时 显示 该 工作 表 的 曾 
名 称 及 其 中 包含 的 数据 区 域 的 地 址 ， 如 图 12-7 所 示 。 为 了 避免 激活 图 表 工 作 表 后 出 现 运行 时 错 
误 ， 使 用 下 Then 判断 结构 检查 激活 的 工作 表 的 类 型 ， 并 根据 判断 结果 执行 相应 的 代码 。 

如 果 激 活 的 工作 表 的 类 型 是 Worksheet， 则 将 激活 的 工作 表 的 名 称 存储 在 strMsg 变量 中 。 
然后 通过 WorksheetFunction 对 象 调用 CountA 工作 表 函 数 检查 工作 表 是 否 包 含 不 为 空 的 单元 格 ， 
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如 果 没 有 这 样 的 单元 格 ， 则 将 “该 工作 表 中 不 包含 数据 ”文本 添加 到 strMsg 变量 中 ; 如果 存 在 
这 样 的 单元 格 ， 则 该 单元 格 的 地 址 添加 到 strMsg 变量 中 。 最 后 在 对 话 框 中 显示 包含 了 工作 表 名 
称 和 指定 内 容 的 信息 。 


Private Sub Workbook SheetRctivate (BYVal Sh Rs Object) 
Dim strMsg Rs String 














If TypeName (Sh) = "Worksheet" Then 
strMsg = "当前 激活 的 工作 表 是 : " & Sh.Name & vbCrLf 
If WorksheetFunction.CountA(Cells) = 0 Then 
strMsg = strMsg & "该 工作 表 中 不 包含 数据 " 
Else 
strMsg = strMsg & "该 工作 表 中 的 数据 区 域 是 : " & Sh.UsedRange.Address (0，0) 
End If 
MsgBox strMsg 
End If 
End Sub 


D E 


| Microsoft Excel 


| 
| 当前 激活 的 工作 表 是 : Sheet1 
| 该 工作 表 中 的 数据 区 域 星 ; A1:C10 


Sheet1 | Sheet2 


Microsoft Excel 


该 工作 表 中 不 包含 数据 


| 


| 
| 
| 当前 激活 的 工作 表 星 : Sheet2 
| 
| 


Sheet1 Sheet2 


图 12-7 显示 激活 的 工作 表 中 的 数据 区 域 的 地 址 





12.2.9 SheetDeactivate 事件 
在 工作 矢 中 激活 一 个 工作 表 后 ， 之 前 处 于 活动 状态 的 工作 表 将 失去 焦点 并 触发 SheetDeactivate 
事件 。 SheetDeactivate 事件 过 程 包含 一 个 Sh 参数 , 表示 失去 焦点 的 工作 表 。 由 于 可 能 是 工作 表 ， 
b 可 能 是 图 表 工 作 表 ， 因 此 Sh 参数 的 数据 类 型 为 Object。 


案例 12-14 ”显示 失去 焦点 的 工作 表 的 名 称 
下 面 的 代码 位 于 工作 短 的 SheetDeactivate 事件 过 程 中 ， 在 激活 一 个 工作 表 时 显示 刚 失去 焦 
点 的 工作 表 的 名 称 。 

Private Sub Workbook SheetDeactivate (BYVal Sh As Object) 


MsgBox Sh.Name & "工作 表 已 失去 焦点 " 
End Sub 
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12.2.10 ”NewSheet 事件 


在 工作 德 中 新 建 工 作 表 时 将 会 触发 工作 憩 的 NewSheet 事件 。NewSheet 事件 过 程 包含 一 个 
Sh 参数 ， 表 示 新 建 的 工作 表 或 图 表 工 作 表 。 


案例 12-15 ”新 建 工作 表 时 显示 工作 筹 中 的 工作 表 总 数 
下 面 的 代码 位 于 工作 敌 的 NewSheet 事件 过 程 中 ,在 新 建 工 作 表 时 显示 到 目前 为 止 工作 短 中 
包含 的 工作 表 总 数 。 


Private Sub Workbook NewSheet (ByVal Sh Rs Object) 
MsgBox "工作 簿 当前 包含 " & Sheets .Count & "个 工作 表 " 
End Sub 


案例 12-16 ”为 新 建 的 工作 表 自动 命名 

下 面 的 代码 位 于 工作 敌 的 NewSheet 事件 过 程 中 , 在 新 建 工作 表 时 自动 为 其 设置 名 称 , 名 称 
为 “工作 表 ”+ 编 号 。 工 作 短 默 认 只 包含 一 个 工作 表 ， 因 此 新 建 工 作 表 的 编号 就 是 工作 敌 当 前 包 
含 的 工作 表 总 数 。 


Private Sub Workbook NewSheet (ByVal Sh As Object) 
If TypeName (Sh) = "Worksheet" Then 
Sh.Name = "工作 表 " & Worksheets.Count 
End If 
End Sub 



















































































12.2.11 SheetChange 事件 


当 对 工作 夭 中 的 任意 一 个 工作 表 中 的 任意 一 个 单元 格 进行 编辑 时 ， 将 会 触发 工作 敌 的 
SheetChange 事件 。SheetChange 事件 过 程 包含 两 个 参数 ，Sh 参数 表示 编辑 的 单元 格 所 属 的 工作 
表 ，Target 参数 表示 编辑 的 单元 格 或 单元 格 区 域 。 


案例 12-17 显示 编辑 的 单元 格 的 地 址 及 其 工作 表 名 称 
下 面 的 代码 位 于 工作 敌 的 SheetChange 事件 过 程 中 ， 在 工作 簿 中 的 任意 一 个 工作 表 中 编辑 单 
元 格 时 ， 将 会 在 对 话 框 中 显示 正在 编辑 的 单元 格 的 地 址 及 其 所 属 工作 表 的 名 称 ， 如 图 12-8 所 示 。 


Private Sub Workbook SheetChange (ByVal Sh As Object, ByVal Target Rs Range) 
Dim strMsg Rs String 
strMsg = " 刚 编辑 过 的 单元 格 的 地 址 是 : " & Target.Rddress(0，0) & vbcrLf 
strMsg = strMsg & " 刚 编辑 过 的 单元 格 所 属 工作 表 的 名 称 是 : " & Sh.Name 


MsgBox strMsg 
End Sub 
























































刚 蝙 加 过 的 单元 格 的 地 址 星 : B2 
刚 蝙 辑 过 的 单元 格 所 是 工作 素 的 名 称 是 : Sheet1 





Sheet1 © 





图 12-8 显示 编辑 的 单元 格 的 地 址 及 其 工作 表 名 称 


工作 敌 的 SheetChange 事件 与 特定 工作 表 的 Change 事件 类 似 ， 关 于 Change 事件 的 更 多 说 
明 将 在 12.3.4 节 进 行 介绍 。 
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12.2.12 SheetSelectionChange 事件 


在 工作 短 中 的 任意 一 个 工作 表 中 选择 单元 格 或 单元 格 区 域 时 ， 将 会 触发 工作 敌 的 
SheetSelectionChange 事件 。SheetSelectionChange 事件 过 程 包含 两 个 参数 ，Sh 参数 表示 选择 的 

单元 格 所 属 的 工作 表 ，Target 参数 表示 选择 的 单元 格 或 单元 格 区 域 。 
案例 12-18 ”自动 为 选区 所 在 的 整 行 和 整 列 设置 背景 色 
面 的 代码 位 于 工作 短 的 SheetSelectionChange 事件 过 程 中 ， 在 工作 短 中 的 任意 一 个 工 
E 表 中 选择 单元 格 或 单元 格 区 域 时 ， 自 动 为 选区 所 在 的 整 行 和 整 列 设置 背景 色 ， 如 图 12-9 
所 示 。 为 了 避免 下 次 选择 新 单元 格 时 仍然 保留 上 次 设置 的 背景 色 , 因此 需要 先 清 除 之 前 设置 
的 背景 色 。 

Private Sub Workbook SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range) 

Cells.Interior.ColorIindex = xlColorIindexNone 


Target .EntireColumn.Interior.ColorIindex = 6 
Target .EntireRow.Interior.ColorIndex = 6 








































































































End Sub 
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图 12-9 自动 为 选区 所 在 的 整 行 和 整 列 设置 背景 色 


工作 短 的 SheetSelectionChange 事件 与 特定 工作 表 的 SelectionChange 事件 类 似 ， 于 
SelectionChange 事件 的 更 多 说 明 将 在 12.3.5 节 进 行 介绍 。 












































12.2.13 SheetBeforeRightClick 事件 


在 工作 德 中 的 任意 一 个 工作 表 中 右 击 单元 格 时 ， 将 会 触发 工作 短 的 SheetBeforeRightClick 
事件 。SheetBeforeRightClick 事件 过 程 包含 3 个 参数 ，Sh 参数 表示 右 击 的 单元 格 所 属 的 工作 表 ， 
Target 参数 表示 右 击 的 单元 格 ，Cancel 参数 表示 是 否 取消 右 击 单元 格 后 弹出 的 快捷 菜单 ， 将 该 
参数 设置 为 True 则 不 弹出 快捷 菜单 ,默认 值 为 False。 可 以 使 用 SheetBeforeRightClick 事件 过 程 
显示 用 户 自 定义 的 快捷 菜单 。 
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案例 12-19 ” 右 击 单元 格 时 显示 自 定义 快捷 莱 单 
下 面 的 代码 位 于 工作 簿 的 SheetBeforeRightClick 事件 过 程 中 ， 在 工作 短 中 的 任意 一 个 工作 表 
中 右 击 一 个 单元 格 时 ， 将 会 弹出 用 户 自 定义 的 快捷 菜单 ， 假 设 该 自 定义 快捷 菜单 由 名 为 
“AddShortCutMenu” 的 Sub 过 程 创建 。 为 了 避免 由 于 缺少 AddShortCutMenu 过 程 或 其 他 问题 而 导 
致 的 运行 时 错误 ， 因 此 加 入 了 防 错 代码 。 如 果 出 现 运行 时 错误 ， 则 会 显示 预先 指定 的 提示 信息 。 






















































































Private Sub Workbook SheetBeforeRightClick (ByVal Sh As Object，ByVal Target As Range, 
Cancel As Boolean) 
On Error Resume Next 
CommandBars ("AddShortCutMenu") .ShowPopup 
Cancel = True 
If Err.Number <> 0 Then 
MsgBox "加 载 自 定义 快捷 菜单 失败 ! " 
Exit Sub 
End If 
End Sub 


12.2.14 SheetBeforeDoubleClick 事件 


SheetBeforeDoubleClick 事件 与 上 一 节 介绍 的 SheetBeforeRightClick 事件 类 似 ， 只 不 过 在 工 
作 敌 中 的 任意 一 个 工作 表 中 双击 单元 格 时 才 会 触发 SheetBeforeDoubleClick 事件 。 
SheetBeforeDoubleClick 事件 过 程 也 包含 3 个 参数 ，Sh 参数 表示 双击 的 单元 格 所 属 的 工作 表 ， 
Target 参数 表示 双击 的 单元 格 ，Cancel 参数 表示 是 否 取 消 双 击 单元 格 后 执行 的 默认 操作 ， 将 该 
参数 设置 为 True 则 在 双击 后 不 进入 单元 格 的 编辑 状态 ， 默 认 值 为 False。 

案例 12-20 ”双击 单元 格 时 自动 删除 单元 格 中 的 内 容 和 格式 

下 面 的 代码 位 于 工作 短 的 SheetBeforeDoubleClick 事件 过 程 中 , 在 工作 簿 中 的 任意 一 个 工作 
表 中 双击 一 个 单元 格 时 ， 将 会 自动 删除 该 单元 格 中 的 内 容 和 格式 。 


Private Sub Workbook SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target Rs Range, 
Cancel As Boolean) 

Target.Clear 

Cancel = True 
End Sub 















































12.3 使 用 工作 表 事 件 
本 节 首 先 列 出 了 Excel 中 的 所 有 工作 表 事 件 ， 然 后 介绍 其 中 一 些 常 用 事件 的 具体 应 


12.3.1 工作 表 包 含 的 事件 
表 12-2 列 出 了 Excel 中 的 所 有 工作 表 事 件 以 及 触发 事件 的 操作 。 
表 12-2 工作 表 事 件 




































































事件 名 称 触发 事件 的 操作 
Active 激活 工作 表 时 
BeforeDoubleClick 双击 工作 表 时 
BeforeRightClick 右 击 工作 表 时 
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续 表 
事件 名 称 触发 事件 的 操作 
Calculate 重新 计算 工作 表 之 后 
Change 当 用 户 更 改 工作 表 时 
Deactivate 任意 一 个 工作 表 由 活动 状态 转 为 非 活 动 状态 时 
FollowHyperlink 单 击 工作 表 中 的 任意 一 个 超 链接 时 
PivotTableAfterValueChange 编辑 或 重新 计算 数据 透视 表 中 的 单元 格 或 单元 格 区 域 之 后 
PivotTableBeforeAllocateChanges 在 向 数据 透视 表 应 用 更 改 之 前 





PivotTableBeforeCommitChanges 


在 针对 OLAP 数据 源 提交 对 数据 透视 表 的 更 改 之 前 





PivotTableBeforeDiscardChanges 在 放弃 对 数据 透视 表 所 做 的 更 改 之 前 
PivotTableChangeSync 在 对 数据 透视 表 进 行 更 改 之 后 
PivotTableUpdate 更 新 工作 短 中 的 数据 透视 表 时 


SelectionChange 


12.3.2 ”Activate 事件 





选择 工作 表 中 的 单元 格 或 单元 


格 区 域 时 





工作 表 的 Activate 事件 与 工作 敌 的 Activate 事件 类 似 ， 但 是 工作 表 的 Activate 事件 只 在 特 


定 工 作 表 被 激活 时 触发 ， 而 不 是 在 了 





12.3.3 ”Deactivate 事件 


工作 表 的 Deactivate 事件 与 了 
在 特定 工作 表 失 去 焦点 时 触发 ， 而 不 是 在 了 





12.3.4 Change 事件 























下 面 列 出 了 一 些 触发 或 不 触发 Change 事件 的 操作 : 
按 Delete 键 都 会 触发 Change 事件 。 


口 无 论 单元 格 中 是 否 包含 内 容 ， 
口 清除 单元 格 的 格式 会 触发 Change 事件 。 








口 改变 单元 格 的 格式 不 会 触发 Change 事件 。 




















口 使 


口 为 单元 格 添加 批注 不 会 触发 Change 事件 。 
如 果 在 Change 事件 过 程 中 包含 编辑 单元 格 的 操作 , 则 会 在 Change 事件 过 程 内 部 触发 Change 











事件 自身 , 这 将 导致 Change 事件 过 程 的 无 限 递归 调用 ， 最 终 可 能 会 使 Excel 崩溃 。 为 了 解决 这 个 
问题 ， 需 要 在 导致 触发 Change 事件 的 代码 前 添加 下 面 的 代码 ， 从 而 关闭 事件 触发 机 制 。 





Application.EnableEvents = False 





在 导致 触发 Change 事件 的 代码 之 后 将 EnableEvents 属性 设置 为 True， 从 而 开启 正常 的 事 


件 触发 机 制 。 
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[ 作 短 中 的 任意 一 个 工作 表 被 激活 时 触发 。 


[ 作 短 的 Deactivate 事件 类 似 , 但 是 工作 表 的 Deactivate 事件 只 
[ 作 适 中 的 任意 一 个 工作 表 失 去 焦点 时 触发 。 








工作 表 的 Change 事件 与 工作 短 的 SheetChange 事件 类 似 ， 但 是 工作 表 的 Change 事件 只 在 


特定 工作 表 中 编辑 单元 格 时 触发 ， 而 不 是 在 工作 短 中 的 任意 一 个 工作 表 中 编辑 单元 格 时 触发 。 











“选择 性 粘贴 ”对 话 框 复制 格式 时 会 触发 Change 事件 。 
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Application.EnableEvents = True 


12.3.5 _ SelectionChange 事件 


工作 表 的 SelectionChange 事件 与 工作 短 的 SheetSelectionChange 事件 类 似 ， 但 是 工作 表 的 
SelectionChange 事件 只 在 特定 工作 表 中 选择 单元 格 或 单元 格 区 域 时 触发 ， 而 不 是 在 工作 夭 中 的 
任意 一 个 工作 表 中 选择 单元 格 或 单元 格 区 域 时 触发 。 

案例 12-21 在 指定 工作 表 的 状态 栏 中 显示 选区 地 址 
下 面 的 代码 位 于 Sheetl 工作 表 的 SelectionChange 事件 过 程 中 , 在 该 工作 表 中 选择 任意 音 
格 或 单元 格 区 域 时 ， 选 区 地 址 会 显示 在 状态 栏 中 ， 如 图 12-10 所 示 。 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
Dim strMsg As String 
strMsg = "当前 选择 的 单元 格 或 单元 格 区 域 是 : " 
Application.StatusBar = strMsg & Target.Address (0, 0) 
End Sub 
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Sheet1 
当前 选择 的 单元 格 或 单元 格 区 域 是 : A3,B6:B8,D2:F7 


图 12-10 在 指定 工作 表 的 状态 栏 中 显示 选区 地 址 





12.3.6 ”BeforeRightClick 事件 


工作 表 的 BeforeRightClick 事件 与 工作 短 的 BeforeRightClick 事件 类 似 ， 但 是 工作 表 的 
BeforeRightClick 事件 只 在 特定 工作 表 中 右 击 单元 格 时 触发 , 而 不 是 在 工作 簿 中 的 任意 一 个 工作 
表 中 右 击 单元 格 时 触发 。 

案例 12-22 ”在 指定 区 域内 右 击 时 显示 自 定义 快捷 菜单 

下 面 的 代码 位 于 Sheetl 工作 表 的 BeforeRightClick 事件 过 程 中 ， 只 有 在 Sheetl 工作 表 中 的 
Al:C10 单元 格 区 域 范围 内 右 击 时 ， 才 会 弹出 用 户 自 定义 的 快捷 菜单 ， 右 击 该 区 域 以 外 的 其 他 单 
元 格 则 只 会 弹出 Excel 默认 的 快捷 菜单 。 假 设 该 自 定义 快捷 菜单 由 名 为 “AddShortCutMenu” 的 
Sub 过 程 创建 。 

Private Sub Worksheet BeforeRightClick(ByVal Target Rs Range, Cancel As Boolean) 
On Error Resume Next 
If Not Intersect (Range ("Al1:C10"), Target) Is Nothing Then 

CommandBars ("AddSshortCutMenu") .ShowPopup 

Cancel = True 
End If 
If Err.Number <> 0 Then 

MsgBox "加 载 自 定义 快捷 菜单 失败 1 " 

Exit Sub 


End If 
End Sub 
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12.3.7 ”BeforeDoubleClick 事件 


工作 表 的 BeforeDoubleClick 事件 与 工作 短 的 BeforeDoubleClick 事件 类 似 ， 但 是 工作 表 的 
BeforeDoubleClick 事件 只 在 特定 工作 表 中 双击 单元 格 时 触发 ， 而 不 是 在 工作 憩 中 的 任意 一 个 工 
作 表 中 双击 单元 格 时 触发 。 






































12.4 使 用 图 表 工 作 表 事件 


图 表 工 作 表 也 包含 一 些 事 件 ， 从 而 可 以 实现 用 户 和 图 表 之 间 的 交互 。 图 表 工 作 表 事件 的 代 
码 存储 在 与 图 表 工 作 表 关联 的 Chartl 、Chart2 等 模块 中 。 表 12-3 列 出 了 Excel 中 的 所 有 图 表 工 
作 表 事件 以 及 触发 事件 的 操作 。 




















表 12-3 ”图表 工作 表 事件 






事件 名 称 触发 事件 的 操作 


Activate 
BeforeDoubleClick 双击 图 表 元 素 时 。 该 事件 在 默认 的 双击 操作 之 前 发 生 
BeforeRightClick 右 击 图 表 元 素 时 。 该 事件 在 默认 的 右 击 操作 之 前 
表 上 绘制 新 数据 或 修改 数据 之 后 
图 表 由 活动 转 为 非 活动 状态 时 





































Calculate 








Deactivate 
































MouseDown 在 图 表 上 按 下 鼠标 按键 时 
MouseMove 在 图 表 上 移动 鼠标 指针 时 
MouseUp 在 图 表 上 释放 鼠标 按键 时 
Resize 调整 图 表 大 小 时 

Select 选择 图 表 元 素 时 
SeriesChange 修改 图 表 上 的 数据 点 的 值 时 


案例 12-23 ”通过 双击 控制 图 表 元 素 的 显示 状态 

下 面 的 代码 位 于 Chartl 工作 表 的 BeforeDoubleClick 事件 过 程 中 , 在 图 表 中 双击 不 同 的 图 表 
元 素 可 以 控制 图 表 元 素 的 显示 状态 ， 如 图 12-11 所 示 。 双 击 图 表 区 将 会 显示 图 标 标题 的 内 容 ， 
双击 绘图 区 或 图 例 则 会 让 图 例 在 显示 或 隐藏 之 间 切 换 ， 双 击 其 他 位 置 则 会 显示 预先 指定 的 提示 
信息 。 


Private Sub Chart BeforeDoubleClick (ByVal ElementID As Long, ByVal Argl As Long, ByVal 
Arg2 As Long, Cancel As Boolean) 
Select Case ElementID 
Case xlChartArea 
MsgBox Me.ChartTitle.Text 
Cancel = True 
Case xlPlotArea 
Me.HasLegend = Not Me.HasLegend 
Cancel = True 
Case xlLegend 
Me.HasLegend = Not Me.HasLegend 
Cancel = True 
Case Else 
MsgBox "双击 了 无 效 的 区 域 ! " 


Cancel = Trve 
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End Select 
End Sub 
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图 12-11 通过 双击 控制 图 表 元 素 的 显示 状态 





12.5 使 用 应 用 程序 事件 与 说 入 式 图 表 事 件 


























程序 





件 中 放置 实现 工作 德 通用 功能 的 VBA 代码 。 嵌 入 式 图表 是 位 于 普通 工作 表 中 的 图 表 ， 它 不 具 
[ 作 表 标签 ， 可 以 通过 类 模块 监视 嵌入 式 图 表 的 事件 。 默 认 情 况 下 ， 应 用 程序 事件 与 


有 单独 的 了 






























































入 式 图 表 事件 无 法 直接 使 用 








， 只 有 在 类 模块 和 标准 模块 中 编写 少量 代码 之 后 才能 正常 使 用 








本 节 将 介绍 捕获 与 使 用 应 用 程序 事件 与 嵌入 式 图 表 事 件 的 方法 ， 还 介绍 了 应 用 程序 事件 的 几 个 





典型 应 用 。 
12.5.1 


捕获 应 用 程序 事件 





应 用 程序 事件 可 以 监控 当前 Excel 进程 中 所 有 工作 簿 的 相关 操作 ， 而 不 是 某 个 特定 工作 乱 
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中 的 操作 。 表 12-4 列 出 了 Excel 中 
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ph 的 所 有 应 用 程序 事件 以 及 触发 事件 的 操作 。 
表 12-4 ”应 用 程序 事件 














事件 名 称 触发 事件 的 操作 
AfterCalculate 所 有 挂 起 的 同步 和 异步 刷新 活动 和 结果 计算 活动 均 已 完成 时 
NewWorkbook 新 建 一 个 工作 短 时 





ProtectedViewWindowActivate 


激活 “ 受 保护 的 视图 ”窗口 时 





ProtectedViewWindowBeforeClose 








在 “ 受 保护 的 视图 ”或 “ 受 保护 的 视图 ”窗口 中 的 工作 簿 关闭 之 前 














ProtectedViewWindowBeforeEdit 


在 指定 的 “ 受 保护 的 视图 ”窗口 中 启用 对 工作 簿 的 编辑 之 前 





ProtectedViewWindowDeactivate 


在 停 用 “ 受 保护 的 视图 ”窗口 时 





ProtectedViewWindowOpen 


在 “ 受 保护 的 视图 ”窗口 中 打开 工作 短 时 








ProtectedViewWindowResize 


在 调整 任意 “ 受 保护 的 视图 ”窗口 的 大 小 时 





heetActivate 


激活 任何 一 个 工作 表 时 





heetBeforeDoubleClick 
heetBeforeRightClick 
heetCalculate 
heetChange 


heetDeactivate 


heetPivotTableAfterValueChange 
heetPivotTableBeforeAllocateChanges 
heetPivotTableBeforeCommitChanges 
heetPivotTableBeforeDiscardChanges 
heetPivotTableUpdate 





Sl 
SI 
SI 
Ss 
Sl 
SI 
SheetFollowHyperlink 
SI 
SI 
Sl 
SI 
Sl 
SI 


heetSelectionChange 
WindowActivate 


WindowDeactivate 


双击 任何 一 个 工作 表 时 ， 发 生 在 默认 的 双击 之 前 
右 击 任意 一 个 工作 表 时 ， 发 生 在 默认 的 右 击 之 前 
重新 计算 工作 表 时 

由 用 户 更 改 任意 一 个 工作 表 时 

任意 一 个 工作 表 由 活动 状态 转 为 非 活动 状态 时 

单 击 Excel 中 的 任何 一 个 超 链接 时 

在 编辑 或 重新 计算 数据 透视 表 中 的 单元 格 或 单元 格 区 域 之 后 
在 向 数据 透视 表 应 用 更 改 之 前 

在 针对 OLAP 数据 源 提交 对 数据 透视 表 的 更 改 之 前 
在 放弃 对 数据 透视 表 所 做 的 更 改 之 前 

更 新 数据 透视 表 的 工作 表 之 后 

更 改 任何 一 个 工作 表 上 的 选择 区 域 时 
激活 工作 短 窗 口 时 

当 工 作 敌 窗口 由 活动 状态 变 为 非 活动 状态 时 




















WindowResize 


调整 任何 一 个 工作 簿 窗口 大 小 时 



































WorkbookActivate 激活 工作 短 时 

WorkbookAddinInstall 作为 加 载 项 安装 工作 簿 时 
WorkbookAddinUninstall 作为 加 载 项 卸载 工作 短 时 
WorkbookAfterSave 保存 工作 簿 之 后 
WorkbookAfterXmlExport 保存 或 导出 指定 工作 短 中 的 XML 之 后 
WorkbookAfterXmlImport 刷新 XML 数据 连接 或 导入 XML 之 后 
WorkbookBeforeClose 关闭 工作 簿 之 前 

WorkbookBeforePrint 打印 工作 簿 之 前 

WorkbookBeforeSave 保存 工作 簿 之 前 
WorkbookBeforeXmlExport 保存 或 导出 指定 工作 短 中 的 XML 之 前 
WorkbookBeforeXmlImport 刷新 XML 数据 连接 或 导入 XML 之 前 
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续 表 
事件 名 称 触发 事件 的 操作 
WorkbookDeactivate 工作 憩 由 活动 状态 转 为 非 活动 状态 时 
WorkbookNewChart 在 工作 短 中 新 建 图 表 时 
WorkbookNewSheet 在 工作 短 中 新 建 工 作 表 时 
WorkbookOpen 打开 工作 短 时 





WorkbookPivotTableCloseConnection 关闭 数据 透视 表 与 其 数据 源 的 连接 之 后 





WorkbookPivotTableOpenConnection 打开 数据 透视 表 与 其 数据 源 的 连接 之 后 





WorkbookRowsetComplete 在 OLAP 上 深化 记录 集 或 调用 行 集 操作 时 








WorkbookSync 同步 工作 簿 的 本 地 副本 与 服务 器 的 副本 时 





案例 12-24 ”捕获 并 使 用 应 用 程序 事件 


本 例 将 介绍 捕获 应 用 程序 事件 的 方法 ， 并 以 应 用 程序 级 别 的 WorkbookOpen 事件 为 例 ， 介 : 
Excel 中 每 次 打开 一 个 工作 敌 时 ， 











绍 应 用 程序 事件 的 编程 方法 与 效果 。 本 例 想 要 实现 的 效果 是 在 
在 对 话 框 中 显示 该 工作 簿 的 路 径 和 名 称 。 捕 获 并 使 用 应 用 程序 
(1) 新 建 一 个 工作 簿 并 以 .xlsm 格式 保存 ， 然 后 打开 VBE 


























事件 的 方法 如 下 : 
窗口 ， 在 与 该 J 





[ 作 短 关联 的 VBA 


工程 中 右 击 任 意 一 项 , 在 弹出 的 菜单 中 选择 “插入 ”|“ 类 模块 ”命令 ,在 工程 中 添加 一 个 类 模块 。 
(2) 选择 新 增 的 类 模块 ， 按 F4 键 打开 “属性 ” 窗 格 ， 将 该 类 模块 的 “名 称 ” 设 置 为 有 意义 


的 名 称 ， 如 CAppEvents， 如 图 12-12 所 示 。 
[ 程 - VBAProject xx| 
一 加 


日 如 YBAProject (案例 12-24- 
日 合 呈 orosoft Exoel 对 象 


Sheetl (Sheet1) 
上 Thi s¥orkbook 
日 - 含 类 模块 
网 CAppEvents 





ICAppEvents 类 模块 
按 字母 序 | 按 分 类 序 | 


图 12-12 将 类 模块 的 名 称 设置 为 CAppEvents 











(3) 双击 CAppEvents 类 模块 打开 与 其 关联 的 代码 窗口 ,在 模块 顶部 输入 下 面 的 代码 , 使 用 









































Public 关键 字 和 WithEvents 关键 字 声 明 一 个 Application 对 象 类 型 的 变量 xlsApp, 变量 名 可 以 是 


任何 有 效 的 名 称 。WithEvents 关键 字 用 于 引发 与 Application 对 


Public WithEvents xlsApp As APP1ication 








i 象 相关 联 的 事件 。 





(4) 在 类 模块 的 代码 窗口 项 部 左 侧 的 下 拉 列 表 中 选择 上 一 # 
所 示 。 然 后 在 右 侧 的 下 拉 列 表 中 选择 要 使 用 的 应 用 程序 事件 ， 
如 图 12-14 所 示 。 











上 声明 的 xlsApp 变量 ， 如 





图 12-13 


这 里 选择 WorkbookOpen 事件 ， 





这 和 
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网 室 例 12-24xsm - CAppEvents (代码) [= Ea 移 安 网 12-24xsm - CAppEvents (代码 ) [= En 
| 通用 ) 了 | | 更 明 ) 了 [<1sApp 了 ] [eworkbook 1 
用 hn 

























Option Explicit 





hs Application Public WithEvents xlsApp A: 





Private Sub zshpp_Newgorktyor] 
End Sub 














4| 
1 




















EM| 2 = 后 | | 2 4 
图 12-13 ”选择 声明 的 对 象 变量 图 12-14 选择 要 使 用 的 应 用 程序 事件 


(5) Excel 会 自动 输入 所 选 事 件 的 事件 过 程 框架 , 然后 在 其 中 手动 输入 触发 该 事件 时 要 运行 
的 代码 ， 如 下 所 示 : 


Private Sub xlsApp WorkbookOpen (ByVal Wb As Workbook) 
MsgBox Wb.FullName & Wb.Name 
End Sub 


(6) 与 工作 短 的 ThisWorkbook 模块 和 工作 表 的 Sheetl、Sheet2 等 模块 不 同 ， 用户 自己 创建 
的 类 模块 默认 不 具备 自动 响应 用 户 操 作 的 功能 ， 因 此 需要 创建 类 模块 的 实例 。 在 VBA 工程 中 
添加 一 个 标准 模块 ， 打 开 该 标准 模块 的 代码 窗口 ， 然 后 在 模块 顶部 输入 下 面 的 代码 ， 声 明 一 个 
工程 级 变量 clsApp， 变 量 的 类 型 就 是 前 面 创建 的 类 模块 CAppEvents， 即 相当 于 创建 了 一 个 
CAppEvents 类 型 的 变量 。 

Public clsApp As CAppEvents 

(7) 在 标准 模块 中 创建 一 个 Sub 过 程 , 将 CAppEvents 类 的 实例 赋值 给 上 一 步 声 明 的 clsApp 
变量 ， 然 后 将 Application 对 象 赋值 给 clsApp 变量 所 代表 的 CAppEvents 对 象 的 xlsApp 属性 。 
xlsApp 就 是 最 开始 在 类 模块 中 使 用 Public 关键 字 声 明 的 变量 ， 该 变量 是 CAppEvents 类 的 一 个 
属性 。 


Sub 实例 化 类 () 


Set clsApp = New CAppEvents 
Set clsApp.xlsApp = Application 
End Sub 


(8) 最 后 在 标准 模块 中 运行 一 次 上 一 步 创 建 的 Sub 过 程 ， 即 可 使 所 有 的 应 用 程序 事件 自动 
响应 用 户 的 操作 。 就 本 例 来 说 ， 在 Excel 中 打开 任何 一 个 工作 德 时， 将 自动 弹出 对 话 框 并 显示 
打开 的 工作 敌 的 路 径 和 名 称 。 

提示 : 如 果 和 希望 应 用 程序 事件 始终 可 用 ， 而 不 是 每 次 都 要 运行 一 次 标准 模块 中 的 特定 Sub 
过 程 ， 则 可 以 将 前 面 创建 的 类 模块 和 标准 模块 及 其 所 有 代码 与 相应 的 事件 代码 放置 到 个 人 宏 工 
作 簿 中 ， 或 将 包含 这 些 模块 和 代码 的 工作 簿 转换 为 加 载 项 。 

案例 12-25 ”关闭 任意 一 个 工作 簿 时 删除 其 中 的 空 工作 表 

下 面 的 代码 位 于 应 用 程序 级 别 的 WorkbookBeforeClose 事件 过 程 中 ， 在 关闭 任意 一 个 工作 
短 时 将 会 显示 一 个 对 话 框 ， 如 图 12-15 所 示 。 如 果 单 击 “ 是 ”按钮 则 自动 删除 其 中 的 空 工 作 
并 显示 删除 的 空 工作 表 的 数量 ， 单 击 “ 否 ”按钮 则 不 删除 任何 工作 表 。 无 论 单 击 哪个 按钮 ， 最 
后 都 会 关闭 工作 短 。 

代码 中 将 显示 在 对 话 框 中 的 提示 信息 存储 在 strMsg 变量 中 , 创建 对 话 框 将 表示 用 户 在 对 话 
框 中 单 击 的 按钮 的 返回 值 赋值 给 IngAns 变量 。 然 后 检查 IngAns 变量 中 的 值 以 确定 单 击 的 是 哪 
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个 按钮 ， 如 果 单 击 “ 是 ”按钮 ， 则 遍历 工作 短 中 的 每 一 个 工作 表 ， 使 用 工作 表 函 数 CountA 判 
断 工作 表 中 是 否 包 含 内 容 。 如 果 CountA 函数 返回 0， 则 说 明 任何 单元 格 中 都 不 包含 内 容 ， 此 时 
删除 该 工作 表 。 由 于 工作 敌 中 至 少 必须 包含 一 个 工作 表 ， 因 此 在 执行 删除 操作 前 需要 判断 工作 
簿 中 当前 包含 的 工作 表 数 量 ， 如 果 不 止 一 个 工作 表 ， 则 可 执行 删除 操作 。 最 后 显示 已 删除 的 空 
工作 表 的 数量 ， 然 后 保存 并 关闭 工作 簿 。 本 例 中 捕获 应 用 程序 事件 的 方法 与 前 面 介绍 的 完全 相 
同 ， 因 此 不 再 重复 给 出 操作 步骤 。 
Private Sub xlsApp WorkbookBeforeClose (ByVal Wb As Workbook，Cancel As Boolean) 
Dim wks As Worksheet, strMsg Rs String 
Dim lngAns Rs Long, intCount Rs Integer 
strMsg = "工作 簿 即将 关闭 ， 是 否 删 除 空 工作 表 ? " 
lngAns = MsgBox (strMsg, vbInformation + vbYesNo) 
If lngAns = vbYes Then 
Application.DisplayAlerts = False 
For Each wks In Wb.Worksheets 
If Application.WorksheetFunction.CountA(wks.Cells) = 0 Then 
If Wh.Worksheets.Count > 1 Then 
wks.Delete 
intCount = intCount + 1 
End If 
End If 
Next wks 
MsgBox intCount & "个 空 工作 表 已 被 删除 " 
Application.DisplayAlerts = True 








































































































End If 
Wb.Save 
End Sub 
Microsoft Excel 
Microsoft Excel x 
【i 工作 第 到 特 关 闭 , 是否 革除 空 工作 表 ? 2 
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图 12-15 关闭 任意 一 个 工作 短 时 删除 其 中 的 空 工作 表 


12.5.2 ”捕获 岩 入 式 图 表 事件 


Excel 中 包含 的 所 有 嵌入 式 图 表 事 件 与 图 表 工 作 表 事件 类 似 ， 具 体 可 参考 12.4 节 。 捕 获 嵌 
入 式 图 表 事 件 的 方法 与 捕获 应 用 程序 事件 类 似 ， 也 需要 在 类 模块 和 标准 模块 中 编写 少量 代码 之 
后 才能 正常 使 用 。 


案例 12-26 ”捕获 并 使 用 财 入 式 图 表 事件 

本 例 将 介绍 捕获 嵌入 式 图 表 事 件 的 方法 ， 并 以 嵌入 式 图 表 的 BeforeDoubleClick 事件 为 例 ， 
介绍 嵌入 式 图 表 事 件 的 编程 方法 与 效果 。 本 例 想 要 实现 的 效果 是 在 包含 嵌入 式 图 表 的 特定 工作 
德 的 活动 工作 表 中 双击 第 一 个 嵌入 式 图 表 的 图 表 区 , 会 自动 将 该 嵌入 式 图 表 转 换 为 图 表 工 作 表 ， 
并 将 图 表 工 作 表 的 标签 名 称 设置 为 嵌入 式 图 表 的 图 表 标 题 。 捕 获 并 使 用 嵌入 式 图 表 事 件 的 方法 
如 下 














































































































(1) 打开 包含 嵌入 式 图 表 的 工作 短 ， 然 后 打开 VBE 窗口 ， 在 与 该 工作 短 关 联 的 VBA 工程 
中 右 击 任意 一 项 ， 在 弹出 的 菜单 中 选择 “插入 ”|“ 类 模块 ”命令 ， 在 工程 中 添加 一 个 类 模块 。 
(2) 选择 新 增 的 类 模块 ， 按 F4 键 打开 “属性 ” 窗 格 ， 将 该 类 模块 的 “名 称 ” 设 置 为 有 意义 
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的 名 称 ， 如 CChartEvents 。 

(3) 双击 CChartEvents 类 模块 打开 与 其 关联 的 代码 窗口 ， 在 模块 顶部 输入 下 面 的 代码 ， 使 
Public 关键 字 和 WithEvents 关键 字 声 明 一 个 Chart 对 象 类 型 的 变量 xlsChart， 变 量 名 可 以 是 
任何 有 效 的 名 称 。WithEvents 关键 字 用 于 引发 与 Chart 对 象 相关 联 的 事件 。 

Public WithEvents xlsChart As Chart 

(4) 在 类 模块 的 代码 窗口 顶部 左 侧 的 下 拉 列 表 中 选择 上 一 步 声 明 的 xlsChart 变量 ， 然 后 在 右 
侧 的 下 拉 列 表 中 选择 要 使 用 的 嵌入 式 图表 事 件 ， 这 里 选择 BeforeDoubleClick 事件 。Excel 会 自动 
输入 所 选 事 件 的 事件 过 程 框架 ， 然 后 在 其 中 手动 输入 触发 该 事件 时 要 运行 的 代码 ， 如 下 所 示 : 
























































Private Sub xlsChart BeforeDoubleClick (ByVal ElementID As Long, ByVal Argl As Long, 
ByVal Arg2 As Long, Cancel As Boolean) 
Dim strName As String 
If ElementID = xlChartArea Then 
strName = ActiveChart.ChartTitle.Caption 
ActiveChart.Location xlLocationAsNewSheet, strName 
Cancel = True 
End If 
End Sub 


(5) 在 VBA 工程 中 添加 一 个 标准 模块 ， 打开 该 标准 模块 的 代码 窗口 , 然后 在 模块 顶部 输入 
下 面 的 代码 ， 声 明 一 个 工程 级 变量 clsChart， 变 量 的 类 型 就 是 前 面 创建 的 类 模块 CChartEvents， 
即 相当 于 创建 了 一 个 CChartEvents 类 型 的 变量 。 

(6) 在 标准 模块 中 创建 一 个 Sub 过 程 ， 将 CChartEvents 类 的 实例 赋值 给 上 一 步 声 明 的 
clsChart 变量 ， 然 后 将 Chart 对 象 赋值 给 clsChart 变量 所 代表 的 CChartEvents 对 象 的 xlsChart 属 
性 。xlsChart 就 是 最 开始 在 类 模块 中 使 用 Public 关键 字 声 明 的 变量 ， 该 变量 是 CChartEvents 类 
的 一 个 属性 。 


Public clsChart As CChartEvents 
Sub 实例 化 类 () 

Set clsChart = New CChartEvents 

On Error Resume Next 

Set clsChart.xlsChart = ActiveSheet.ChartObjects (1) .Chart 
End Sub 


(7) 最 后 在 标准 模块 中 运行 一 次 上 一 步 创 建 的 Sub 过 程 ， 即 可 使 指定 工作 竹中 的 活动 工作 
表 中 的 第 一 个 嵌入 式 图 表 的 事件 自动 响应 用 户 的 操作 。 就 本 例 来 说 ， 在 包含 嵌入 式 图 表 的 工作 
短 中 双击 活动 工作 表 中 的 第 一 个 嵌入 式 图 表 的 图 表 区 ， 会 自动 将 该 嵌入 式 图 表 转 换 为 图 表 工 作 
表 ， 并 将 图 表 工 作 表 的 标签 名 称 设置 为 嵌入 式 图 表 的 图 表 标 题 。 
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第 13 章 使 用 Excel 对 话 框 




















对 话 框 是 用 户 与 Excel 之 间 进 行 交互 的 主要 途径 。 由 于 在 对 话 框 中 提供 了 用 于 输入 和 选择 
选项 的 界面 元 素 , 因此 它 使 用 户 与 Excel 之 间 的 交互 变 得 更 加 简单 直观 。 使 用 Excel 对 象 模型 中 
的 Application 对 象 的 一 些 方法 和 属性 可 以 创建 适用 于 不 同情 况 的 对 话 框 ， 从 简单 的 数据 输入 对 
话 框 ， 到 复杂 一 些 的 文件 打开 和 另存 对 话 框 ， 以 及 Excel 内 置 的 各 种 选项 对 话 框 。 本 章 将 详细 
介绍 在 VBA 中 创建 与 使 用 Excel 对 话 框 的 方法 。 



























































13.1 使 用 InputBox 方法 


使 用 Application 对 象 的 mputBox 方法 可 以 创建 类 似 于 使 用 InputBox 函数 创建 的 对 话 框 ， 
但 是 InputBox 方法 更 强大 。 本 节 将 介绍 使 用 Application 对 象 的 InputBox 方法 输入 普通 数据 与 
选择 单元 格 区 域 的 方法 。 


13.1.1 InputBox 方法 与 InputBox 函数 的 区 别 


可 以 将 Application 对 象 的 InputBox 方法 看 作 是 VBA 内 置 的 InputBox 函数 的 增强 版 。 虽 然 
两 者 创建 的 对 话 框 的 外 观 类 似 ， 但 是 却 具 有 很 多 不 同 之 处 ， 具 体 包 括 以 下 几 点 : 

口 InputBox 方法 的 返回 值 默认 为 String 数据 类 型 , 但 是 可 以 为 其 指定 返回 值 的 数据 类 型 ， 比 
如 数字 、 逻 辑 值 或 单元 格 引 用 等 。 而 InputBox 函数 的 返回 值 始终 都 是 String 数据 类 型 。 

口 在 InputBox 方法 中 指定 返回 值 的 数据 类 型 后 ，InputBox 方法 会 对 用 户 输入 的 内 容 进 行 
验证 ， 只 有 通过 验证 的 数据 才能 被 输入 并 返回 ， 否 则 将 拒绝 输入 。 而 InputBox 函数 不 
会 对 输入 的 内 容 进行 验证 , 用 户 的 输入 不 受 限 制 , 而 且 不 能 使 用 鼠标 选择 工作 表 中 的 单 
元 格 或 单元 格 区 域 。 

口 InputBox 方法 可 以 检查 用 户 单 击 的 是 “确定 ”按钮 还 是 “取消 ”按钮 ， 单 击 “ 确 定 ” 按 
钮 将 返回 用 户 输入 的 内 容 ， 单 击 “ 取 消 ”按钮 将 返回 逻辑 值 False。 对 于 InputBox 函数 
来 说 ， 未 输入 内 容 而 直接 单 击 “ 确 定 ”按钮 ， 与 直接 单 击 “ 取 消 ”按钮 都 将 返回 零 长 度 
的 空 字符 串 ， 在 这 种 情况 下 无 法 判断 用 户 单 击 的 是 哪个 按钮 。 

提示 : 不 带 Application 对 象限 定 符 输入 的 InputBox 指 的 是 VBA 内 置 的 InputBox 函数 。 


13.1.2 使 用 InputBox 方法 输入 指定 类 型 的 内 容 


Application 对 象 的 mputBox 方法 包含 8 个 参数 ,前 7 个 参数 的 含义 与 VBA 内 置 的 InputBox 间 
函数 的 参数 类 似 。InputBox 方法 的 语法 格式 如 下 : 

Application.InputBox (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type) 

口 Prompt: 必 选 ， 在 对 话 框 中 显示 的 提示 性 内 容 。 

口 Title: 可 选 ， 在 对 话 框 的 标题 栏 中 显示 的 内 容 。 

口 Default: 可 选 ， 在 接收 输入 的 文本 框 中 显示 的 默认 值 ， 如 果 用 户 不 输入 任何 内 容 ， 则 返 

























































































Excel VBA 编程 实战 宝典 





可 该 默认 值 。 

口 Left、Top: 可 选 ， 对 话 框 左上 角 在 屏幕 上 的 位 置 ， 以 磅 为 单位 。 

口 HelpFile、HelpContextID: 可 选 ， 帮 助 文 件 和 帮助 主题 。 

口 Type: 可 选 ， 返 回 的 数据 类 型 ， 该 参数 的 值 见 表 13-1。 如 果 省 略 该 参数 ， 则 InputBox 
方法 将 返回 String 数据 类 型 。Type 参数 的 值 可 以 是 几 个 数据 类 型 的 值 之 和 ， 以 此 来 表 
示 可 以 接受 并 返回 多 种 数据 类 型 的 内 容 。 例 如 ， 如 果 和 希望 InputBox 方法 产生 的 对 话 框 
可 以 同时 接受 用 户 输入 的 文本 、 数 字 和 单元 格 ， 则 可 以 将 Type 参数 的 值 设置 为 1+2+8。 


表 13-1 Type 参数 的 值 




































































值 数据 类 型 

0 公式 

1 数字 

2 文本 

bb 逻辑 值 True 或 False 
8 单元 格 引 用 

16 错误 值 

64 数值 数组 


下 面 的 代码 允许 用 户 在 对 话 框 中 输入 一 个 数字 ， 如 果 输 入 的 是 文本 ， 则 在 单 击 “ 确 定 ”按钮 
时 会 显示 如 图 13-1 所 示 的 提示 信息 ， 只 有 修改 为 数字 后 才能 在 单 击 “确定 ”按钮 时 关闭 对 话 框 。 


Application.InputBox "请 输入 一 个 数字 : "，" 输 入 数字 "， Type :=1 














? 
输入 数字 ? x x 


Microsoft Excel 
excel DO wn. 


m4 
图 13-1 输入 数字 以 外 的 内 容 会 显示 错误 信息 
InputBox 方法 可 以 检查 用 户 是 否 单 击 了 “取消 ”按钮 ， 如果 单 击 了 该 按钮 ， 则 将 返回 False。 


案例 13-1 检查 是 否 单 击 了 “取消 ”按钮 
下 面 的 代码 要 求 用 户 输入 一 个 数字 , 然后 在 活动 工作 敌 中 创建 由 该 数字 指定 数量 的 工作 表 。 

如 果 用 户 单 击 “ 取 消 ” 按 钮 ， 则 退出 该 过 程 。 
Sub 检查 是 否 单 击 了 取消 按钮 () 


Dim intCount As Integer 
intCount = Application.InputBox ("请 指定 工作 表 的 数量 : "， TYPe:=1) 
If intCount = False Then Exit Sub 
Worksheets.Add Count:=intCount 
End Sub 


还 可 以 让 InputBox 方法 产生 的 对 话 框 接收 用 户 对 单元 格 或 单元 格 区 域 的 指定 ， 为 此 需要 将 
Type 参数 的 值 设置 为 8。 
呈 。。 案 例 13-2 计算 非 空 单元 格 的 数量 
下 面 的 代码 在 对 话 框 中 显示 所 选择 的 区 域 中 包含 数据 的 单元 格 的 数量 ， 即 计算 非 空 单元 格 
的 数量 。 运 行程 序 后 弹出 对 话 框 ， 使 用 鼠标 在 工作 表 中 选择 一 个 单元 格 区 域 ， 所 选区 域 的 地 址 
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被 自动 输入 到 对 话 框 中 , 单 击 “ 确 定 ”按钮 ， 将 显示 选区 中 非 空 单元 格 的 总 数 ， 如 图 13-2 所 示 。 
如 果 用 户 单 击 “ 取 消 ” 按 钮 ，InputBox 方法 将 返回 逻辑 值 False， 此 时 Set 语句 将 单元 格 引用 赋 
值 给 Range 类 型 的 变量 将 会 失败 并 导致 运行 时 错误 ， 因 此 在 Set 语句 之 前 使 用 On Error Resume 
Next 语句 忽略 所 有 错误 , 然后 在 Set 语句 之 后 检查 变量 是 否 是 Nothing, 如 果 是 则 说 明 赋值 失败 ， 
此 时 会 显示 提示 信息 并 退出 程序 。 

Sub 计算 非 空 单元 格 的 数量 () 


Dim rng As Range 
On Error Resume Next 
Set rng = Application.InputBox ("请 指定 单元 格 区 域 : "，Type:=8) 
If rng Is Nothing Then 
MsgBox "指定 的 单元 格 无 效 ! " 
Exit Sub 
End If 
MsgBox " 非 空 单 元 格 的 数量 是 : " & Application.WorksheetFunction.CountA (rng) 
End Sub 
























































车 入 
Microsoft Excel x 
请 措 定 单元 格 区 域 : 
SAS1:$845 

非 空 单元 格 的 数量 是 : 5 














图 13-2 计算 非 空 单元 格 的 数量 


13.2 使 用 Excel 的 打开 和 另存 对 话 框 


使 用 Application 对 象 的 GetOpenFilename 和 GetSaveAsFilename 两 个 方法 可 以 分 别 显示 “ 打 
开 ” 对 话 框 和 “另存 为 ”对 话 框 。 这 两 个 方法 并 不 会 真正 打开 和 另存 文件 ， 而 是 返回 所 选 文件 
的 路 径 和 文件 名 ， 之 后 可 以 通过 编程 的 方式 进行 处 理 。 


13.2.1 GetOpenFilename 方法 


使 用 GetOpenFilename 方法 可 以 显示 一 个 “打开 ”对 话 框 , 其 外 观 与 在 Excel 界面 中 使 用 “ 打 

开 ” 命 令 打 开 的 “打开 ”对 话 框 相同 ， 但 是 GetOpenFilename 方法 显示 的 “打开 ”对 话 框 只 记 
录 所 选 文件 的 路 径 和 名 称 ， 而 不 会 真正 打开 文件 。GetOpenFilename 方法 的 语法 格式 如 下 : 

Application.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect) 

口 FileFilter: 可 选 ,文件 第 选 条 件 ， 由 文本 第 选 字符 串 和 MS-DOS 通配符 文件 筛选 规范 组 

成 ， 两 部 分 之 间 以 逗号 分 隔 。 如 果 包 含 多 个 筛选 条 件 ， 则 需要 使 用 逗号 分 隔 各 个 筛选 条 

件 。 如 果 省 略 该 参数 , 则 其 值 默认 为 “All Files(*.*),*.*”, 即 所 有 文件 类 型 ,其 中 的 “All 

Files(*.*)” 将 显示 在 “文件 类 型 ”下 拉 列 表 中 ，“*.*” 是 真正 发 挥 筛选 作用 的 MS-DOS 

通配符 。 要 为 单个 筛选 条 件 设置 多 个 MS-DOS 通配符 文件 筛选 规范 ， 需 要 使 用 分 号 分 

隔 各 个 通配符 ， 比 如 “Excel 文件 (*.xls; *.xlsx; *.xlsm)”。 

口 FilterIndex: 可 选 ， 默 认 文件 筛选 条 件 的 索引 号 ， 取 值 范围 为 1 到 由 FileFilter 参数 指定 

的 筛选 条 件 的 总 数 。 如 果 省 略 该 参数 ， 或 该 参数 的 值 大 于 筛选 条 件 总 数 ， 则 该 参数 的 值 
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为 1， 即使 用 FileFilter 参数 中 指定 的 第 一 个 文件 筛选 条 件 。 

口 Title: 可 选 ， 在 对 话 框 的 标题 栏 中 显示 的 内 容 。 默 认为 “打开 ”。 

口 ButtonText: 可 选 ， 仅 用 于 Macintosh 计算 机 。 

口 MultiSelect: 可 选 , 是 否 允 许 选择 多 个 文件 。 如 果 为 True 则 表示 可 以 同时 选择 多 个 文件 ， 
此 时 GetOpenFilename 方法 的 返回 值 将 是 一 个 包含 所 有 选择 文件 名 的 数组 , 如 果 为 False 
则 表示 只 能 选择 一 个 文件 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 False。 


案例 13-3 ”显示 用 于 打开 文件 的 对 话 杠 


下 面 的 代码 在 “打开 ”对 话 框 中 指定 了 两 种 文件 类 型 ， 将 Excel 文件 类 型 设置 为 默认 显示 
”的 类 型 , 因此 在 对 话 框 中 默认 只 显示 Excel 文件 (包括 Excel 2003 以 及 更 高 版 本 Excel 创建 的 工 
作 短 ) ， 可 以 通过 选择 其 他 文件 类 型 来 显示 其 他 文件 。 选 择 好 一 个 文件 并 单 击 “ 打 开 ” 按 钮 ， 
将 在 对 话 框 中 显示 所 选 文件 的 路 径 和 名 称 ， 如 图 13-3 所 示 。 
Sub 显示 用 于 打开 文件 的 对 话 框 () 
Dim strFilter As String, strTitle As String, varFileName 
strFilter = "Excel 文件 (*.xls;*.xlsx;*.Xlsm) ,*.Xxls;*.xlSx;*.Xlsm, ”& "文本 文件 , *.txt" 
strTitle = "请 选择 一 个 文件 " 


varFileName = Application.GetOpenFilename (FileFilter:=strFilter, Title:=strTitle) 
If varFileName <> False Then 


MsgBox "所 选 文件 的 路 径 和 名 称 是 : " & varFileName 










































































End If 
End Sub 
力 请 渤 择 一 个 文件 x 
个 < 实例 文件 第 13 章 vo 搜索 "第 13 章 及 
组 织 ” 。 新 建文 件 夫 "m0 
国 此 电脑 ^ 国宾 13-1xs 
国 Desktop 守 呈 13-1xlsm 
和 实例 13-2xlsm 
国 乓 913-3xem 
园 图 片 
及 T 莹 
小 至 乐 
和 Windows 10 (C 
= Windows xp (| 
二 Windows 7 (E) 
一 书稿 (F 
司 娱乐 与 共 (G] v 
文件 各 (Ni | | Excet 广 人 Cadsradax'olsm) ~ 
za - 加 
图 13-3 使 用 GetOpenFilename 方法 显示 的 对 话 框 
案例 13-4 在 打开 文件 的 对 话 框 中 选择 多 个 文件 
下 面 的 代码 与 上 一 个 案例 的 功能 类 似 ， 但 是 允许 用 户 同时 选择 多 个 文件 。 单 击 “ 打 开 ” 按 























钮 后 会 将 所 有 选择 的 文件 路 径 和 名 称 以 数组 的 形式 返回 ， 即 使 只 选择 了 一 个 文件 ， 返 回 值 仍 是 
数组 。 此 时 需要 使 用 VBA 的 内 置 函数 IsArray 检查 GetOpenFilename 方法 的 返回 值 是 否 是 一 个 
数组 ， 如 果 不 是 则 说 明 用 户 单 击 了 “取消 ”按钮 ， 如 果 是 则 说 明 单 击 了 “打开 ”按钮 ， 此 时 将 
数组 中 每 一 个 元 素 的 值 存储 到 同一 个 变量 中 ， 并 在 对 话 框 中 显示 该 变量 中 存储 的 内 容 ， 即 选择 
的 所 有 文件 的 路 径 和 名 称 ， 如 图 13-4 所 示 。 
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Sub 在 打开 文件 的 对 话 框 中 选择 多 个 文件 () 
Dim strFilter As String, strTitle As String, varFileNames 
Dim intIndex As Integer, strFileName As String 
strFilter = "Excel 文件 (*.xls;*.xlsx;*.Xxlsm) ,*.Xxls;*.Xlsx;*.Xlsm," & "文本 文件 , *.txt" 
strTitle = "请 选择 一 个 文件 " 
varFileNames = Application.GetOpenFilename (FileFilter:=strFilter, Title:=strTitle, 
MultiSelect:=True) 
If IsArray (varFileNames) = False Then Exit Sub 
For intIndex = LBound (varFileNames) To UBound (varFileNames) 
strFileName = strFileName & varFileNames (intIndex) & vbCrLf 
Next intIndex 


MsgBox "所 选 文件 的 路 径 和 名 称 是 : " & vbCrLf & strFileName 











End Sub 
图 读本 一 个 文 件 x 
个 序 ， 此 电脑 ，Windows 10 (C;) > v 已。 溉 泰 "Windows 10 (C 证 
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EL Cp 
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EWindows10C BEN13.2xsm CA 守 例 13-2xlsm 
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mm Windows 7 (E) 的 守 13-4Jdsm CA 案例 13-4xlsm 
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图 13-4 同时 选择 多 个 文件 
13.2.2 ”GetSaveAsFilename 方法 


使 用 GetSaveAsFilename 方法 可 以 显示 一 个 “另存 为 ”对 话 框 ， 其 外 观 与 在 Excel 界面 中 使 
“另存 为 ”命令 打开 的 “另存 为 ”对 话 框 相同 ， 但 是 GetSaveAsFilename 方法 显示 的 “另存 
为 ”对 话 框 只 记录 文件 的 保存 路 径 和 名 称 ， 而 不 会 真正 保存 文件 。GetSaveAsFilename 方法 的 参 
数 与 GetOpenFilename 方法 类 似 ， 语 法 格式 如 下 : 


Application.GetSaveAsFilename (InitialFilename, FileFilter, FilterIindex, Title, 
ButtonText) 


口 InitialFilename: 可 选 ， 默认 的 文件 保存 名 称 ， 如 果 省 略 该 参数 ， 则 使 用 活动 工作 敌 的 名 称 。 

口 FileFilter: 可 选 ， 文 件 筛选 条 件 ， 由 文本 筛选 字符 串 和 MS-DOS 通配符 文件 筛选 规范 组 
成 ， 两 部 分 之 间 以 逗号 分 隔 。 如 果 包 含 多 个 筛选 条 件 ， 则 需要 使 用 逗号 分 隔 各 个 筛选 条 
件 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 “All Files(* .9),*.*”。 要 为 单个 筛选 条 件 设置 多 个 
MS-DOS 通配符 文件 筛选 规范 ， 需 要 使 用 分 号 分 隔 各 个 通配符 ， 比 如 “Excel 文件 (*.xls; 
*.xlsx; *.xlsm)” 。 

口 FilterIndex: 可 选 ， 默 认 文 件 筛选 条 件 的 索引 号 ， 取 值 范围 为 1 到 由 FileFilter 参数 指定 
的 筛选 条 件 的 总 数 。 如 果 省 略 该 参数 ， 或 该 参数 的 值 大 于 筛选 条 件 总 数 ， 则 该 参数 的 值 
为 1， 即 使 用 FileFilter 参数 中 指定 的 第 一 个 文件 筛选 条 件 。 

口 Title: 可 选 ， 在 对 话 框 的 标题 栏 中 显示 的 内 容 ， 默 认为 “另存 为 ”。 

口 ButtonText: 可 选 ， 仅 用 于 Macintosh 计算 机 。 
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案例 13-5 ”显示 用 于 保存 文件 的 对 话 框 
下 面 的 代码 在 对 话 框 中 显示 了 由 用 户 指定 的 文件 保存 路 径 和 文件 名 ， 如 图 13-5 所 示 。 
Sub 显示 用 于 保存 文件 的 对 话 框 () 


Dim strFilter As String, strTitle As String, varFileName 

strFilter = "Excel 文件 (*.xls;*.xlsx;*.xlsm) ,*.Xls;*.Xlsx;<*.Xlsm, "”& "文本 文件 , *.txt" 
strTitle = "请 选择 文件 的 保存 路 径 和 名 称 " 

varFileName = Application.GetSaveAsFilename (FileFilter:=strFilter, Title:=strTitle) 
If varFileName <> False Then 


MsgBox "文件 的 保存 路 径 和 名 称 是 : " & varFileName 
































End If 
End Sub 
图 请 选择 文件 的 保存 路 径 和 名 称 
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图 13-5 使 用 GetSaveAsFilename 方法 显示 的 对 话 框 


13.3 ”使 用 FileDialog 对 象 显示 和 处 理 对 话 杠 


使 用 Office 对 象 模型 中 的 FileDialog 对 象 不 但 可 以 显示 类 似 于 使 用 GetOpenFilename 和 
GetSaveAsFilename 方法 显示 的 打开 和 保存 文件 的 对 话 框 , 还 可 以 显示 用 于 选择 文件 和 文件 夹 的 
对 话 框 , 并 具备 更 灵活 的 编程 处 理 方式 .FileDialog 对 象 通用 于 Excel 2003 以 及 更 高 版 本 的 Excel， 
而 且 在 所 有 支持 VBA 的 Office 应 用 程序 都 可 以 使 用 FileDialog 对 象 。 


13.3.1 FileDialog 对 象 的 常用 属性 和 方法 


FileDialog 对 象 的 一 些 属性 的 功能 与 前 面 介绍 的 GetOpenFilename 和 GetSaveAsFilename 方 
法 的 参数 类 似 , 用 于 设置 对 话 框 的 相关 选项 。 表 13-2 和 表 13-3 列 出 了 FileDialog 对 象 的 常用 属 
性 和 方法 。 

















































































































表 13-2 FileDialog 对 象 的 常用 属性 





























属 性 说 明 
AllowMultiSelect 是 否 允 许 选择 多 个 文件 
ButtonName 返回 或 设置 对 话 框 中 的 动作 按钮 上 显示 的 文本 
DialogType 对 话 框 的 类 型 
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续 表 
属 性 说 ”了 明 
FilterIndex 对 话 框 中 的 默认 文件 筛选 器 
Filters 返回 包含 第 选 器 中 所 有 文件 类 型 的 FileDialogFilters 集合 
InitialFileName 返回 或 设置 对 话 框 中 默认 显示 的 路 径 和 文件 名 














SelectedItems 





返回 包含 所 有 选择 的 文件 路 径 和 名 称 的 FileDialogSelectedItems 集合 


























Title 返回 或 设置 对 话 框 标题 栏 中 显示 的 内 容 
表 13-3 FileDialog 对 象 的 常用 方法 
7 说 了 明 
Show 显示 指定 类 型 的 对 话 框 
Execute 对 所 选 文 件 执行 打开 或 保存 操作 





13.3.2 ”显示 不 同类 型 的 对 话 杠 


使 用 Application 对 象 的 FileDialog 属性 可 以 返回 FileDialog 对 象 。FileDialog 属性 包含 一 个 对 
参数 , 用 于 指定 要 显示 的 对 话 框 的 类 型 , 该 属性 的 值 由 msoFileDialogType 常量 提供 , 见 表 13-4。 



































表 13-4 msoFileDialogType 常量 
名 称 
msoFileDialogOpen 


说 明 
“打开 文件 ”对 话 框 
“保存 文件 ”对 话 框 
“文件 选取 器 ”对 话 框 
msoFileDialogFolderPicker “文件 夹 选取 器 ”对 话 框 
FileDialog 对 象 的 Show 方法 用 于 根据 设置 好 的 文件 筛选 器 以 及 其 他 相关 选项 来 显示 指定 类 
型 的 对 话 框 。 如 果 用 户 在 对 话 框 中 选择 文件 后 单 击 “ 打 开 ” 按 钮 ，Show 方法 将 返回 True， 如 
果 单 击 “ 取 消 ”按钮 则 返回 False。 
下 面 的 代码 显示 一 个 默认 的 “打开 文件 ”对 话 框 。 将 FileDialog 属性 右 侧 括号 中 的 常量 替 
换 为 表 13-4 中 的 其 他 3 个 , 可 以 显示 不 同 的 对 话 框 。 如 图 13-6 所 示 显 示 了 使 用 FileDialog 对 象 
可 以 显示 的 4 种 类 型 的 对 话 框 。 


Application.FileDialog (msoFileDialogOpen) .Show 


msoFileDialogSaveAs 


msoFileDialogFilePicker 
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图 13-6 使 用 FileDialog 对 象 显示 的 4 种 类 型 的 对 话 框 
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13-6 使 用 FileDialog 对 象 显示 的 4 种 类 型 的 对 话 框 〈 续 ) 


13.3.3 ”指定 在 对 话 框 中 显示 的 文件 类 型 


使 用 FileDialog 对 象 的 Filters 属性 可 以 指定 在 对 话 框 中 显示 的 文件 类 型 ， 该 属性 返回 的 
FileDialogFilters 集合 用 于 设置 文件 筛选 器 。 每 个 文件 筛选 器 由 文件 类 型 的 文本 说 明和 文件 扩展 
名 两 部 分 组 成 ， 文 件 筛选 器 在 对 话 框 的 “文件 类 型 ”下 拉 列 表 中 会 以 类 似 “ 文 本 文件 (*.tkb” 的 
形式 显示 。 在 对 话 框 中 添加 文件 筛选 器 时 并 不 会 删除 默认 的 文件 筛选 器 ， 因 此 通常 需要 使 用 
FileDialogFilters 集合 的 Clear 方法 删除 对 话 框 中 预 置 的 所 有 文件 筛选 器 ， 再 使 用 Add 方法 添加 
新 的 文件 筛选 器 。 
FileDialogFilters 集合 的 Add 方法 的 语法 格式 如 下 : 
FileDialogFilters.Add (Description, Extensions, Position) 
口 Description: 要 添加 的 文件 筛选 器 中 的 文件 类 型 的 文本 说 明 。 
口 Extensions: 要 添加 的 文件 筛选 器 中 的 文件 扩展 名 。 可 以 指定 多 个 扩展 名 ， 每 个 扩展 名 
必须 以 分 号 分 隔 ， 比 如 “*.xlsx;*.xls”。 不 需要 在 文件 扩展 名 两 侧 添加 括号 ， 在 成 功 添 
加 文件 筛选 器 后 ，Excel 会 自动 在 文件 扩展 名 两 侧 添 加 括号 。 

口 Position: 新 添加 的 文件 筛选 器 在 对 话 框 的 文件 筛选 器 列表 中 的 位 置 。 新 的 文件 筛选 器 
将 被 添加 到 由 该 参数 指定 的 位 置 所 对 应 的 文件 筛选 器 之 前 。 如 果 省 略 该 参数 ， 则 将 新 的 
文件 筛选 器 添加 到 文件 筛选 器 列表 的 最 后 。 


案例 13-6 ”设置 对 话 框 中 的 文件 筛选 器 

下 面 的 代码 显示 “打开 文件 ”对 话 框 并 在 其 中 只 显示 .xlsx 和 .xlsm 格式 的 Excel 文件 ， 然 后 
检查 用 户 单 击 了 哪个 按钮 ， 如 果 单 击 的 是 “打开 ”按钮 ， 则 在 对 话 框 中 显示 用 户 选择 的 文件 路 
径 和 名 称 ， 否 则 用 户 单 击 的 是 “取消 ”按钮 则 直接 退出 过 程 。 


Sub 设置 对 话 框 中 的 文件 筛选 器 () 
Dim fdl As FileDialog, fdf As FileDialogFilters 
Set fdl = Application.FileDialog (msoFileDialogOpen) 
Set fdf = fal.Filters 
With fdf 
‘Clear 
.Add "Excel 文件 "，"*.xlsx;*.xlsm" 
End With 
If fdl.Show Then MsgBox fdl.SelectedItems (1) 
End Sub 
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13.3.4 ”在 对 话 框 中 选择 一 个 或 多 个 文件 


通过 设置 FileDialog 对 象 的 AllowMultiSelect 属 性 , 可 以 控制 在 对 话 框 中 只 能 选择 一 个 文件 ， 
还 是 可 以 同时 选择 多 个 文件 。 该 属性 返回 或 设置 一 个 Boolean 类 型 的 值 ， 如 果 为 True 则 表示 可 
以 选择 多 个 文件 , 如 果 为 False 则 表示 只 能 选择 一 个 文件 。 如 果 省 略 该 参数 , 则 其 值 默认 为 True。 

无 论 在 对 话 框 中 选择 一 个 文件 还 是 多 个 文件 ， 选 择 的 所 有 文件 都 包含 在 返回 的 
FileDialogSelectedItems 集合 中 。 如 果 选 择 了 一 个 文件 ， 则 需要 处 理 该 集合 中 索引 号 为 1 的 元 素 ; 
如 果 选 择 了 多 个 文件 , 则 需要 在 For Each 循环 结构 中 遍历 集合 中 的 每 一 个 元 素 并 进行 所 需 的 处 理 。 


案例 13-7 ”将 所 选 文件 的 路 径 和 名 称 添加 到 单元 格 区 域 中 

下 面 的 代码 将 用 户 在 “打开 文件 ”对 话 框 中 选择 的 所 有 文件 的 路 径 和 名 称 添加 到 Sheetl 工 
作 表 中 的 A、B 两 列 ， 如 图 13-7 所 示 。 

Sub 将 所 选 文件 的 路 径 和 名 称 添加 到 单元 格 区 域 中 () 


Dim fdl As FileDialog, fdf As FileDialogFilters 
Dim varItem, intRow As Integer, wks Rs Worksheet 
Set wks = Worksheets ("Sheet1") 
Set fdl = Application.FileDialog (msoFileDialogOpen) 
Set fdf = fdl.Filters 
With fdf 
.Clear 
.Rdd "Excel 文件 "，"*.xlsx;*.xlsm" 
End With 
IE fdl.Show Then 
wks.Range ("A1") .Resize (1，2) .Value = Array ("编号 "，" 文 件 路 径 和 和 名称") 
For Each varItem In fdl.SelectedItems 
intRow = intRow + 1 
wks.Cells (intRow + 1, 1) .Value 
wks .Cells (intRow + 1, 2) .Value 
Next varItem 
wks.Range ("Al") .Resize(1，2) .EntireColumn.RAutoFit 
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End If 
End Sub 
团 打开 文件 x 
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图 13-7 将 所 选 文件 的 路 径 和 名 称 添加 到 A、B 两 列 
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13.3.5 ”对 所 选 文件 执行 操作 


FileDialog 对 象 的 Show 方法 只 用 于 显示 对 话 框 并 获取 用 户 在 对 话 框 中 选择 的 文件 , 但 不 会 
执行 打开 或 保存 文件 的 操作 。 如 果 需 要 在 选择 文件 后 执行 相应 的 打开 或 保存 操作 ， 则 需要 在 
Show 方法 之 后 使 用 Execute 方法 。 


案例 13-8 在 Excel 中 打开 所 选择 的 文件 
下 面 的 代码 在 Excel 中 打开 用 户 在 “打开 ”对 话 框 中 选择 的 文件 。 本 例 将 FileDialog 对 象 的 
AllowMultiSelect 属性 设置 为 False， 从 而 只 允许 用 户 选择 一 个 文件 。 


Sub 在 Excel 中 打开 所 选择 的 文件 () 
Dim fdl As FileDialog, fdf As FileDialogFilters 
Set fdl = Application.FileDialog (msoFileDialogOpen) 
Set fdf = fdl.Filters 
fdl.AllowMultiSelect = False 
With fdf 
.Clear 
.Rdd "Excel 文件 "，"*.xlsx;*.xlsm" 
End With 
If fdl.Show Then fdl.Execute 
End Sub 




































































13.4 使 用 Dialogs 集合 显示 Excel 内 置 对 话 框 


Excel 本 身 提供 的 大 量 的 内 置 对 话 框 用 于 完成 Excel 各 项 功能 的 设置 或 使 用 ， 比 如 定位 目标 
单元 格 的 “定位 ”对 话 框 。 使 用 Application 对 象 的 Dialogs 属性 可 以 返回 Dialogs 集合 ， 该 集合 
包含 一 个 参数 ， 用 于 指定 想 要 显示 的 Excel 内 置 对 话 框 。 该 参数 的 值 由 XlBuiltInDialog 常量 提 
供 ，Excel 中 的 每 一 个 内 置 对 话 框 都 与 一 个 预定 义 的 XIBuiltmDialog 常量 值 相 对 应 ， 表 13-5 列 
出 了 部 分 常用 的 常量 值 。 









































表 13-5 XIBuiltiInDialog 常量 




















名 称 说 了 明 
xlDialogOpen “打开 ”对 话 框 
xlDialogSaveAs “另存 为 ”对 话 框 
xlDialogPageSetup “页 面 设置 ”对 话 框 
xlDialogPrint “打印 ”对 话 框 
xlDialogSetPrintTitles “设置 打印 标题 ”对 话 框 
xlDialogFont “字体 ”对 话 框 
xlDialogDisplay “显示 ”对 话 框 
xlDialogCalculation “计算 ”对 话 框 
xlDialogBorder “边框 ”对 话 框 
xlDialogColumnWidth “ 列 宽 ” 对 话 框 
xlDialogClear “清除 ”对 话 框 
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续 表 

名 称 值 说 明 
xlDialogPasteSpecial 53 “选择 性 粘贴 ”对 话 框 
xlDialogEditDelete 54 “编辑 删除 ”对 话 框 
xlDialogInsert 55 “插入 ”对 话 框 
xlDialogPasteNames 58 “粘贴 名 称 ” 对 话 框 
xlDialogDefineName 61 “定义 名 称 ” 对 话 框 
xlDialogCreateNames 62 “以 选 定 区 域 创 建 名 称 ” 对 话 杠 
xlDialogFormulaGoto 63 “ 转 到 公式 ”对 话 框 
xlDialogUnhide 94 “取消 隐藏 工作 夭 ” 对 话 框 
xlDialogActivate 103 “激活 ”对 话 框 
xlDialogDeleteName 110 “删除 名 称 ” 对 话 框 
xlDialogRowHeight 127 “ 行 高 ”对 话 框 
xlDialogSelectSpecial 132 “定位 条 件 ” 对 话 框 
xlDialogApplyNames 133 “应 用 名 称 ” 对 话 框 
xlDialogSaveWorkbook 145 “另存 为 ”对 话 框 
xlDialogConsolidate | 1 | “合并 计算 ”对 话 框 
xlDialogDefineStyle 229 “定义 样式 ”对 话 框 
xlDialogZoom 256 “缩放 ”对 话 框 
xlDialogWorkbookOptions | 2z4 | “ 重 命名 工作 表 ” 对 话 框 
xlDialogWorkbookNew 302 “插入 ”对 话 框 
xlDialogInsertPicture 342 “插入 图 片 ”对 话 框 
xlDialogFontProperties 381 “设置 单元 格格 式 ” 对 话 框 
xlDialogWorkbookUnhide 384 “取消 隐藏 工作 表 ” 对 话 框 
xlDialogWorkbookProtect 417 “保护 结构 和 窗口 ”对 话 框 
xlDialogStandardWidth 472 “标准 宽度 ”对 话 框 
xlDialogConditionalFormatting 583 “条 件 格 式 规则 管理 器 ”对 话 框 
xlDialogImportTextFile 666 “导入 文本 文件 ”对 话 框 
xlDialogCreateList 796 “创建 表 ” 对 话 框 
xlDialogNameManager 977 “名 称 管理 器 ”对 话 框 
xlDialogNewName 978 “新 建 名 称 ” 对 话 框 





通过 使 用 Show 方法 可 以 显示 指定 的 内 置 对 话 框 ， 下 面 的 代码 显示 “定位 ”对 话 框 。 如 果 
用 户 单 击 对 话 框 中 的 “确定 ”按钮 ， 则 Show 方法 返回 True， 如 果 单 击 “ 取 消 ”按钮 ， 则 Show 
方法 返回 False， 由 此 可 以 判断 用 户 离开 内 置 对 话 框 的 方式 。 


Application.Dialogs (xlDialogFormulaGoto) .Show 






































到 
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框 中 单 击 几 下 鼠标 , 即 可 完成 对 Excel 程序 的 设置 和 使 用 。 在 VBA 中 内 置 了 两 种 
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Excel 内 置 了 大 量 的 对 话 框 ， 为 用 户 与 Excel 程序 之 间 的 交互 提供 了 方便 ， 用 户 只 需 在 对 话 





nputBox 函数 和 MsgBox 函数 创建 , 使 用 它们 可 以 输入 和 显示 信息 , 但 是 功能 














基本 的 对 话 框 ， 
比较 简单 .VBA 


为 用 户 提供 了 创建 复杂 对 话 框 的 工具 一 一 用 户 窗 体 和 控件 ， 用 户 可 以 根据 需要 创建 适应 各 种 需 
求 从 简单 到 复杂 的 自 定义 对 话 框 ， 其 外 观 与 操作 方式 类 似 于 Excel 内 置 对 话 框 。 本 章 将 详细 介 


绍 在 





14. 








14.1 理解 用 户 窗 体 和 控件 


E VBA 中 通过 用 户 窗 体 和 控件 构建 自 定 义 对 话 框 的 方法 ， 并 列举 了 大 量 的 案例 以 帮助 读者 
理解 本 章 涉及 的 知识 和 技术 。 


本 节 主 要 介绍 用 户 窗 体 和 控件 的 一 些 基本 概念 ， 了 解 这 些 内 容 有 助 于 更 好 地 学 习 和 理解 本 
章 后 面 将 要 介绍 的 内 容 。 





1.1 用 户 窗 体 和 控件 简介 














虽然 VBA 提供 了 两 种 用 于 与 用 户 进行 简单 交互 的 对 话 框 ， 但 是 很 难 满足 实际 应 

















的 需要 。 


通过 用 户 窗 体 和 控件 可 以 创建 包含 更 多 界面 元 素 和 交互 方式 的 对 话 框 ， 它 们 的 外 观 和 操作 方式 
类 似 于 Excel 内 置 对 话 框 和 Windows 操作 系统 中 的 标准 对 话 框 。 用 户 窗 体 主 要 用 于 欢迎 和 登录 

















界面 、 信 息 确认 界面 、 选 项 设置 界面 、 程 序 帮助 界面 和 数据 输入 和 查询 界面 。 
































控件 是 放置 在 用 户 窗 体 上 的 对 象 ， 不 同类 型 的 控件 提供 了 与 用 户 交互 的 不 同方 式 。 





例如 ， 


文本 框 控 件 可 以 接收 用 户 输入 的 信息 ， 选 项 按钮 和 复 选 框 控件 以 选项 的 形式 接收 用 户 的 输入 ， 


列表 框 控 件 可 以 显示 一 系列 数据 ， 图 像 控 件 可 以 显示 指定 的 图 片 。 


件 执行 特定 操作 时 将 会 触发 相应 的 事件 ， 用 户 窗 体 和 控件 会 响应 用 户 的 操作 ， 并 

















用 户 窗 体 和 控件 与 用 户 之 间 的 交互 依赖 于 用 户 窗 体 和 控件 的 事件 。 用 户 在 对 用 户 窗 体 和 控 











在 





























自动 运行 预先 
件 过程 中 编写 的 VBA 代码 。 例 如 ， 当 用 户 在 列表 框 控件 中 选择 某 项 时 ， 将 会 触发 该 控件 





的 Change 事件 过 程 。 用 户 窗 体 及 其 中 包含 的 所 有 控件 的 事件 过 程 的 VBA 代码 存储 在 与 用 户 窗 


体 关联 的 代码 模块 中 。 


户 窗 体 和 控件 的 属性 ， 以 便 改 变 


件 、 

















与 Excel 对 象 模型 中 的 对 象 类 似 ， 每 个 控件 还 包含 一 些 属性 和 方法 。 可 以 在 设计 时 设置 用 














用 户 窗 体 和 控件 的 外 观 或 状态 。 其 中 的 一 些 改变 会 在 设计 时 立 
刻 显示 出 来 ， 而 另 一 些 改变 则 只 能 在 运行 时 才 会 有 所 体现 。 设 计时 是 指 创建 用 户 窗 体 、 


添加 控 


编写 代码 的 阶段 ， 运 行 时 是 指 执行 代码 的 期 间 。 每 个 控件 都 有 一 个 默认 属性 ， 如 果 只 输入 
控件 名 而 省 略 属 性 名 ， 则 表示 使 用 的 是 该 控件 的 默认 属性 。 


























无 论 创建 的 用 户 窗 体 是 简单 的 还 是 复杂 的 ， 都 可 以 遵循 以 下 步骤 来 进行 创建 : 
(1) 在 VBA 工程 中 创建 一 个 新 的 用 户 窗 体 。 
(2) 在 用 户 窗 体 中 添加 所 需 的 控件 ， 并 排列 控件 的 位 置 。 
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(3) 设置 














(4) 在 与 








能 位 
(6) 测试 

















14.1.2 
在 VBA 了 





单 





菜单 栏 中 的 


二 





提示 : 读者 可 能 会 对 用 户 窗 体 工具 箱 中 的 控件 与 工作 表 
中 的 表单 控件 和 ActiveX 控件 之 间 的 关系 感到 混乱 。 表 单 控 
件 和 ActiveX 控件 位 于 Excel 功能 区 “开发 工具 ”选项 卡 的 


“插入 ”按钮 中 ， 


使 用 ， 不 能 在 用 户 窗 体 中 使 用 。 用 户 窗 体 工具 箱 中 的 控件 则 与 在 工作 表 中 


上 








[ 作 。 





添加 一 个 用 户 窗 体 后 ， 将 会 显示 该 用 户 








“视图 ”|“ 工 具 箱 ”命令 将 其 显示 出 来 。 


这 两 类 控件 只 能 在 工作 表 或 图 表 工 作 表 中 





图 14-1 


户 窗 体 和 控件 的 属性 ， 以 符合 最 终 对 话 框 的 外 观 和 效果 。 

户 窗 体 关 联 的 模块 中 编写 用 户 窗 体 和 控件 的 事件 过 程 代码 。 

(5) 编写 加 载 、 显 示 、 隐 藏 和 关闭 用 户 窗 体 的 代码 。 这 些 代码 可 能 位 于 标准 模块 中 ， 
F ThisWorkbook 模块 或 某 个 Sheet 模块 中 。 
户 窗 体 和 控件 是 否 能 够 按 预期 要 求 正 确 了 


控件 工具 箱 与 控件 类 型 
[ 程 中 
窗 体 和 工具 箱 ， 如 图 14-1 所 示 。 如 果 未 显示 工具 箱 ， 则 可 以 























户 窗 体 的 工具 箱 








使 用 的 ActiveX 控件 


具有 相同 的 功能 ， 实 际 上 可 以 将 它们 认为 是 在 不 同 环境 下 的 同类 控件 。 








在 创建 用 
以 外 ,其 他 图 
添加 新 的 控件 
然后 在 打开 的 




















下 
14.3.8 节 过 
1. 标签 

标签 控件 在 了 


而 对 了 

















户 窗 体 时 ， 需 要 将 了 
标 表示 不 同 的 控件 类 型 。 工 具 箱 中 默认 包含 15 种 控件 ， 可 以 根据 需要 向 工具 箱 中 
， 只 需 右 
对 话 框 中 选择 要 添加 到 工具 箱 中 的 控件 ， 如 图 14-2 所 示 。 





[ 具 箱 中 





h 的 控件 添加 到 用 户 窗 体 中 





fF 工具 箱 中 的 任意 一 个 图 标 ， 在 弹出 的 菜单 


。 工 具 箱 中 除了 第 一 个 图 标 


中 选择 “附加 控件 ”命令 ， 





附加 控件 


可 用 控件 (A): 
ej):) VideoSoft FlexArray Control A 


口 :-) VideoSoft FlexString Control 
口 Ad Hoc Reporting Control Host 
口 Adobe Acrobat 7.0 Browser Document 
口 Aplayer3 Control 

D AxAssistComm Class 

口 Axcleanctrl Class 

D AxEditControl class 

口 AdnputControl Class 

D AxSubmitControl Class 

D AxUploadControl Class 

口 AxusBKey Class 

DAxUSBKey Class 

DO BlockHouse class 

D BlockHouseAU Class 

口 BusinessBarActiveX Class 

< 





:VideoSoft FlexArray Control 


位 置 CA\WINDOWS\SysWOW6A\VSFLEX3.0CX 





取消 


x 








图 





14-2 ”选择 要 添加 到 工具 箱 中 








bh 的 控件 


[ 具 箱 中 默认 显示 的 15 种 控件 的 功能 进行 简要 介绍 ， 这 些 控件 的 具体 用 法 将 在 
行 详细 说 明 。 











[ 具 箱 中 的 图 标 是 A， 英 文 名 是 Label。 标 签 主要 用 








他 对 象 的 说 明 性 文字 。 


于 显示 特定 内 容 ， 或 作为 其 
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2. 文本 框 

文本 框 控件 在 工具 箱 中 的 图 标 是 回 ， 
内 容 。 

3. 复合 框 

复合 框 ( 又 称 为 组 合 框 控件 在 工具 箱 中 的 图 标 是 甸 ， 英 文 名 是 ComboBox。 可 以 将 复合 
框 看 作 是 文本 框 与 列表 框 的 组 合 ， 既 可 以 在 复合 框 中 选择 一 项 ， 也 可 以 在 复合 框 顶部 的 文本 框 
中 进行 输入 。 
4. 列表 框 
列表 框 控件 在 工具 箱 中 的 图 标 是 国 ， 英 文 名 是 ListBox。 列 表 框 主要 用 于 显示 多 个 项 目 ， 
用 户 可 从 中 选择 一 项 或 多 项 。 
5. 复 选 杠 
复 选 框 控件 在 工具 箱 中 的 图 标 是 四， 英文 名 是 CheckBox。 虽 然 复 选 框 和 复合 框 只 差 一 字 ， 
但 是 功能 完全 不 同 。 复 选 框 类 似 于 一 个 开关 ， 常 用 于 控制 在 两 种 状态 之 间 切 换 ， 比 如 开 / 关 、 显 
示 / 隐 藏 、 真 / 假 、 是 / 否 等 。 复 选 框 还 常用 于 对 多 个 选项 进行 设置 ， 同 时 选择 多 个 选项 以 表示 这 
些 选项 全 部 生效 。 

6. 选项 按钮 

选项 按钮 控件 在 工具 箱 中 的 图 标 是 昌 ， 英 文 名 是 OptionButton。 选 项 按钮 通常 成 组 出 现 ， 
只 能 选择 一 组 选项 按钮 中 的 其 中 之 一 ， 这 是 选项 按钮 与 复 选 框 的 最 大 区 别 。 不 同 组 之 间 的 选项 
按钮 各 自 独 立 、 互 不 干扰 。 

7. 切换 按钮 

切换 按钮 控件 在 工具 箱 中 的 图 标 是 国 ， 英 文 名 是 ToggleButton。 切 换 按钮 包括 按 下 和 弹 起 
两 种 状态 ， 其 功能 与 复 选 框 类 似 ， 只 是 表现 形式 不 同 。 

8. 框架 

框架 控件 在 工具 箱 中 的 图 标 是 四 ， 英 文 名 是 Frame。 框 架 主 要 用 于 对 不 同 用 途 的 选项 按钮 
进行 分 组 ， 并 确保 每 组 中 只 能 选择 一 个 选项 按钮 ， 以 避免 用 户 窗 体 中 包含 大 量 选项 按钮 时 导致 
的 混乱 。 

9. 命令 按钮 

命令 按钮 控件 在 工具 箱 中 的 图 标 是 四， 英文 名 是 CommandButton。 命令 按钮 是 最 常用 的 控 
件 ， 在 用 户 单 击 命令 按钮 时 将 会 执行 指定 的 操作 。 几 乎 在 所 有 的 对 话 框 中 都 包含 命令 按钮 。 

10. TabStrip 

TabStrip 控件 在 工具 箱 中 的 图 标 是 = 。TabStrip 控件 类 似 于 多 页 控件 ， 但 是 该 控件 不 能 作 
为 其 他 控件 的 容器 

11. 多 页 

多 页 控件 在 工具 箱 中 的 图 标 是 马 ， 英 文 名 是 MultiPage。 多 页 控件 主要 用 于 在 一 个 对 话 框 
中 显示 多 个 选项 卡 ， 每 个 选项 卡 中 包含 不 同 的 内 容 。 每 个 选项 卡 的 顶部 有 一 个 文字 标签 ， 通 过 
击 文字 标签 可 以 在 不 同 的 选项 卡 之 间 切 换 。 
































英文 名 是 TextBox。 文 本 框 主要 用 于 接收 用 户 输入 的 
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12. 滚动 条 

滚动 条 控件 在 工具 箱 中 的 图 标 是 号 ， 英 文 名 是 ScrollBar。 滚 动 条 主要 月 
息 的 快速 定位 和 浏览 。 

13. 旋转 按钮 

旋转 按钮 〈 又 称 为 微调 按钮 或 数值 调节 钮 ) 控件 在 工具 箱 中 的 图 标 是 国 ， 英 文 名 是 
SpinButton。 旋 转 按钮 通常 与 文本 框 搭配 使 用 ， 主 要 用 于 调整 值 的 大 小 ， 并 将 调整 后 的 值 显示 在 
文本 框 中 。 

14. 图 像 
图 像 控件 在 工具 箱 中 的 图 标 是 如， 英文 名 是 Image。 图 像 控 件 主要 用 于 在 用 户 窗 体 中 显示 
图 片 和 图 标 。 

15. RafEdit 

RafEdit 控件 在 工具 箱 中 的 图 标 是 国 。RafEdit 控件 允许 用 户 从 工作 表 中 选择 站 
并 自动 将 所 选单 元 格 区 域 的 地 址 输入 到 对 话 框 中 。 


Tm 














于 对 大 量 项 目 或 信 





大 



























































dl 
ES 
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14.1.3 理解 Controls 集合 


上 一 节 介 绍 的 不 同类 型 的 控件 以 及 用 户 窗 体 本 身 都 是 窗 体 对 象 模型 中 的 对 象 。 每 个 用 户 窗 
体 中 包含 的 所 有 控件 组 成 了 该 用 户 窗 体 的 Controls 集合 。 由 于 可 以 在 框架 控件 和 多 页 控件 中 放 
置 其 他 类 型 的 控件 ， 因 此 这 两 种 控件 也 都 有 各 自 的 Controls 集合 。 

除了 以 上 3 种 对 象 拥有 它们 自己 的 Controls 集合 外 ， 其 他 控件 没有 Controls 集合 ， 而 且 窗 
体 对 象 模型 中 也 不 存在 特定 控件 类 型 的 集合 ， 比 如 没有 文本 框 控件 集合 ， 也 没有 命令 按钮 控件 
集合 。 但 是 有 两 个 例外 情况 , 由 于 多 页 控件 中 可 以 包含 多 个 选项 卡 , 每 一 个 选项 卡 都 是 一 个 Page 
对 象 ， 因 此 多 页 控件 中 包含 的 所 有 选项 卡 组 成 了 多 页 控件 的 Pages 集合 。 与 多 页 控件 类 似 ， 
TabStrip 控件 可 以 包含 多 个 选项 卡 标签 ， 每 一 个 选项 卡 标签 都 是 一 个 Tab 对 象 ， 因 此 TabStrip 
控件 中 包含 的 所 有 选项 卡 标签 组 成 了 TabStrip 控件 的 Tabs 集合 。 
于 没有 特定 控件 类 型 的 集合 ， 因 此 如 果 希 望 处 理 特定 类 型 的 控件 ， 则 需要 在 For Each 循 
环 结构 中 使 用 TypeName 函数 检测 每 一 个 控件 ， 并 判断 该 函数 的 返回 值 是 否 是 特定 控件 类 型 的 
名 称 ， 该 名 称 就 是 在 上 一 节 介绍 控件 时 的 英文 名 称 。 


案例 14-1 处理 Controls 集合 中 特定 类 型 的 控件 调 
下 面 的 代码 统计 并 显示 了 UserForml 用 户 窗 体 中 包含 的 文本 框 总 数 ， 如 图 14-3 所 示 。 使 用 器 
For Each 循环 结构 在 UserForml 用 户 窗 体 中 的 控件 集合 中 遍历 每 一 个 控件 ,然后 使 用 TypeName 
函数 判断 每 一 个 控件 的 类 型 是 否 是 TextBox， 如 果 是 则 将 用 于 记录 文本 框 数量 的 变量 的 值 加 1， 
最 后 在 对 话 框 中 显示 文本 框 的 总 数 。 

Sub 处 理 Controls 集合 中 特定 类 型 的 控件 () 


Dim ctl As Control, intCount As Integer 
For Each ctl In UserForml.Controls 
If TypeName (ct1) = "TextBox" Then 
intCount = intCount + 1 
End If 
Next ctl 
MsgBox "在 用 户 窗 体 中 包含 " & intCount & "个 文本 框 " 
End Sub 
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UserForm1 x 
Microsoft Excel x 
在 用 户 窗 体 中 包含 4 个 文本 框 
CommandButtonl CommandButton2 








14-3 ”统计 用 户 窗 体 中 包含 的 文本 框 总 数 


14.2 用户 窗 体 的 基本 操作 


本 节 将 介绍 创 
介绍 了 通过 编写 




















昌 14.2.1 创建 用 户 窗 体 











模块 那样 ， 
以 下 两 种 方法 : 


























建 用 户 窗 体 以 及 使 用 VBA 代码 控制 用 户 窗 体 的 显示 和 关闭 等 状态 的 方法 , 还 
户 窗 体 的 事件 过 程 来 实现 用 户 窗 体 自动 响应 用 户 操作 的 方法 。 


与 标准 模块 和 类 模块 类 似 ， 用 户 窗 体 也 有 其 自己 的 模块 。 就 像 ThisWorkbook 模块 和 Sheet 
日 户 窗 体 也 是 一 种 特定 的 类 模块 。 要 创建 一 个 新 的 用 户 窗 体 ,可 以 在 VBE 窗 








中 使 








口 选择 VBA 工程 中 的 任意 一 项 ， 然 后 单 击 菜单 栏 中 的 “插入 ”|“ 用 户 窗 体 ” 命 令 。 





口 右 击 VBA 工程 中 的 任意 一 项 ， 然 后 在 弹出 的 菜单 中 选择 “插入 ”| “月 


如 图 14-4 所 示 为 创建 的 一 个 用 户 窗 体 ， 用 户 窗 体 的 默认 名 称 














上 户 窗 体 ”命令 。 








由 英文 UserForm 和 一 个 数字 








组 成 ， 比 如 UserForm1、UserForm2 等 。 由 于 在 代码 中 需要 使 用 名 称 来 引用 用 户 窗 体 ， 因 此 为 
用 户 窗 体 设置 一 个 易于 识别 的 名 称 变 得 非常 重要 。 选 择 VBE 窗口 中 的 用 户 窗 体 ， 然 后 按 F4 键 
或 单 击 菜单 栏 中 的 “视图 ”|“ 属 性 窗口 ”命令 打开 属性 窗口 ， 其 中 列 出 了 用 户 窗 体 的 所 有 可 在 
设计 时 设置 的 属性 。 单 击 “〈 名 称 ) ”属性 ， 然 后 输入 用 户 窗 体 的 新 名 称 ， 最 后 按 Enter 键 确 
认 修 改 ， 如 图 14-5 所 示 。 修 改 用 户 窗 体 的 名 称 实际 上 是 在 修改 与 用 户 窗 体 关联 的 模块 的 名 称 。 


















入 Microsoft Visual Basic for Applications - 工作 第 1 - [UserForm1 (UserForm)] 


na 导 F 了 TIO 















控件 | 
四 A Bevoo 
加 国 一 品 吕 国 回国 








图 14-4 创建 一 个 用 户 窗 体 


SA 


磅 文 伯 昌 ”篇 各 日 视 可 W 插入 椎 式 (0) 漠 式 (D) 运行 R) 工具 中 外 接 程序 (A) 富 口 W) 帮助 (H) -8 


0 
eepS rollBarsV:3 一 fnSerollBe 
[Left 0 






- D x 





如 果 用 户 窗 体 中 包含 一 些 控件 ， 则 要 确保 选择 的 不 是 控件 而 是 
是 用 户 窗 体 的 一 个 方法 是 查看 选择 框 是 否 位 于 用 户 窗 体 的 四 周 ， 选 择 杠 
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0 — fnBorderStylelone 


VserFornl 
0 — fnCycleAllForns 
32000 














户 窗 体 的 名 称 





图 14-5 修改 























户 窗 体 本 身 。 证 明 选 择 的 
由 粗 的 线条 及 其 中 的 8 














个 方块 形 的 控制 点 组 成 。 另 一 个 方法 是 检查 属性 窗口 顶部 的 下 拉 列 表 中 当前 显示 的 是 否 是 用 户 











窗 体 的 名 称 ， 此 处 只 会 显示 当前 选中 的 对 象 的 名 称 。 可 以 使 




















frm 作为 用 户 窗 体 名 称 的 前 绥 ， 

















以 便 可 以 在 代码 中 快速 了 解 到 拥有 该 前 缀 的 名 称 都 是 用 户 窗 体 。 
14.2.2 ”设置 用 户 窗 体 的 属性 

创建 一 个 用 户 窗 体 后 ， 为 了 改变 用 户 窗 体 的 外 观 特征 和 行为 方式 ， 需 要 设置 用 户 窗 体 的 属 
性 。 要 设置 用 户 窗 体 的 属性 ， 需 要 双击 工程 资源 管理 器 中 的 用 户 窗 体 模块 ， 打 开 用 户 窗 体 的 设 


计 窗 口 ， 其 中 显示 了 一 个 用 户 窗 体 。 按 F4 键 打开 属性 窗 




















， 其 中 显示 的 就 是 该 用 户 窗 体 的 所 有 








在 设计 时 可 以 设置 的 属性 。 表 14-1 列 出 了 用 户 窗 体 的 常用 属性 。 


表 14-1 用 户 窗 体 的 常用 属性 





属 性 
(名 称 ) 〈 即 Name) 
BackColor 
BorderStyle 
Caption 
Enabled 
ForeColor 
Height 
Left 


Picture 


说 明 
设置 用 户 窗 体 的 名 称 ， 在 代码 中 将 使 用 该 名 称 引用 用 户 窗 体 
设置 用 户 窗 体 的 背景 色 
设置 用 户 窗 体 的 边框 样式 
设置 用 户 窗 体 的 标题 ， 即 用 户 窗 体 标题 栏 中 显示 的 文本 
设置 用 户 窗 体 是 否 可 用 ， 包 括 是 否 可 以 接受 焦点 以 及 响应 用 户 的 操作 
设置 用 户 窗 体 的 前 景色 
设置 用 户 窗 体 的 高 度 
设置 用 户 窗 体 的 左边 缘 与 屏幕 左边 缘 之 间 的 距离 
设置 用 户 窗 体 的 背景 图 





ScrollBars 
ShowModal 
StartUpPosition 


设置 在 用 户 窗 体 中 是 否 显示 水 平 滚动 条 和 垂直 滚动 条 
设置 用 户 窗 体 的 显示 模式 ， 分 为 模式 和 无 模式 两 种 
设置 用 户 窗 体 显 示 时 的 位 置 








Top 
Width 


无 论 设置 哪个 属性 ， 


设置 用 户 窗 体 的 上 边缘 与 屏幕 上 边缘 之 间 的 距离 
设置 用 户 窗 体 的 宽度 








都 需要 先 在 属性 窗口 中 单 击 属性 的 名 称 ， 然 后 再 设置 属性 的 值 。 不 同 





a 








Excel VBA 编程 实战 宝典 


的 属性 拥有 不 同 的 设置 方法 。 有 的 属性 可 以 直接 为 其 输入 一 个 值 , 有 的 属性 包含 多 个 预 置 选项 ， 








需要 从 属性 名 右 侧 的 下 拉 列 表 中 选择 。 还 有 的 属性 包含 一 个 = 按钮 ， 
对 话 框 ， 然 后 从 中 选择 指定 的 文件 。 





单 击 该 按钮 将 会 打开 一 个 


提示 : “属性 ”窗口 中 包含 “ 按 字母 序 ” 和 “ 按 分 类 序 ” 两 个 选项 卡 ， 它 们 包含 相同 的 属 


性 ， 只 不 过 属性 的 排列 方式 不 同 。 
例如 , 设置 用 户 窗 体 的 Caption 属性 时 只 需 为 其 指定 所 需 的 文本 

















， 设置 StartUpPosition 属性 


时 需要 从 预 置 选项 中 选择 一 个 , 而 设置 Picture 属性 则 需要 单 击 -…| 按 钮 , 然后 在 打开 的 对 话 框 中 











选择 一 张 图 片 








注意 : 有 些 属性 无 法 在 程序 运行 时 设置 ， 比 如 “(名 称 )” 属 性 和 ShowModal 属性 。 
































只 有 将 用 户 窗 体 显 示 出 来 ， 用 户 才能 与 用 户 窗 体 及 其 中 包含 的 控件 进行 交互 。 可 以 通过 手 
动 操作 来 显示 用 户 窗 体 ， 为 此 需要 在 工程 资源 管理 器 中 双击 用 户 窗 体 对 应 的 模块 ， 打 开 用 户 窗 
体 的 设计 窗口 ， 然 后 按 F5 键 或 单 击 VBE 窗口 “标准 ”工具 栏 中 的 四 按钮。 如 果 用 户 窗 体 中 包 
含 控件 ， 在 运行 用 户 窗 体 前 应 该 确保 没有 选中 任何 控件 ， 而 只 是 选中 了 用 户 窗 体 。 























为 了 在 程序 运行 期 间 自动 显示 窗 体 ， 需 要 使 用 Show 方法 。 下 面 的 代码 位 于 标准 模块 中 ， 
































于 显示 名 为 frmLogin 的 用 户 窗 体 : 


frmLogin.Show 














Load frmLogin 























如 果 希 望 隐藏 用 户 窗 体 并 使 其 存在 于 内 存 中 ， 则 可 以 使 用 Hide 


frmLogin.Hide 





如 下 所 示 : 


UnLoad frmLogin 


也 可 以 只 将 用 户 窗 体 加 载 到 内 存 中 但 不 显示 出 来 ， 为 此 需要 使 用 Load 语句 ， 如 下 所 示 : 














如 果 直 接 使 用 Show 方法 显示 了 指定 的 用 户 窗 体 ， 则 会 自动 加 载 该 用 户 窗 体 。 
注意 : 如 果 多 次 对 某 个 用 户 窗 体 执行 Load 语句 ， 则 会 重复 加 载 多 个 该 用 户 窗 体 。 


方法 ， 如 下 所 示 : 


需要 显示 隐藏 的 用 户 窗 体 时 ， 可 以 使 用 Show 方法 随时 将 其 显示 出 来 。 
如 果 要 关闭 用 户 窗 体 并 将 其 从 内 存 中 删除 ， 则 可 以 使 用 UnLoad 语句 ， 将 用 户 窗 体 卸 载 ， 


提示 : 纯 载 用 户 窗 体 后 ， 用 户 窗 体 中 的 所 有 控件 将 恢复 到 其 初始 值 ， 而 且 不 会 保存 印 载 之 
前 在 用 户 窗 体 中 所 做 的 任何 更 改 。 如 果 希 望 在 印 载 用 户 窗 体 后 使 用 其 中 的 菜 些 数据 ， 则 需要 在 


印 载 之 前 使 用 公有 变量 存储 所 需 的 数据 ， 或 将 数据 写 入 到 工作 表 中 。 


可 以 使 用 Me 关键 字 代替 用 户 窗 体 名 称 来 引用 代码 所 在 的 用 户 窗 体 ， 这 样 无 论 如 何 修改 用 





户 窗 体 的 名 称 , Me 关键 字 都 能 始终 有 效 地 引用 同一 个 用 户 窗 体 。 下 








而 的 代码 位 于 名 为 fmLogin 





的 用 户 窗 体 中 ， 在 卸载 用 户 窗 体 时 使 用 Me 关键 字 代 蔡 用 户 窗 体 的 名 称 : 


UnLoad Me 


14.2.4 ”使 用 模式 与 无 模式 用 户 窗 体 
”Show 方法 包含 一 个 modal 参数 , 用 于 指定 显示 的 用 户 窗 体 是 模 


式 的 还 是 无 模式 的 。 如 果 省 











略 该 参数 ， 则 默认 显示 为 模式 用 户 窗 体 。 下 面 的 两 行 代码 分 别 将 名 为 fmLogin 的 用 户 窗 体 显示 


为 模式 和 无 模式 的 : 


frmLogin .Show vbModal 


.254 。 
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frmLogin.Show vbModeless 
模式 用 户 窗 体 是 指 在 将 其 关闭 之 前 , 不 能 操作 应 用 程序 的 其 他 部 分 。Excel 中 有 很 多 这 样 的 
对 话 框 ， 比 如 “设置 单元 格格 式 ” 对 话 框 和 “页 面 设置 ”对 话 框 。 无 模式 用 户 窗 体 是 指 在 将 其 
闭 之 前 , 可 以 操作 应 用 程序 的 其 他 部 分 。 Excel 中 也 有 一 些 这 样 的 对 话 框 ， 比 如 “查找 和 替换 ” 


14.2.5 ”使 用 变量 引用 特定 的 用 户 窗 体 

在 引用 名 称 不 确定 的 用 户 窗 体 时 ， 可 以 使 用 变量 来 存储 用 户 窗 体 的 名 称 ， 然 后 使 用 
UserForms 集合 的 Add 方法 将 特定 名 称 的 用 户 窗 体 添加 到 UserForms 集合 中 。UserForms 集合 表 
示 当 前 已 加 载 的 所 有 用 户 窗 体 。 

案例 14-2 ”使 用 变量 引用 用 户 窗 体 

下 面 的 代码 将 表示 用 户 窗 体 名 的 文本 存储 到 一 个 变量 中 ， 然 后 使 用 UserForms 集合 的 Add 
方法 将 拥有 该 名 称 的 用 户 窗 体 添 加 到 UserForms 集合 中 ， 并 使 用 Show 方法 将 其 显示 出 来 。 

Sub 使 用 变量 引用 特定 的 用 户 窗 体 () 


Dim strName As String 














































































































strName = "frmLogin" 
UserForms.Add (strName) .Show 
End Sub 


案例 14-3 ”向 UserForms 集合 中 批量 添加 用 户 窗 体 

下 面 的 代码 一 次 性 将 3 个 用 户 窗 体 添 加 到 UserForms 集合 中 ,如 图 14-6 所 示 显 示 了 3 个 用 
户 窗 体 的 名 称 。 代 码 中 声明 了 一 个 Variant 数据 类 型 的 变量 , 是 一 个 存储 3 个 用 户 窗 体 名 称 的 数 
组 。 然 后 在 For Next 循环 结构 中 通过 数组 的 索引 号 获取 每 一 个 用 户 窗 体 的 名 称 ， 并 使 
UserForms 集合 的 Add 方法 将 其 添加 到 UserForms 集合 中 。 

Sub 向 UserForms 集合 中 批量 添加 用 户 窗 体 () 


Dim varNames As Variant, intIndex As Integer 
Dim intRow As Integer 
varNames = Array("frmLogin", "frmGreet", "frmMain") 
For intIndex = LBound (varNames) To UBound (varNames) 
UserForms.Add (varNames (intIndex)) 
Next intIndex 
End Sub 




































































图 14-6 要 添加 到 UserForms 集合 中 的 3 个 用 户 窗 体 


如 果 要 从 UserForms 集合 中 引用 特定 的 用 户 窗 体 ， 则 必须 使 用 索引 号 而 不 能 使 用 名 称 。 添 
加 到 UserForms 集合 中 的 第 一 个 用 户 窗 体 的 索引 号 是 0， 第 二 个 用 户 窗 体 的 索引 号 是 1， 以 此 类 
推 。 使 用 UserForms 集合 的 Count 属性 可 以 确定 集合 中 包含 的 用 户 窗 体 总 数 ， 将 该 值 加 1 就 是 
集合 中 最 后 一 个 用 户 窗 体 的 索引 号 。 
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案例 14-4 ”从 UserForms 集合 中 引用 用 户 窗 体 

下 面 的 代码 的 前 半 部 分 与 上 一 个 案例 相同 ， 将 指定 名 称 的 所 有 窗 体 添 加 到 UserForms 集合 
中 。 后 半 部 分 用 于 从 UserForms 集合 中 引用 每 一 个 用 户 窗 体 ， 并 将 其 索引 号 、 名 称 和 窗 体 标题 
栏 中 的 标题 写 入 活动 工作 表 中 的 A~C 列 ， 如 图 14-7 所 示 。 

Sub 从 UserForms 集合 中 引用 用 户 窗 体 () 


Dim varNames As Variant，intIndex As Integer 

Dim intRow As Integer 

VarNames = Array("frmLogin", "frmGreet", "frmMain") 

For intIndex = LBound (varNames) To UBound (varNames) 
UserForms.Add varNames (intIndex) 

Next intIndex 

With Range ("R1:C1") 
.Value = Rrray(" 索 引号 "， "名称 "， "标题 ") 
.HorizontalAlignment = xlCenter 

End With 

intRow = 1 

For intIndex = 0 To UserForms.Count - 1 
intRow = intRow + 1 
Cells (intRow, 1) .Value intIndex 
Cells (intRow, 2) .Value UserForms (intIndex) .Name 
Cells (intRow, 3) .Value = UserForms (intIndex) .Caption 

Next intIndex 

End Sub 
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A B C 
索引 号 名 称 标题 
0frmLogin 登录 窗口 


1 frmGreet 欢迎 窗口 
2 frmMain ” 主 富 口 














图 14-7 从 UserForms 集合 中 引用 特定 的 用 户 窗 体 


14.2.6 ”创建 特定 用 户 窗 体 的 多 个 实例 


在 设计 时 向 VBA 工程 中 添加 的 用 户 窗 体 实际 上 是 一 个 专门 用 于 窗 体 的 类 模块 , 可 以 基于 特 
定 用 户 窗 体 的 类 来 创建 特定 用 户 窗 体 的 多 个 实例 。 为 此 需要 将 变量 的 数据 类 型 声明 为 特定 的 用 
户 窗 体 ， 然 后 使 用 Set 语句 和 New 关键 字 将 该 特定 用 户 窗 体 的 引用 赋值 给 变量 。 

下 面 的 代码 声明 了 一 个 名 为 frm 的 变量 ， 该 变量 的 数据 类 型 是 名 为 fmLogin 的 用 户 窗 体 。 
然后 使 用 Set 语句 将 该 用 户 窗 体 的 引用 赋值 给 frm 变量 。 


Dim frm As frmLogin 
Set frm = New frmLogin 


也 可 以 在 声明 语句 中 使 用 New 关键 字 直 接 完成 赋值 操作 ， 如 下 所 示 : 
Dim frm As New frmLogin 
案例 14-5 ”为 同一 个 用 户 窗 体 设置 3 种 不 同 的 标题 
下 面 的 代码 使 用 3 个 变量 引用 名 为 fmLogin 的 用 户 窗 体 , 相当 于 创建 了 该 用 户 窗 体 的 3 个 
副本 ， 然 后 将 3 个 用 户 窗 体 的 标题 设置 为 不 同 内 容 ， 最 后 显示 这 3 个 用 户 窗 体 。 这 3 个 用 户 窗 
体 除 了 标题 不 同 以 外 ， 其 他 都 相同 ， 如 图 14-8 所 示 。 

Sub 创建 特定 用 户 窗 体 的 多 个 实例 () 


Dim frml As frmLogin, frm2 As frmLogin, frm3 As frmLogin 
Set frml = New frmLogin 
Set frm2 = New frmLogin 
Set frm3 = New frmLogin 
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frml .Caption = "登录 一 " 
frm2.Caption = "登录 二 " 
frm3 .Caption = "登录 三 " 
frml .Show 
frm2 .Show 
frm3 .Show 
End Sub 
Userforml x 登录 一 x 
用 户 名 : 用 户 名 : 
密 码 : 密 如 
确定 取消 确定 取消 
登录 二 X 登录 三 x 
用 户 名 : 用 户 名 : 
密码: 密 到 
a | m 消 | a | 取消 
图 14-8 创建 特定 用 户 窗 体 的 多 个 实例 
14.2.7 编写 用 户 窗 体 的 事件 代码 
为 了 让 用 户 窗 体 可 以 响应 用 户 的 操作 ， 需 要 为 用 户 窗 体 编写 事件 代码 ， 比 如 可 能 希望 在 单 
击 或 双击 用 户 窗 体 时 执行 特定 的 操作 。 表 14-2 列 出 了 用 户 窗 体 包 含 的 所 有 事件 以 及 触发 事件 的 
操作 。 
表 14-2 用 户 窗 体 事件 
事件 名 称 触发 事件 的 操作 
Activate 激活 用 户 窗 体 时 
AddControl 代码 运行 期 间 向 用 户 窗 体 中 添加 一 个 控件 时 
BeforeDragOver 鼠标 指针 位 于 用 户 窗 体 上 并 准备 进行 拖 放 操作 之 前 
BeforeDropOrPaste 在 一 个 对 象 上 放置 或 粘贴 数据 之 前 
Click 单 击 用 户 窗 体 时 
DblClick 双击 用 户 窗 体 时 
Deactivate 用 户 窗 体 失去 焦点 时 ， 即 激活 另 一 个 用 户 窗 体 时 
Error 控件 检测 出 错误 但 不 能 将 错误 信息 返回 调用 过 程 时 
Initialize 加 载 用 户 窗 体 时 
KeyDown 在 用 户 窗 体 上 按 下 按键 时 
KeyPress 在 用 户 窗 体 上 按 下 任意 按键 时 
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续 表 
事件 名 称 触发 事件 的 操作 
KeyUp 在 用 户 窗 体 上 释放 按键 时 
Layout 改变 用 户 窗 体 的 大 小 时 
MouseDown 在 用 户 窗 体 上 按 下 鼠标 按键 时 
MouseMove 在 用 户 窗 体 上 移动 鼠标 时 
MouseUp 在 用 户 窗 体 上 释放 鼠标 按键 时 
QueryClose 关闭 用 户 窗 体 时 
RemoveControl 代码 运行 期 间 从 用 户 窗 体 中 删除 一 个 控件 时 
Resize 改变 用 户 窗 体 的 大 小 时 
Scroll 滚动 用 户 窗 体 时 
Terminate 终止 用 户 窗 体 时 
Zoom 缩放 用 户 窗 体 时 








对 于 一 个 用 户 窗 体 来 说 , 每 次 都 会 发 生 以 下 4 个 事件 , 它们 按 事件 发 生 的 先后 顺序 进行 排列 。 


Initialize 一 Activate 一 QuerYyCloser 一 Terminate 


下 面 说 明 用 于 显示 和 关闭 用 户 窗 体 的 方法 和 语句 是 如 何 触发 这 4 个 事件 的 : 





























口 使 用 Load 语句 加 载 用 户 窗 体 时 ， 将 会 触发 Initialize 事件 。 

口 使 用 Show 方法 显示 用 户 窗 体 时 ， 将 会 触发 Initialize 事件 和 Activate 事件 。 

口 使 用 UnLoad 语句 印 载 用 户 窗 体 时 ， 将 会 触发 QueryCloser 事件 和 Terminate 事件 ,使 用 

Hide 方法 隐藏 用 户 窗 体 时 不 会 触发 这 两 个 事件 。 

为 用 户 窗 体 编写 事件 代码 的 方法 与 为 工作 短 和 工作 表 编 写 事件 代码 类 似 ， 首 先 使 用 以 下 两 
种 方法 之 一 打开 用 户 窗 体 的 代码 窗口 : 

口 在 工程 资源 管理 器 中 右 击 用 户 窗 体 模块 ， 然 后 在 弹出 的 菜单 中 选择 “查看 代码 ”命令 。 

口 在 工程 资源 管理 器 中 双击 用 户 窗 体 模块 ， 打开 用 户 窗 体 设计 窗口 , 然后 双击 其 中 的 用 户 
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打开 用 户 窗 体 的 代码 窗口 ， 顶 部 左 侧 的 下 拉 列 表 中 已经 选中 了 当前 的 用 户 窗 体 ， 在 右 侧 的 
下 拉 列 表 中 选择 要 编写 代码 的 事件 ， 如 图 14-9 所 示 ， 然 后 在 其 中 编写 代码 。 
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图 14-9 ”选择 用 户 窗 体 的 事件 











注意 ; 在 开始 编写 事件 代码 前 应 该 设置 好 用 户 窗 体 的 名 称 。 如果 在 编写 事件 过 程 后 修改 了 
用 户 窗 体 的 名 称 ， 则 需要 返回 用 户 窗 体 的 代码 窗口 ， 并 使 用 用 户 窗 体 的 新 名 称 替换 事件 过 程 名 
中 用 户 窗 体 的 旧名 称 ， 否 则 事件 将 会 失效 。 
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案例 14-6 ”让 用 户 窗 体 响应 用 户 的 操作 

下 面 的 代码 使 用 标准 模块 中 的 “显示 用 户 窗 体 ” 过 程 显 示 一 个 用 户 窗 体 ， 该 窗 体 显示 在 
幕 正 中 间 ， 标 题 是 “用 户 登录 ”， 同 时 显示 水 平 滚动 条 和 垂直 滚动 条 ， 如 图 14-10 所 示 。 当 
户 双击 用 户 窗 体 时 ， 将 会 显示 一 个 对 话 框 ， 询 问 用 户 是 否 关闭 用 户 窗 体 。 单 击 “ 是 ”按钮 将 关 
闭 用 户 窗 体 ， 单 击 “ 否 ”按钮 则 不 关闭 用 户 窗 体 。 


用 户 登 录 x 
El 
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关闭 窗 体 关闭 窗 体 x 


是 否 要 关闭 窗 体 ? 关闭 本 窗 体 ， 欢 迎 使 用 ! 


- am Ce 
4 »| 
图 14-10 让 用 户 窗 体 响 应 用 户 的 操作 


下 面 的 代码 位 于 标准 模块 中 ， 用 于 显示 名 为 frmLogin 的 用 户 窗 体 。 
Sub 显示 用 户 窗 体 () 


frmLogin.Show 
End Sub 


下 面 的 代码 位 于 用 户 窗 体 的 Initialize 事件 过 程 中 ， 用 于 在 加 载 用 户 窗 体 时 初始 化 用 户 窗 体 
的 相关 设置 ， 本 例 包 括 设置 用 户 窗 体 的 标题 、 显 示 水 平 滚动 条 和 垂直 滚动 条 、 将 用 户 窗 体 显 示 
在 屏幕 正中 间 3 项 设置 。 

Private Sub UserForm Initialize() 
Me .Caption = "用 户 登 录 " 
Me.ScrollBars = fmScrollBarsBoth 


Me.StartUpPosition = 2 
End Sub 


下 面 的 代码 位 于 用 户 窗 体 的 DblClick 事件 过 程 中 ， 当 用 户 双击 用 户 窗 体 时 关闭 用 户 窗 体 。 


Private Sub UserForm DblClick(ByVal Cancel As MSForms .ReturnBoolean) 
Unload Me 
End Sub 


面 的 代码 位 于 用 户 窗 体 的 QueryClose 事件 过 程 中 , 用 于 在 关闭 用 户 窗 体 时 显示 一 个 由 
户 自 定义 的 对 话 框 ， 询 问 用户 是 否 关闭 窗 体 。 如 果 单 击 “ 是 ”按钮 ， 则 关闭 用 户 窗 体 ， 如 果 单 
击 “ 否 ”按钮 ， 则 不 关闭 用 户 窗 体 。 

Private Sub UserForm QueryClose (Cancel Rs Integer, CloseMode Rs Integer) 
Dim lngAns As Long 
lngAns = MsgBox ("是 否 要 关闭 窗 体 ? "，vibYesNo,，" 关 闭 窗 体 ") 
Select Case lngAns 

Case vbYes 

Case vbNo 

Cancel = True 


End Select 
End Sub 


下 面 的 代码 位 于 用 户 窗 体 的 Terminate 事件 过 程 中 ， 用 于 在 关闭 用 户 窗 体 时 显示 一 条 信息 。 
Private Sub UserForm_Terminate () 


MsgBox "关闭 本 窗 体 ， 欢 迎 使 用 ! "， vbOKOn1Y， "关闭 窗 体 " 
End Sub 
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14.2.8 ”禁用 用 户 窗 体 中 的 关闭 按钮 

在 显示 一 个 用 户 窗 体 后 ， 用 户 可 以 通过 单 击 用 户 窗 体 右上 角 的 关闭 按钮 将 其 关闭 。 但 是 如 
果 在 用 户 窗 体 中 添加 了 命令 按钮 控件 ， 则 很 可 能 希望 用 户 通过 单 击 命令 按钮 执行 操作 后 关闭 用 
户 窗 体 ， 而 不 是 绕 过 命令 按钮 而 意外 地 关闭 用 户 窗 体 ， 因 此 需要 禁用 用 户 窗 体 右 上 角 的 关闭 按 
钮 的 功能 。 
单 击 用 户 窗 体 右上 角 的 关闭 按钮 时 将 会 触发 用 户 窗 体 的 QueryClose 事件 ， 因 此 可 以 在 该 事 
件 过 程 中 编写 代码 来 禁止 用 户 通过 右上 角 的 关闭 按钮 关闭 用 户 窗 体 。QueryClose 事件 过 程 包含 
Cancel 和 CloseMode 两 个 参数 ， 将 Cancel 参数 设置 为 True 将 会 禁止 通过 右上 角 的 关闭 按钮 关 
闭 用 户 窗 体 ，CloseMode 参数 用 于 判断 触发 QueryClose 事件 的 操作 类 型 ， 该 参数 的 值 与 对 应 的 
操作 类 型 见 表 14-3 。 


































































































表 14-3 CloseMode 参数 值 
名 称 


vbFormControlMenu 


说 明 
单 击 用 户 窗 体 右上 角 的 关闭 按钮 关闭 用 户 窗 体 
在 VBA 代码 中 使 用 UnLoad 语句 印 载 用 户 窗 体 
正在 关闭 Windows 操作 系统 
使 用 Windows 任务 管理 器 关闭 Excel 程序 





vbFormCode 
vbAppWindows 
vbAppTaskManager 


案例 14-7 ”禁用 用 户 窗 体 右 上 和 角 的 关闭 按钮 
下 面 的 代码 在 用 户 单 击 对 话 框 右上 角 的 关闭 按钮 时 ， 将 会 显示 一 个 包含 自 定义 信息 的 对 话 
框 ， 并 禁止 关闭 对 话 框 。 
Private Sub UserForm QueryClose(Cancel As Integer, CloseMode As Integer) 
If CloseMode = vbFormControlMenu Then 
MsgBox "请 使 用 【 取消 】 按 钮 关闭 对 话 框 ! " 
Cancel = True 


End If 
End Sub 





14.3 在 用 户 窗 体 中 使 用 控件 


通过 上 一 节 的 内 容 已 经 可 以 创建 正常 显示 、 关 闭 以 及 响应 用 户 操作 的 用 户 窗 体 ， 但 是 一 个 
空白 的 用 户 窗 体 没 有 太 多 实际 意义 。 如 果 要 创建 具有 实际 用 途 的 自 定义 对 话 框 ， 则 需要 在 用 户 
窗 体 中 添加 所 需 类 型 的 控件 ， 然 后 设置 它们 的 属性 ， 并 为 这 些 控件 编写 能 够 响应 用 户 操作 的 
件 代 码 。 本 节 将 介绍 在 窗 体 中 使 用 控件 的 方法 ， 包 括 添加 控件 、 设 置 控 件 的 属性 、 编 写 控件 的 
件 代码 等 内 容 。 


铺 遇 14.3.1 在 用 户 窗 体 中 添加 控件 


可 以 使 用 以 下 3 种 方法 将 工具 箱 中 的 控件 添加 到 用 户 窗 体 中 : 

口 在 工具 箱 中 单 击 要 添加 的 控件 ,然后 单 击 用 户 窗 体 中 的 任意 位 置 , 将 具有 默认 尺寸 的 控 
件 添加 到 用 户 窗 体 中 。 

口 在 工具 箱 中 单 击 要 添加 的 控件 ,然后 在 用 户 窗 体 中 按 住 鼠标 左 键 沿 对 角 线 方向 拖 动 ， 绘 
制 出 由 用 户 指定 大 小 的 控件 。 
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口 在 工具 箱 中 双击 要 添加 的 控件 ， 进 入 该 控件 的 锁定 模式 , 然后 在 用 户 窗 体 中 可 以 连续 添 








加 同一 类 型 的 多 个 控件 。 如 果 要 退出 锁定 模式 ， 

如 图 14-11 所 示 显 示 了 在 用 户 窗 体 中 添加 的 3 
个 命令 按钮 ， 按 钮 上 显示 的 文本 由 控件 的 Caption 
属性 决定 ， 可 以 将 其 称 为 控件 的 标题 。 

在 代码 中 需要 使 用 控件 的 名 称 来 引用 控件 ， 
控件 的 名 称 由 其 “〈 名 称 ) ”属性 (Name) 决定 。 
在 用 户 窗 体 中 添加 的 控件 会 自动 使 用 默认 名 称 ， 
默认 名 称 由 “控件 类 型 名 ”+“ 数 字 ” 组 成 ， 比 如 
命令 按钮 控件 会 被 命名 为 CommandButton1, 文本 
框 控件 会 被 命名 为 TextBox1。 如 果 创建 了 同一 类 
型 的 多 个 控件 ， 则 默认 名 称 中 的 数字 编号 会 自动 





































































































则 可 以 单 击 工具 箱 中 当前 锁定 的 控件 。 
UserForm1 区 下 
a | 


图 14-11 在 用 户 窗 体 中 添加 控件 





























递增 。 默 认 情 况 下 ， 同 一 个 控件 的 Name 属性 和 Caption 属性 具有 相同 的 值 。 


14.3.2 ”设置 控件 的 属性 











将 控件 添加 到 用 户 窗 体 后 , 为 了 让 控件 具有 所 需 的 外 观 和 行为 方式 , 需要 设置 控件 的 属性 。 
按 F4 键 打开 属性 窗口 , 如 果 在 窗口 顶部 的 下 拉 列 表 中 当前 显示 的 不 是 要 设置 的 控件 名 , 则 需要 
在 用 户 窗 体 的 设计 窗口 中 选择 所 需 的 控件 ， 直 到 在 下 拉 列 表 中 当前 显示 该 控件 的 名 称 为 止 。 控 
件 的 很 多 属性 的 含义 与 用 户 窗 体 中 的 同名 属性 类 似 ， 设 置 控件 属性 的 方法 也 与 设置 用 户 窗 体 的 






































属性 类 似 ， 因 此 这 里 不 再 獒 述 。 





虽然 不 同类 型 的 控件 都 有 自己 的 一 套 属性 ， 但 其 中 的 一 些 属性 是 所 有 控件 共同 的 属性 ， 比 


如 每 个 控件 都 有 Name、BackColor、Left、Top、Width、 














Height、Enabled、Visible、Tag 等 属性 。 


这 些 属性 与 用 户 窗 体 的 同名 属性 具有 相同 的 含义 ， 具 体 可 参考 14.2.2 节 。 








可 以 一 次 性 为 多 个 控件 设置 它们 都 有 的 共同 属性 ， 
件 是 否 可 用 。 但 是 共同 属性 中 的 Name 属性 是 个 
例外 ， 同 一 个 用 户 窗 体 中 的 所 有 控件 的 Name 属 
性 必须 是 唯一 的 , 不 能 相同 。 当 选择 多 个 控件 后 ， 
在 属性 窗口 中 只 会 显示 所 有 选中 控件 的 共同 属 
性 ， 如 图 14-12 所 示 。 

可 以 使 用 以 下 几 种 方法 选择 用 户 窗 体 中 的 
控件 : 

口 选择 所 有 控件 : 在 用 户 窗 体 中 按 Ctrl+A 

组 合 键 。 

口 选择 一 定 范围 内 的 控件 : 使 用 鼠标 拖 动 
过 一 定 的 范围 ， 只 要 控件 的 全 部 或 部 分 
位 于 该 范围 内 ， 这 些 控件 就 都 会 被 选中 。 
也 可 以 先 选择 一 个 控件 ， 然 后 按 住 Shift 






























































比如 通过 设置 Enabled 属性 决定 所 有 控 


属性 - UserForm1 





技 字母 序 | 按 分 类 序 | 

















图 14-12 显示 所 有 选中 控件 的 共同 属性 


键 再 单 击 另 一 个 控件 ， 从 而 选中 这 两 个 控件 以 及 位 于 它们 之 间 的 所 有 控件 。 
口 选择 不 相 邻 的 多 个 控件 : 按 住 Ctrl 键 后 依次 单 击 要 选择 的 每 一 个 控件 。 

















当选 择 多 个 控件 时 ， 选 中 的 控件 中 总 有 一 个 控件 其 四 周 的 控制 点 显示 为 白色 ， 而 其 他 选中 








的 控件 的 控制 点 显示 为 黑色 ， 如 图 14-13 所 示 。 当 同时 





调整 所 有 选中 控件 的 格式 时 ， 将 以 控制 
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点 为 白色 的 控件 为 准 。 




















14-13 ”选中 的 控件 具有 白色 或 黑色 的 控制 点 


除了 每 次 手动 选择 多 个 控件 外 ， 还 可 以 将 多 个 控件 设置 为 一 个 组 ， 之 后 就 可 以 将 这 些 控件 
作为 一 个 整体 来 操作 ， 比 如 移动 或 调整 大 小 。 组 中 的 控件 可 以 是 相同 类 型 ， 也 可 以 是 不 同类 型 ， 
可 以 直接 操作 整个 组 ， 也 可 以 只 操作 组 中 的 特定 控件 。 
要 将 多 个 控件 设置 为 一 个 组 ， 需 要 先 选择 这 些 控件 ， 然 后 右 击 选中 的 任意 一 个 控件 ， 在 弹 
出 的 菜单 中 选择 “生成 组 ”命令 。 在 第 一 次 单 击 组 中 的 任意 一 个 控件 时 ， 将 会 选中 整个 组 ， 组 
中 的 所 有 控件 有 一 个 共同 的 选择 框 和 控制 点 ， 如 图 14-14 所 示 。 此 时 单 击 组 中 的 某 个 控件 ， 将 
会 选中 该 控件 并 在 其 四 周 显示 该 控件 自己 的 选择 框 和 控制 点 。 























14-14 选择 整个 组 和 组 中 的 特定 控件 


如 果 要 取消 组 并 使 其 中 的 控件 恢复 为 独立 状态 ， 则 可 以 选中 组 ， 然 后 右 击 组 的 选项 框 ， 在 
弹出 的 菜单 中 选择 “取消 组 ”命令 。 


14.3.3 ”设置 控件 的 大 小 


在 向 用 户 窗 体 添 加 控件 时 , 通过 在 对 角 线 方 向 上 拖 动 鼠标 可 以 控制 正在 添加 的 控件 的 大 小 。 
对 于 已 经 添加 到 用 户 窗 体 中 的 控件 ， 则 可 以 使 用 以 下 几 种 方法 来 设置 控件 的 大 小 。 
口 选择 控件 后 拖 动 其 四 周 的 控制 点 。 
口 利用 用 户 窗 体 上 显示 的 网 格 线 作为 参考 线 , 设置 控件 的 大 小 ,尤其 用 于 对 齐 和 排列 多 个 
控件 。 
口 选择 控件 ， 然 后 在 属性 窗口 中 设置 该 控件 的 Height 属性 和 Width 属性 ， 从 而 精确 控制 
控件 的 大 小 。 
如 果 希 望 将 多 个 控件 设置 为 相同 的 大 小 ， 则 可 以 在 选中 这 些 控 件 后 右 击 选 中 的 任意 一 个 控 
件 ， 然 后 在 弹出 的 菜单 中 选择 “统一 尺寸 ”命令 ， 然 后 在 其 子 菜单 中 选择 一 种 设置 方式 ， 如 图 
14-15 所 示 。 
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14-15 ”快速 将 多 个 控件 设置 为 相同 的 大 小 


14.3.4 设置 控件 的 位 置 和 对 齐 方式 

















在 将 控件 添加 到 用 户 窗 体 后 ， 可 以 使 用 鼠标 拖 动 控件 以 改变 其 位 置 。 也 可 以 使 用 前 面 介绍 
的 方法 选择 多 个 控件 ， 然 后 同时 改变 这 些 控件 的 位 置 ， 并 确保 它们 之 间 的 相对 位 置 固定 不 变 。 
如 果 和 希望 精确 设置 控件 在 用 户 窗 体 中 的 位 置 ， 则 可 以 设置 控件 的 Left 属性 和 Top 属性 。 

如 果 要 同时 调整 多 个 控件 在 用 户 窗 体 中 的 排列 方式 ， 则 可 以 使 用 以 下 两 种 方法 : 

口 选择 要 调整 排列 方式 的 多 个 控件 ， 右 击 选中 的 任意 一 个 控件 ， 在 弹出 的 菜单 中 选择 “对 

齐 ” 命 令 ， 然 后 在 其 子 菜单 中 选择 一 种 对 齐 方式 。 

口 利用 用 户 窗 体 上 显示 的 网 格 作为 参考 线 ， 将 多 个 控件 以 特定 的 网 格 线 为 基准 进行 对 齐 。 

如 果 不 想 让 控件 与 网 格 对 齐 ， 则 可 以 在 VBE 窗口 中 单 击 菜单 栏 中 的 “工具 ”|“ 选 项 ” 命 
令 ， 打开“ 选项 ”对 话 框 。 然 后 在 “通用 ”选项 卡 中 取消 选中 “对 齐 控件 到 网 格 ” 复 选 框 ， 如 
图 14-16 所 示 。 如 果 不 想 在 用 户 窗 体 中 显示 网 格 ， 则 可 以 取消 选中 “显示 网 格 ” 复 选 框 。 
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图 14-16 用 户 窗 体 的 网 格 设置 


14.3.5 ”设置 控件 的 Tab 键 顺序 


焦点 是 指 可 以 接收 用 户 输入 或 单 击 等 操作 的 能 力 。 当 对 象 获 得 焦点 时 ， 用 户 输入 的 内 容 就 “ 
会 位 于 该 对 象 中 ， 或 通过 按 Enter 键 执行 与 鼠标 单 击 等 同 的 操作 。 当 前 获得 焦点 的 对 象 有 时 可 
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以 从 外 观 上 分 辨 出 来 ， 比 如 当 命令 按钮 控件 获得 焦点 时 ， 按 钮 上 会 出 现 虚线 框 ， 如 图 14-17 所 


不 9 


另 一 个 对 象 上 。 可 





ph 的 CommandButtonl1 控件 获得 焦点 。 


同一 时 间 只 能 有 一 个 控件 获得 焦点 , 而 且 控 件 的 Enabled 属性 和 Visible 属性 必须 都 设置 为 
True 时 ， 控 件 才能 获得 焦点 。 按 Tab 键 或 按 Shift+Tab 组 合 键 可 以 将 焦点 从 一 个 对 象 上 移动 到 





位 的 控件 在 显示 用 户 窗 体 时 获得 焦点 。 
当 用 户 窗 体 中 包含 不 止 一 个 控件 时 ， 可 以 使 用 以 下 两 种 方法 设置 控件 的 Tab 键 顺序 : 


口 


图 14-17 从 外 观 上 分 辨 获得 焦点 的 控件 


口 另 一 种 设置 Tab 键 顺序 的 方法 是 设置 控件 的 TabIndex 属性 。 在 用 户 窗 体 中 选择 要 设置 
中 选择 TabIndex 属性 ， 接 着 输入 一 个 数字 。 显 示 用 户 窗 体 时 








在 用 户 窗 体 设计 窗口 中 右 击 用 户 窗 体 ， 在 弹出 的 菜单 中 选择 “Tab 键 顺序 ”命令 ， 打 开 























以 通过 设置 控件 的 Tab 键 顺序 来 决定 焦点 的 移动 顺序 ， 位 于 Tab 键 顺序 第 一 





“Tab 键 顺序 ”对 话 框 ， 如 图 14-18 所 示 。 用 户 窗 体 中 的 所 有 控件 按照 获得 焦点 的 先后 顺 
序 从 上 到 下 依次 排列 。 选 择 一 个 或 多 个 控件 ， 然 后 单 击 “上 移 ” 或 “下 移 ” 调 整 控件 的 


Tab 键 顺 序 。 

















UserForm1 








Tab 键 顺 序 x 
Tab 键 顺 序 (T) 
x [CommandButtonl 确定 | 
CommandButton3 
取消 
上 移 (U) 
下 移 (D) 

















的 控件 ， 然 后 在 属性 窗 

















图 14-18 设置 控件 的 Tab 键 顺序 








第 一 个 获得 焦点 的 控件 其 TabIndex 属性 的 值 为 0， 第 二 个 为 1， 以 此 类 推 。 同一 个 用 户 
TabIndex 属性 的 值 不 能 重复 ， 因 此 在 设置 某 个 控件 的 TabIndex 属 


窗 体 中 的 所 有 控件 的 


性 时 ， 其 他 控件 的 TabIndex 属性 的 值 会 根据 情况 自动 调整 。 


对 于 像框 架 、 多 页 等 类 型 的 容器 控件 , 如果 其 内 部 包含 控件 , 那么 这 些 控件 也 有 自己 的 Tab 








键 顺序 。 在 设置 这 些 控件 的 Tab 键 顺序 之 前 ， 需 要 先 选 中 这 些 控件 所 属 的 容器 控件 。 
提示 : 如 果 和 希望 某 个 控件 不 接收 焦点 ， 则 需要 将 该 控件 的 TabStop 属性 设置 为 False。 


14.3.6 引用 用 户 窗 体 中 的 控件 


可 


在 VBA 中 操作 控件 时 , 需要 使 用 控件 的 名 称 引用 控件 , 控件 的 名 称 即 是 看 











| 以 使 用 Name 属性 返回 控 伯 
与 为 普通 变量 命名 类 似 ， 














表示 控件 类 型 





F 的 名 称 。 


入 姓名 的 文本 框 控件 命名 为 txtName。 


控件 时 ， 


























于 控件 位 于 用 户 窗 体 中 








。264 。 


Fh， 而 用 户 窗 体 本 身 也 是 一 个 模块 ， 


需要 根据 不 同情 况 使 用 不 同 的 方法 ， 具 体 如 下 : 








因 

















E 属 性 窗口 中 设置 
的 “(名 称 ) ”属性 的 值 。 只 能 在 设计 时 修改 控件 的 名 称 ， 在 运行 时 无 法 修改 控件 的 名 称 ， 但 








此 在 引用 


个 月 




















在 为 控件 命名 时 ， 为 了 在 代码 中 易于 识别 控件 的 类 型 ， 也 应 该 使 


的 字符 作为 控件 名 的 前 缀 ， 比 如 将 “确定 ”按钮 控件 命名 为 cmdOk， 将 用 于 输 





有 户 窗 体 中 的 


第 14 章 











果 在 用 户 窗 体 中 引用 其 内 部 包含 的 控件 ， 则 可 以 直接 输入 控件 的 名 称 来 引用 该 控件 。 











口 
这 对 








的 代码 引用 


txtName.Value = "Excel VBA" 























如 ， 在 名 为 frmLogin 的 用 户 窗 体 中 有 一 个 名 为 txtName 的 文本 框 控件 ， 
该 文本 框 ， 并 将 “Excel VBA” 输 入 到 文本 框 中 : 





口 如 果 从 其 他 模块 中 引用 用 户 窗 体 





作为 限定 符 ， 就 像 引用 不 同 标准 模 





码 位 于 标准 模块 中 ， 


创建 用 户 窗 体 和 控件 














可 以 使 用 下 











bh 的 控件 , 则 需要 在 控件 名 称 前 添加 用 户 窗 体 的 名 称 以 





frmLogin .txtName.Value = "Excel VBA" 


14.3.7 ”编写 控件 的 事件 代码 


为 了 让 控件 可 以 响应 用 户 对 其 进行 的 操作 ， 需 要 为 控件 编写 相应 的 事件 代码 。 当 
件 执行 特定 操作 时 ， 将 会 触发 相应 的 事件 ， 从 而 自动 执行 














控件 所 在 的 用 户 窗 体 模块 的 代码 窗口 中 。 
如 果 要 编写 控件 的 事件 代码 , 可 以 在 
体 的 设计 窗口 中 双击 该 控件 , 打开 用 户 窗 
的 代码 窗口 ,并 自动 输入 好 该 控件 默认 的 
程 的 框架 。 如 果 当 前 事件 不 是 要 编写 的 事 


























用 户 窗 
体 模块 
事件 过 
件 ， 则 





可 以 从 窗口 顶部 右 侧 的 下 拉 列 表 中 选择 所 需 的 











事件 ， 如 图 14-19 所 示 。 

每 个 控件 都 有 其 默认 的 事件 ， 比 如 命 
控件 的 默认 事件 是 Click 事件 ， 文 本 框 控 
认 事件 是 Change 事件 。 


案例 14-8 ”让 控件 响应 用 户 的 操作 











令 按 钮 
件 的 默 


块 中 的 变量 一 样 。 仍 然 以 上 面 的 情况 为 例 ， 
引用 名 为 frmLogin 的 用 户 窗 体 中 名 为 txtName 的 文本 框 控件 ， 并 
将 “Excel VBA” 输 入 到 该 文本 框 中 : 








下 面 的 代 
































户 对 控 
件 代码 位 
































件 中 的 代码 。 控 件 的 
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Option Explicit 


Paste 
rivete su ommendnutton Pl i 


End Sub 

















图 14-19 复合 框 控件 的 事件 列表 





下 面 的 代码 位 于 按钮 控件 的 Click 事件 过 程 中 ， 当 用 户 单 击 用户 窗 体 中 的 “确定 ”按钮 时 ， 
将 会 显示 一 条 用 于 确认 用 户 单 击 了 该 按钮 的 信息 ， 信 息 中 包含 按钮 的 标题 ， 如 图 14-20 所 示 。 














Private Sub cmdOk Click() 
MsgBox "你 单 击 了 【" 
End Sub 


& cmdOk.Caption & "]】 按钮 " 





UserForm1 











Microsoft Excel x 


你 单 二 了 【确定 ] 按钮 








图 14-20 ”让 控件 响应 用 户 的 操作 


14.3.8 使 用 同一 个 事件 过 程 处 理 多 个 控件 
常会 遇 到 多 个 同类 控件 完成 同一 种 操作 的 情况 。 例 如 ， 在 用 户 窗 体 中 有 多 





在 实际 应 用 中 ， 
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个 命令 按钮 ， 希 望 在 单 击 任何 一 个 按钮 时 ， 都 能 显示 一 个 类 似 但 又 存在 个 体 差异 的 信息 ， 以 告 
知 用 户 当前 单 击 的 按钮 的 标题 。 常 规 方 法 是 为 每 一 个 按钮 编写 代码 几乎 相同 的 事件 过 程 ， 而 使 
类 模块 则 可 以 简化 操作 ， 只 需 在 一 个 位 置 编写 事件 过 程 的 代码 即 可 。 

案例 14-9 ”让 多 个 按钮 共享 同一 个 事件 过 程 

实现 本 例 功 能 的 方法 如 下 : 

(1) 新 建 一 个 工作 簿 ， 将 其 保存 为 “Excel 启用 宏 的 工作 短 ” 格 式 。 

(2) 按 AlttF11 组 合 键 打 开 VBE 窗口 ， 在 VBA 工程 中 添加 一 个 用 户 窗 体 ， 然 后 在 其 中 添 
加 7 个 命令 按钮 控件 ， 修 改 这 些 按钮 的 Caption 属性 ， 如 图 14-21 所 示 ， 并 将 “关闭 ”按钮 的 名 
称 设置 为 cmdClose， 用 于 在 代码 中 使 用 该 名 称 来 引用 “关闭 ”按钮 。 

(3) 在 VBA 工程 中 添加 一 个 类 模块 。 选中 类 模块 后 打开 属性 窗口 ,将 类 模块 的 名 称 设置 为 
CcmdEvents， 如 图 14-22 所 示 。 













































































CemdEvents 类 模 决 
按 字母 序 | 按 分 类 序 | 











图 14-21 创建 用 户 窗 体 及 其 中 的 命令 按钮 控件 图 14-22 设置 类 模块 的 名 称 


(4) 在 类 模块 CcmdEvents 的 代码 窗口 中 输入 下 面 的 代码 ， 使 用 WithEvents 关键 字 声 明 一 
个 用 户 窗 体 中 的 命令 按钮 控件 的 对 象 ， 该 声明 相当 于 为 类 模块 创建 了 一 个 属性 。 

Public WithEvents fmCommandButton As MSForms.CommandButton 

提示 : 可 以 将 命令 按钮 改 为 其 他 类 型 的 控件 ， 只 需 修改 WithEvents 关键 字 右 侧 的 变量 名 以 
及 As 关键 字 右 侧 的 控件 类 型 名 ， 比 如 下 面 的 代码 用 于 处 理 文本 框 控件 : 

Public WithEvents fmTextBox Rs MSForms .TextBox 

(5) 在 类 模块 的 代码 窗口 顶部 左 侧 的 下 拉 列 表 中 选择 上 一 步 声明 好 的 ftmCommandButton， 
在 右 侧 下 拉 列 表 中 选择 Click， 然 后 在 Click 事件 过 程 中 输入 下 面 的 代码 : 


Private Sub fmCommandButton Click() 
Dim strMsg As String 
strMsg = "你 单 击 的 按钮 是 : " 


MsgBox strMsg & fmCommandButton.Caption 
End Sub 


(6) 双击 用 户 窗 体 中 的 “关闭 ”按钮 ， 在 代码 窗口 中 输入 下 面 的 代码 ， 用 于 在 
时 关闭 用 户 窗 体 。 


Private Sub cmdClose Click() 
Unload Me 
End Sub 


(7) 在 用 户 窗 体 的 代码 窗口 顶部 左 侧 下 拉 列 表 中 选择 UserForm， 在 右 侧 下 拉 列 表 中 选择 
Initialize， 然 后 编写 Initialize 事件 过 程 的 代码 。 在 用 户 窗 体 模 块 项 部 的 声明 部 分 声明 一 个 名 为 
cmdButtons 的 对 象 数 组 变量 ， 该 变量 的 数据 类 型 就 是 前 面 创建 的 类 模块 的 名 称 CemdEvents。 


Private cmdButtons () As New CcmdEvents 
Private Sub UserForm Initialize() 
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Dim ctl As Control, intCount As Integer 
For Each ctl In Me.Controls 
If TypeName (ct1l) = "CommandButton" Then 
IE ct1.Name <> "cmdClose" Then 
intCount = intCount + 1 
ReDim Preserve cmdButtons (1 To intCount) 
Set cmdButtons (intCount) .fmCommandButton = ctl 
End If 
End If 
Next ctl 
End Sub 


完成 所 有 设计 工作 后 ， 在 VBE 窗口 中 运行 用 户 窗 体 ， 单 击 其 中 除了 “关闭 ”按钮 以 外 的 其 
他 任何 按钮 ， 都 会 显示 内 容 几 乎 完全 相同 的 提示 信息 ， 这 些 信息 的 唯一 区 别 是 命令 按钮 的 标题 
名 不 同 ， 如 图 14-23 所 示 。 
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图 14-23 使 用 同一 个 事件 过 程 处 理 多 个 控件 


14.4 常用 控件 的 使 用 方法 


本 节 将 介绍 工具 箱 中 一 些 常 用 控件 的 使 用 方法 ， 包 括 这 些 控件 的 常用 属性 和 事件 ， 并 列举 
了 大 量 案 例 以 更 好 地 说 明 如 何 使 用 VBA 操控 这 些 控件 。 为 了 避免 重复 列 出 共同 属性 而 浪费 篇 
幅 ， 所 有 控件 具有 的 共同 属性 不 会 在 后 面 介绍 的 每 个 控件 中 重复 列 出 ， 具 体 包括 Name、 
BackColor、Left、Top、Width、Height、Enabled、Visible、Tag 等 属性 ， 这 些 属性 的 含义 请 参 
考 14.2.2 节 。 
































14.4.1 令 按钮 


命令 按钮 几乎 出 现在 绝 大 多 数 的 对 话 框 中 ,通过 单 击 命令 按钮 执行 所 需 的 操作 。Click 事件 
是 命令 按钮 控件 的 默认 事件 ， 单 击 命令 按钮 时 将 会 触发 Click 事件 。 表 14-4 列 出 了 命令 按钮 控 
件 的 常用 属性 。 











表 14-4 命令 按钮 控件 的 常用 属性 

















属 性 说 了 明 
Cancel 如 果 将 Cancel 设置 为 True， 则 在 按 Esc 键 时 将 会 执行 命令 按钮 上 的 操作 
Default 如 果 将 Default 设置 为 True， 则 在 按 Enter 键 时 将 会 执行 命令 按钮 上 的 操作 
TakeFocusOnClick 单 击 控件 时 该 控件 是 否 获得 焦点 ， 获 得 则 设置 为 True， 否 则 设置 为 False 








如 果 将 Cancel 属性 设置 为 True， 即 使 命令 按钮 没有 获得 焦点 ， 按 Esc 键 也 会 执行 该 命令 按 


钮 上 的 操作 。Excel 中 的 很 多 内 置 对 话 框 都 具有 该 功能 ， 比 如 打开 “设置 单元 格格 式 ” 对 话 框 后 ， 
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按 Esc 键 将 会 关闭 该 对 话 框 。 同 理 ， 如 果 将 Default 属性 设置 为 True 时 ， 即 使 命令 按钮 没有 获 





得 焦点 ， 


按 Enter 键 也 会 执行 该 命令 按钮 上 的 操作 。 


案例 14-10 ”为 用 户 窗 体 指定 默认 的 确定 按钮 和 取消 按钮 


本 例 的 用 














户 窗 体 在 设计 时 的 外 观 如 图 14-24 所 示 ， 其 中 包括 一 个 名 为 txtName 的 文本 框 和 


名 为 cmdOk〔 确 定 ) 和 cmdCancel (取消 ) 的 两 个 命令 按钮 。 将 cmdOk 命令 按钮 的 Default 属 
性 设置 为 True， 将 cmdCancel 命令 按钮 的 Cancel 属性 设置 为 True。 











图 14-24 设计 时 的 用 户 窗 体外 观 











下 面 的 代码 位 于 上 














容 。 由 于 将 “确定 ”按钮 设置 为 默认 按钮 ， 因 





户 窗 体 的 代码 模块 中 。 运 行 本 例 中 的 用 户 窗 体 ， 在 文本 框 中 输入 一 些 内 
此 按 Enter 键 相当 于 单 击 了 “确定 ”按钮 ， 将 在 


一 个 弹出 对 话 框 中 显示 文本 框 中 的 内 容 ， 如 图 14-25 所 示 。 关 闭 弹 出 对 话 框 ， 仍 然 可 以 继续 在 
文本 框 中 输入 内 容 ， 而 无 须 重新 将 焦点 定位 到 文本 框 中 ， 这 是 因为 在 初始 化 用 户 窗 体 时 将 “ 确 





定 ” 按 钮 的 TakeFocusOnClick 属性 设置 为 False。 如 果 要 关闭 用 
是 因为 将 “取消 ”按钮 的 Cancel 属性 设置 为 True， 因 














Private Sub UserForm Initialize() 


End 


cmdOk.TakeFocusOnClick = False 
Sub 


Private Sub cmdok Click() 


End 


MsgBox "当前 输入 的 是 : " & txtName.Text 
Sub 


Private Sub cmdCancel Click() 


End 


案例 14-11 单 击 按钮 时 自动 修改 其 上 显示 的 标题 


Unload Me 
Sub 





UserForml x 


户 窗 体 ， 只 需 按 Esc 键 即 可 ， 这 
此 按 Esc 键 相当 于 单 击 “ 取 消 ” 按 钮 。 








[和 技 Microsoi ft Excel x 


当前 输入 的 是 : 尚 品 科技 




















图 14-25 用 户 窗 体 的 运行 效果 























下 让 




















的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 在 单 击 
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， 其 标题 将 会 自动 在 “确定 ”和 “取消 ”之 间 切 换 ， 如 图 14-26 所 示 。 


户 窗 体 中 的 命令 按钮 
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Private Sub cmdSwitch Click() 
Select Case cmdSwitch.Caption 
Case "确定 " 
cmadSwitch.Caption = "取消 " 
Case "取消 " 
cmdSwitch.Caption = "确定 " 
End Select 
End Sub 





UserForm1 x UserForm1 x 




















图 14-26 ”自动 切换 命令 按钮 的 标题 


14.4.2 文本 框 
文本 框 用 于 接收 用 户 的 输入 或 显示 指定 的 信息 。Change 事件 是 文本 框 控 件 的 默认 事件 ， 当 
文本 框 中 的 文本 发 生 改变 时 将 会 触发 Change 事件 。 表 14-5 列 出 了 文本 框 控 件 的 常用 属性 。 
表 14-5 文本 框 控件 的 常用 属性 
属 性 说 明 


EE 设置 在 文本 框 中 按 Enter 键 后 的 结果 ， 如 果 设置 为 True， 则 在 文本 框 中 凶 
行 ， 如 果 设 置 为 False， 则 将 焦点 移动 到 下 一 个 Tab 键 顺序 的 控件 上 






































建 一 个 新 






















































































LineCount 返回 文本 框 中 包含 的 文本 的 行 数 

Locked 锁定 文本 框 并 禁止 用 户 编辑 文本 框 中 的 文本 

MaxLength 设置 文本 框 中 可 容纳 的 字符 总 数 

Mine 设置 文本 框 是 否 可 以 接收 和 显示 多 行文 本 ， 如 果 设 置 为 True， 则 使 用 多 行文 本 ， 如 
果 设 置 为 False， 则 使 用 单行 文本 

PasswordChar 设置 在 文本 框 中 输入 的 内 容 显示 为 哪 种 字符 ， 该 属性 用 于 创建 密码 文本 框 

ScrollBars 设置 在 文本 框 中 是 否 包含 水 平 滚动 条 和 垂直 滚动 条 

SelLength 设置 在 文本 框 中 选中 的 字符 数 

SelStart 设置 选中 文本 的 起 始 位 置 ， 如 果 没有 选中 的 文本 ， 则 设置 插入 点 的 位 置 

SelText 返回 或 设置 文本 框 中 选中 的 文本 

Text 设置 在 文本 框 中 显示 的 文本 

TextAlign 设置 文本 框 中 的 文本 的 对 齐 方式 ， 包 括 左 对 齐 、 居 中 对 齐 和 右 对 齐 3 种 

TextLength 返回 文本 框 中 的 文本 的 字符 数 

WordWrap 设置 文本 框 中 的 文本 在 超过 一 行 后 是 否 自动 换行 





如 果 将 MultiLine 属性 设置 为 False， 则 WordWrap 属性 的 设置 不 会 产生 任何 效果 ， 因 为 文本 
框 中 的 文本 始终 以 单行 显示 , 不 存在 换行 问题 .如 果 将 MultiLine 属性 设置 为 True, 则 WordWrap 
属性 的 设置 会 影响 多 行文 本 是 否 可 以 自动 换行 ， 但 是 还 有 一 个 因素 也 会 影响 WordWrap 属性 的 
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设置 效果 ， 即 ScrollBars 属性 。 在 将 MultiLine 属性 设置 为 True 的 情况 下 ， 如 果 将 ScrollBars 属 
性 设置 为 显示 水 平 滚动 条 ， 那 么 WordWrap 属性 的 设置 不 会 产生 任何 效果 ， 因 为 无 论 在 文本 框 
中 有 多 少 文本 ， 都 可 以 拖 动 水 平 滚动 条 查看 到 当前 显示 范围 之 外 的 文本 。 
案例 14-12 ”创建 密码 文本 框 间 限制 可 输入 的 字符 数 
面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 在 文本 框 中 输入 一 些 内 容 ， 无 
论 输入 什么 内 容 ， 都 以 * 号 显示 ， 如 图 14-27 所 示 。 如 果 输 入 的 字符 个 数 少 于 6 位 ， 单 击 “ 确 定 ” 
按钮 时 将 会 弹出 提示 信息 ， 并 自动 清空 文本 框 中 的 所 有 内 容 ， 同 时 焦点 仍 在 文本 框 中 ， 等 待 用 
户 的 下 次 输入 。 为 了 获得 本 例 中 的 效果 ， 需 要 设置 文本 框 控件 的 以 下 两 个 属性 : 

口 MaxLength 属性 : 设置 为 6。 

口 PasswordChar 属性 : 设置 为 * 。 


Private Sub UserForm Initialize() 
cmdOk.TakeFocusOnClick = False 
End Sub 
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Private Sub cmdOk Click() 
If Len (txtPassword.Value) < txtPassword.MaxLength Then 
MsgBox "密码 位 数 不 够 ， 请 重新 输入 " 
txtPassword.Text = "" 
End If 
End Sub 
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图 14-27 创建 密码 文本 框 


案例 14-13 ”创建 显示 多 行文 本 的 文本 框 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 在 文本 框 中 将 会 自动 载 入 预 置 
的 文本 ， 并 显示 在 多 行 中 ， 还 会 显示 垂直 滚动 条 ， 如 图 14-28 所 示 。 单 击 “ 确 定 ” 按 钮 时 将 会 
弹出 提示 信息 ， 显 示 文 本 框 中 文本 的 总 行 数 。 为 了 获得 本 例 中 的 效果 ， 需 要 设置 文本 框 控件 的 
以 下 3 个 属性 : 

口 MultiLine 属性 ， 设 置 为 True。 

口 ScrollBars 属性 : 设置 为 fmScrollBarsVertical 。 

口 WordWrap 属性 : 设置 为 True 


Private Sub UserForm Initialize() 
txtMulti.Text = "文本 框 用 于 接收 用 户 的 输入 或 显示 指定 的 信息 。Change 事件 是 文本 框 控件 的 默认 事 
件 ， 当 文本 框 中 的 文本 发 生 改 变 时 将 会 触发 Change 事件 。" 
cmdOk.TakeFocusOnClick = False 

End Sub 


密码 位 数 不 够 ， 请 重新 输入 
























































Private Sub cmdOk Click() 
MsgBox "文本 共有 " & txtMulti.LineCount & " 行 " 
End Sub 
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文本 共有 6 行 


图 14-28 创建 显示 多 行文 本 的 文本 杠 


为 了 使 LineCount 属性 正常 工作 ， 必 须 确保 文本 框 始终 获得 焦点 ， 因 此 需要 在 用 户 窗 体 的 
Initialize 事件 过 程 中 加 入 下 面 的 代码 ， 以 确保 文本 框 不 会 失去 焦点 。 


cmdOk.TakeFocusOnClick = False 


案例 14-14 ”将 文本 框 中 的 内 容 添加 到 工作 表 中 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运行 用 户 窗 体 后 , 在 文本 框 中 输入 内 容 并 单 击 “ 添 
加 ”按钮 ， 输 入 的 内 容 会 自动 被 添加 到 A 列 最 后 一 个 包含 数据 的 单元 格 下 方 的 单元 格 中 ， 如 图 
14-29 所 示 。 由 于 每 次 单 击 “ 添 加 ”按钮 都 会 触发 Click 事件 过 程 ， 在 运行 完 过 程 中 的 代码 后 就 
会 结束 该 过 程 。 为 了 在 两 次 单 击 之 间 能 够 记录 由 lngRow 变量 存储 的 最 后 一 个 包含 数据 的 单元 
格 所 在 的 行 号 ， 因 此 需要 使 用 Static 关键 字 将 变量 声明 为 静态 变量 ， 从 而 可 以 确保 在 退出 Sub 
过 程 时 变量 中 的 值 不 会 丢失 。 


Private Sub UserForm Initialize() 
cmdRAdd .TakeFocusOnClick = False 
End Sub 



























































Private Sub cmdAdd Click() 
Dim rng As Range 
Static lngRow Rs Long 
lngRow = Cells (Rows .Count，1) .End(x1UP) .Row 
If IsEmpty(Range ("Al")) Then 
Range ("Al") .Value = txtAdd.Text 
Else 
lngRow = lngRow + 1 
Set rng = Cells(lngRow, 1) 
rng.Value = txtAdd.Text 

















End If 
txtAddText = "™ 
End Sub 
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图 14-29 将 文本 框 中 的 内 容 添加 到 工作 表 中 








入 时 




















面 的 代码 位 于 


























确 。 单 击 “重新 输入 ”按钮 将 会 清空 在 文本 框 
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案例 14-15 ”验证 在 文本 框 中 输入 的 每 一 个 字符 
户 窗 体 的 代码 模块 





FP。 运行 用 户 窗 体 后 ， 在 文本 框 中 每 输入 一 个 字符 ， 
都 会 在 下 方 以 放大 的 比例 显示 相同 的 字符 ， 如 图 14-30 所 示 ， 从 而 可 以 验证 输入 的 字符 是 否 正 














输入 的 所 有 内 容 ， 寺 





等 待 








户 的 下 一 次 输入 。 








显示 放大 字符 的 是 一 个 标签 控件 ， 为 了 获得 放大 效果 ， 需 要 设置 标签 控件 的 Font 属性 中 的 字号 











大 小 ， 本 例 将 其 





设置 为 “三 号 ”。 


Private Sub txtCheck Change() 


lblCheck.Caption = txtCheck.Text 


End Sub 


Private Sub cmdCheck Click() 
txtCheck.Text = "" 
txtCheck.SetFocus 


End Sub 





UserForm1 





UserForml x 











Userf 


orm1 x 


123 








14.4.3 ”数值 调节 钮 
上 下 两 个 箭头 组 成 ， 单 击 上 箭头 或 下 箭头 可 以 增加 或 减少 数值 ， 通 常 与 文本 





数值 调节 钮 由 











图 14-30 ”验证 在 文本 框 中 输入 的 内 容 


框 配合 使 用 。Change 事件 是 数值 调节 钮 控件 的 默认 事件 ， 当 单 击 数值 调节 钮 的 上 箭头 或 下 箭头 
时 将 会 触发 Change 事件 。 表 14-6 列 出 了 数值 调节 钮 控件 的 常用 属性 。 


表 14-6 ”数值 调节 钮 控件 的 常用 属性 


设置 数值 调节 钮 可 以 调整 到 的 最 大 值 

















Min 设置 数值 调节 钮 可 以 调整 到 的 最 小 值 

Orientation 设置 数值 调节 钮 的 方向 ， 分 为 水 平和 垂直 两 种 

SmallChange 单 击 数据 调节 钮 的 上 箭头 或 下 箭头 时 数值 递增 或 递减 的 量 ， 默 认为 1 
Value 单 击 数值 调节 钮 的 上 箭头 或 下 箭头 将 会 改变 Value 属性 的 值 











案例 14-16 ”使 用 数值 调节 钮 设置 文本 框 中 的 值 




















下 面 的 代码 位 于 
文本 框 中 的 值 ， 以 便 确 
这 两 行 组 成 的 单元 格 















































户 窗 体 的 代码 模块 
区 域 的 第 一 行 和 最 后 一 行 ， 然 后 单 
14-31 所 示 。 本 例 中 的 两 个 数值 调节 钮 设置 的 值 范 围 为 1 一 


定单 元 格 
区 域 ， 如 图 








hh。 运行 用 户 窗 体 后 ， 通 过 单 击 数值 调节 钮 设置 两 个 





























100。 为 了 获得 本 例 中 的 效果 ， 需 要 设置 两 个 数值 调节 钮 控件 的 以 下 属性 : 





口 Min 属性 : 设置 为 1。 


口 Max 属性 : 设置 为 100。 
口 SmallChange 属性 : 设置 为 1。 





Ss 
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Private Sub UserForm Initialize() 
txtFirst.Text = SpnFirst.Min 
txtLast.Text = SpnLast.Min 

End Sub 


Private Sub SpnFirst Change() 
txtFirst.Text = SpnFirst.Value 
End Sub 


Private Sub SpnLast Change() 
txtLast.Text = SpnLast.Value 
End Sub 


Private Sub cmdSelect Click() 

Dim intFirstRow As Integer, intLastRow As Integer 

intFirstRow = txtFirst.Text 

intLastRow = txtLast.Text 

Range (Cells (intFirstRow, 1), Cells(intLastRow, 2)) .EntireRow.Select 
End Sub 


























图 14-31 使 用 数值 调节 钮 设置 文本 框 中 的 值 

















滚动 条 用 于 快速 浏览 或 定位 大 范围 的 内 容 ， 其 工作 机 制 与 数值 调节 钮 类 似 ， 它 们 包含 大 量 
相同 的 属性 。Change 事件 是 滚动 条 控件 的 默认 事件 ， 当 拖 动 滚动 条 上 的 滑 块 、 单 击 滚动 条 两 端 
的 箭头 、 单 击 滑 块 与 两 端 箭头 之 间 的 区 域 时 都 会 触发 Change 事件 。 表 14-7 列 出 了 滚动 条 控件 












































表 14-7 ”滚动 条 控件 的 常用 属性 




















属 性 说 明 
LargeChange 单 击 滑 块 与 两 端 箭头 之 间 的 区 域 时 数值 递增 或 递减 的 量 
Max 设置 滚动 条 可 以 调整 到 的 最 大 值 
Min 设置 滚动 条 可 以 调整 到 的 最 小 值 
Orientation 设置 滚动 条 的 方向 ， 分 为 水 平和 垂直 两 种 





SmallChange 单 击 滚动 条 的 上 箭头 或 下 箭头 时 数值 递增 或 递减 的 量 ， 默 认为 1 








拖 动 滚动 条 上 的 滑 块 、 单 击 滚动 条 两 端的 箭头 、 单 击 滑 块 与 两 端 箭头 之 间 的 区 域 都 会 改 
变 Value 属性 的 值 








Value 





Ye 
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案例 14-17 ”使 用 滚动 条 放大 字体 的 显示 比例 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 在 文本 框 中 输入 任何 内 容 ， 然 
后 调整 滚动 条 的 位 置 ， 将 在 滚动 条 左 侧 的 标签 中 显示 对 输入 的 内 容 经 过 放大 后 的 内 容 ， 如 图 
14-32 所 示 。 单 击 “ 还 原 ” 按 钮 将 会 清空 文本 框 和 标签 中 的 内 容 ， 同 时 将 滚动 条 上 的 滑 块 恢复 到 
初始 位 置 。 为 了 获得 本 例 中 的 效果 ， 需 要 设置 滚动 条 控件 的 以 下 4 个 属性 ， 以 及 将 标签 控件 的 














TextAlign 属性 设置 为 fnTextAlignCenter， 即 居中 对 齐 。 





口 Min 属性 : 设置 为 1。 
口 Max 属性 : 设置 为 10。 





口 SmallChange 属性 : 设置 为 1。 
口 LargeChange 属性 : 设置 为 3。 


Private Sub txtOriginal Change() 


lblZoom.Caption = 七 Xt 
End Sub 


‘Original.Text 


Private Sub scrZoom Change () 


lblZoom.Font.Size = 七 
End Sub 


xtOriginal.Font.Size * scrZoom.Value 


Private Sub cmdSelect Click() 


scrZoom.Value = scrZo 

txtOriginal.Text = "" 

lblZoom.Caption = "" 

txtOriginal.SetFocus 
End Sub 


om.Min 





UserForm1 x 
[到 了 | 
还 原 = 











图 14-32 ”使 用 滚动 条 放大 字体 的 显示 比例 
使 用 Change 事件 是 在 改变 滑 块 在 滚动 条 上 的 位 置 后 触发 的 , 因此 在 拖 动 滑 块 的 过 程 中 不 会 


对 显示 放大 效果 。 如 果 希 望 实 





二 将 
要 























现 该 效果 , 则 需要 同时 使 用 滚动 条 的 Scroll 事件 和 Change 事件 。 





面 添加 了 滚动 条 的 Scroll 事件 代码 ， 将 其 添加 到 上 面 的 案例 中 。 











Private Sub scrZoom Scroll() 
lblZoom.Font.Size = txtOriginal.Font.Size * scrZoom.Value 


End Sub 


14.4.5 ”选项 按钮 











选项 按钮 通常 成 组 出 现 ， 用 于 为 用 户 提供 多 个 选项 ， 用 户 只 能 从 一 组 选项 按钮 中 选择 其 中 
的 一 项 。 可 以 使 用 容器 控件 为 选项 按钮 分 组 ， 比 如 用 户 窗 体 、 框 架 控件 。 如 果 一 部 分 选项 按钮 












































同 的 组 。Click 事件 是 选项 按钮 





























位 于 用 户 窗 体 中 ， 另 一 部 分 选项 按钮 位 于 用 户 窗 体 中 的 框架 中 ， 则 这 两 部 分 选项 按钮 被 视 为 不 


控件 的 默认 事件 ， 当 选中 选项 按钮 或 将 选项 按钮 的 Value 属性 设 





置 为 True 时 ， 将 会 触发 Click 事件 。 表 14-8 列 出 了 选项 按钮 控件 的 常用 属性 。 
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表 14-8 选项 按钮 控件 的 常用 属性 





























属 性 说 明 

Alianment 。 | 设置 选项 按钮 和 标题 的 位 置 关系 ， 可 以 是 选项 按钮 在 左 ， 标 题 在 右 ， 也 可 以 是 标题 在 左 
ee 选项 按钮 在 右 

oe 设置 选项 按钮 是 否 自动 调整 大 小 以 适应 完整 显示 其 中 的 内 容 ， 如 果 为 True 则 自动 调整 选项 
站 按钮 的 大 小 ， 如 果 为 False 则 不 自动 调整 选项 按钮 的 大 小 

GrowsName | 设置 一 个 名 称 ， 所 有 具有 该 名 称 的 选项 按钮 属于 同一 个 组 ， 使 用 该 方法 可 以 代 普 容器 控件 
. 来 为 选项 按钮 分 组 

本 返回 或 设置 选项 按钮 的 选中 状态 ， 如 果 为 True 则 表示 选中 选项 按钮 ， 如 果 为 False 则 表示 

未 选中 选项 按钮 





案例 14-18 ”使 用 选项 按钮 实现 单项 选择 功能 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 从 几 个 表示 Excel 版 本 的 选项 
按钮 中 选择 一 个 ， 然 后 单 击 “ 确 定 ” 按 钮 ， 将 会 弹出 一 个 对 话 框 ， 其 中 显示 了 所 选择 的 Excel 
版 本 ， 如 图 14-33 所 示 。 


Private Sub cmdok Click() 
Dim strVersion As String 
Select Case True 
Case opt2003.Value 
strVersion = "Excel 2003" 
Case opt2007.Value 
strVersion = "Excel 2007" 
Case opt2010.Value 
strVersion = "Excel 2010" 
Case opt2016.Value 




































































strVersion = "Excel 2016" 
End Select 
MsgBox "你 选择 的 Excel 版 本 是 : " & strVersion 
End Sub 
UserForml x 
选择 Excel 版 本 : 
Microsoft Excel x 
© Excel 2003 F Excel 2007 
C Pxeel 2010 他 区 ce 2016 


你 选择 的 Excel 版 本 是 : Excel 2016 


一 Le | 
图 14-33 ”使 用 选项 按钮 实现 单项 选择 功能 

案例 14-19 ”使 用 多 组 选项 按钮 实现 多 组 选项 设置 功能 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 可 以 从 不 同 的 组 中 选择 不 同 的 
选项 ， 单 击 “ 确 定 ”按钮 后 将 在 弹出 对 话 框 中 显示 所 有 选择 的 结果 ， 如 图 14-34 所 示 。 本 例 使 
框架 控件 对 不 同类 别 的 选项 按钮 进行 分 组 ， 从 而 实现 不 同 组 中 的 选项 按钮 相对 独立 。 由 于 本 
例 需 要 从 两 组 选项 按钮 中 分 别 选择 不 同 的 选项 ， 因 此 需要 使 用 两 个 变量 分 别 存储 两 组 中 选择 的 
选项 ， 然 后 在 对 话 框 中 显示 选择 结果 。 


Private Sub cmdOk Click() 
Dim strWindowsVer As String 
Dim strExcelVer Rs String 












































回 



































二 
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Dim strMsg As String 
Select Case True 
Case optxP.Value 


strWindowsVer = "Windows XP" 
Case opt7.Value 
strWindowsVer = "Windows 7" 
Case opt10.Value 
StrWindowsVer = "Windows 10" 
End Select 


Select Case True 
Case opt2003.Value 
strExcelVer = "Excel 2003" 
Case opt2010.Value 
strExcelVer = "Excel 2010" 
Case opt2016.Value 
strExcelVer = "Excel 2016" 
End Select 
strMsg = "你 选择 的 Windows 版 本 是 : " & strWindowsVer & vbCrLf 
strMsg = strMsg & "你 选择 的 Excel 版 本 是 : " & strExcelVer 
MsgBox strMsg 











End Sub 
Userform1 x 
选择 Windows 版 本 选择 Exeel 版 本 
Microsoft Excel x 

FC Windows XP Excel 2003 
Tis WE 你 选择 的 Windows 版 本 旦 : Windows 10 
[| 人 区 5 2016] 你 选择 的 Excel 版 本 是 : Excel 2016 

= | 














图 14-34 使 用 多 组 选项 按钮 实现 多 组 选项 设置 功能 


案例 14-20 ”使 用 GroupName 属性 代替 框架 控件 将 选项 按钮 分 组 

本 例 实 现 的 功能 和 代码 与 上 一 个 案例 相同 ， 但 是 没有 使 用 框架 控件 为 选项 按钮 分 组 ， 而 是 
通过 为 选项 按钮 设置 不 同 的 GroupName 属性 ， 从 而 实现 分 组 的 目的 。 将 包含 Windows 版 本 的 
所 有 选项 按钮 的 GroupName 属性 设置 为 Windows， 将 包含 Excel 版 本 的 所 有 选项 按钮 的 
GroupName 属性 设置 为 Excel。 运行 用 户 窗 体 后 的 效果 如 图 14-35 所 示 , 可 以 看 到 其 中 并 未 显示 
框架 ， 但 是 仍然 可 以 分 组 选择 不 同 的 选项 。 








UserForm1 X 
选择 Windows 版 本 : 选择 Excel 版 本 : 
© Windows XP F Excel 2003 
Windows 7 © Excel 2010 
人 Windows 10 
确定 























图 14-35 ”使 用 GroupName 属性 代替 框架 控件 





14.4.6” 复 选 框 
复 选 框 与 选项 按钮 类 似 ， 都 用 于 在 一 个 或 多 个 选项 中 做 出 选择 ， 而 且 它们 包含 几乎 完全 相 
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同 的 属性 。 复 选 框 与 选项 按钮 的 最 主要 区 别 是 复 选 框 允许 同时 选择 多 个 ， 而 对 于 一 组 选项 按钮 
来 说 只 能 选择 其 中 之 一 .Click 事件 是 复 选 框 控 件 的 默认 事件 , 当选 中 复 选 框 或 将 复 选 框 的 Value 
属性 设置 为 True 时 ， 将 会 触发 Click 事件 。 表 14-9 列 出 了 复 选 框 控件 的 常用 属性 。 
表 14-9 ” 复 选 框 控件 的 常用 属性 
属 性 说 明 

s 设置 复 选 框 和 标题 的 位 置 关系 ， 可 以 是 复 选 框 在 左 ， 标 题 在 右 ， 也 可 以 是 标题 在 左 ， 复 选 
Alignment 框 在 右 
设置 复 选 框 是 否 自动 调整 大 小 以 适应 完整 显示 其 中 的 内 容 ， 如 果 为 True 则 自动 调整 复 选 框 
的 大 小 ， 如 果 为 False 则 不 自动 调整 复 选 框 的 大 小 
返回 或 设置 复 选 框 的 选中 状态 ， 如 果 为 True 则 表示 选中 复 选 框 ， 如 果 为 False 则 表示 未 选 
中 复 选 框 

案例 14-21 使 用 复 选 框 实现 多 项 选择 功能 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 可 以 从 所 有 选项 中 选择 一 个 或 多 名 
个 ， 选 择 的 同时 将 会 为 文本 框 中 的 文本 设置 相应 的 字体 格式 ， 如 图 14-36 所 示 。 单 击 “ 重 置 ” 按 
钮 ， 将 会 清除 文本 框 中 文本 的 所 有 字体 格式 ， 同 时 清除 所 有 复 选 框 以 使 它们 恢复 到 未 选中 状态 。 


Private Sub chkBold Click() 
txtName.Font.Bold = chkBold.Value 
End Sub 









































AutoSize 





Value 





























Private Sub chkItalic Click() 
txtName.Font.Italic = chkItalic.Value 
End Sub 


Private Sub chkUnderLine Click() 
txtName.Font.Underline = chkUnderLine.Value 
End Sub 


Private Sub cmdOk Click() 
chkBold.Value = False 
chkItalic.Value = False 
chkUnderLine.Value = False 
txtName.Font .Bold = False 
txtName.Font.Italic = False 
txtName.Font.Underline = False 











End Sub 

UserForm1 x| 
选择 字体 格式 : 
万 加 可 | 法 
厂 合作 
末 下 划 线 重 加 

图 14-36 ”使 用 复 选 框 实现 多 项 选择 功能 
14.4.7 ”列表 框 




















列表 框 是 用 户 窗 体 中 使 用 频繁 且 用 途 广 泛 的 控件 ， 用 于 在 一 个 列表 中 显示 多 个 项 目 ， 用 户 

















和 
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可 以 从 中 选择 一 个 。Click 事件 是 列表 框 控 件 的 默认 事件 ， 当 在 列表 框 中 选择 某 个 选项 时 将 会 触 
发 Click 事件 。 表 14-10 和 表 14-11 列 出 了 列表 框 控件 的 常用 属性 和 方法 。 
表 14-10 “列表 框 控件 的 常用 属性 
属 性 说 ”了 明 


对 于 多 列 列表 框 来 说 , 该 属性 用 于 设置 使 用 当前 所 选 行 的 哪 一 列 数据 作为 列表 框 的 Value 
属性 的 值 


ColumnCount 设置 在 列表 框 中 显示 的 项 目的 列 数 


回 或 设置 列表 框 中 包含 的 项 目 ， 通 过 索引 号 来 引用 列表 框 中 的 特定 项 目 ， 列 表 框 中 的 
一 个 项 目的 索引 号 为 0， 第 二 个 项 目的 索引 号 为 1， 以 此 类 推 


返 
第 
ListCount 返回 列表 框 中 包含 的 项 目 总 数 
返 
项 


可 在 列表 框 中 当前 选择 的 项 目的 索引 号 ， 列 表 框 中 的 第 一 个 项 目的 索引 号 是 0, 第 二 个 
目的 索引 号 是 1， 以 此 类 推 


ListStyle 设置 列表 框 中 的 项 目的 外 观 样式 ， 可 以 将 项 目 显示 为 选项 按钮 或 复 选 框 的 外 观 


设置 是 否 可 以 在 列表 框 中 选择 多 个 项 目 ， 可 以 通过 鼠标 反复 单 击 来 选择 或 取消 选择 项 目 ， 
也 可 以 使 用 Ctrl 或 Shift 键 并 配合 鼠标 单 击 来 选择 指定 范围 内 的 项 目 


RowSource 将 工作 表单 元 格 区 域 中 的 数据 指定 为 列表 框 中 的 项 目 


在 允许 多 项 选择 的 情况 下 ， 该 属性 用 于 返回 或 设置 指定 项 目的 选中 状态 ， 如 果 为 True 则 
表示 已 选中 ， 如 果 为 False 则 表示 未 选中 


Text 返回 在 列表 框 中 当前 选择 的 项 目 
TopIndex 返回 或 设置 列表 框 项 端的 项 目 ， 如 果 列 表 框 中 没有 任何 项 目 或 未 被 显示 ， 则 该 属性 返回 -1 














BoundColumn 

















List 




















ListIndex 








MultiSelect 



































Selected 




















表 14-11 列表 框 控件 的 常用 方法 





大 说 明 

AddItem 将 新 的 项 目 添加 到 列表 框 中 
Clear 删除 列表 框 中 的 所 有 项 目 
RemoveItem 删除 列表 框 中 的 指定 项 目 








本 节 将 通过 多 个 案例 来 详细 介绍 列表 框 的 使 用 方法 。 

案例 14-22 ”使 用 RowSource 属性 将 活动 工作 表 中 的 单列 数据 添加 到 列表 框 中 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 
[ 作 表 的 A1:A10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 ， 单 击 “ 清 空 ”按钮 ， 将 清空 列表 中 的 
























































所 有 内 容 ， 如 图 14-37 所 示 。 由 于 本 例 使 用 的 是 RowSource 属性 向 列表 框 中 添加 项 目 ， 因 此 
在 删除 列表 框 中 的 所 有 项 目 时 不 能 使 用 Clear 方法 ， 而 必须 将 RowSource 属性 设置 为 空 字符 





才能 实现 。 
Private Sub cmdAdd Click() 


lstName.RowSource = "Al:A10" 
End Sub 


HR 


Private Sub cmdClear Click() 
1stName .RowSource = "" 
End Sub 
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A B C D E F G 
1 | 丁玲 21| 
2 | 江 方 26 | userform1 X 
3 | 秦 婉 49 
4 | 石 琳 37 
5 | 黄 美 21 
6 | 赵 勃 43 
7 | 汪 腾 28 
8 万 典 40 添加 
9 五 博 33 
10 | 郑 岗 28 
11 清空 


























图 14-37 使 用 RowSource 属性 将 活动 工作 表 中 的 单列 数据 添加 到 列表 框 中 


案例 14-23 ”使 用 RowSource 属性 将 特定 工作 表 中 的 单列 数据 添加 到 列表 框 中 

下 面 的 代码 与 上 一 个 案例 类 似 ， 仍 然 使 用 RowSource 属性 将 工作 表 中 的 数据 添加 到 列表 框 
中 ， 如 图 14-38 所 示 。 不 同 的 是 ， 本 例 添加 的 是 特定 工作 表 中 的 数据 ， 而 不 是 活动 工作 表 中 的 
数据 ， 因 此 在 为 RowSource 属性 赋值 时 ， 必 须 包 含 特定 工作 表 的 名 称 和 一 个 叹 号 ， 就 像 在 工作 
表 公式 中 引用 其 他 工作 表 的 单元 格 那样 。 


Private Sub cmdAdd Click() 
lstProduct.RowSource = "Sheet2!Al1:A10" 
End Sub 
























































Private Sub cmdClear Click() 
lstProduct.RowSource = "" 
End Sub 





> 
中 
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B C D E F G 


26 UserForm1 x 














Sheet1 Sheet2 Sheet1 Sheet2 


四 








图 14-38 使 用 RowSource 属性 将 特定 工作 表 中 的 单列 数据 添加 到 列表 框 中 








ey 









































所 示 。 由 于 本 例 向 工作 表 
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案例 14-24 ”使 用 RowSource 属性 将 工作 表 中 的 多 列 数 据 添加 到 列表 框 中 
了 下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 

作 表 的 A1:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 ,在 列表 框 中 将 会 显示 3 列 数据 ,如 图 14-39 
添加 的 是 3 列 数据 ， 因 此 需要 将 列表 框 的 ColumnCount 属性 设置 为 
































3， 以 便 正 确 显示 3 列 数据 。 可 以 在 设计 时 选择 列表 框 后 在 属性 窗口 设置 ColumnCount 属性 ， 
本 例 是 在 代码 运行 时 根据 指定 的 区 域 动态 设置 该 属性 的 值 。 


Private Sub cmdAdd Click() 
Dim strAddress Rs String, intCols Rs Integer 
strAddress = "Al:C10" 
intCols = Range (strAddress) .Columns.Count 
lstName.ColumnCount = intCols 





lstName.RowSource = strAddress 


End Sub 


Private Sub cmdClear Click() 
lstName.RowSource = "" 


End Sub 
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UserForm1 





冲冲 酒 酒 冲冲 冲 装 酒 冲 














冲冲 酒 酒 冲冲 冲冲 酒 冲 















































图 14-39 使 用 RowSource 属性 将 工作 表 中 的 多 列 数据 添加 到 列表 框 中 


案例 14-25 ”使 用 Addltem 方法 将 无 规律 的 项 目 逐 一 添加 到 列表 框 中 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 商品 名 























称 添加 到 列表 框 中 ， 如 图 14-40 所 示 。 本 例 与 上 一 个 案例 类 似 ， 也 是 使 用 AddItem 方法 ; 



































将 项 目 


添加 到 列表 框 中 ， 但 是 因为 本 例 中 的 项 目 名 称 没有 规律 ， 因 此 只 能 重复 执行 AddItem 方法 逐一 





添加 每 一 个 项 目 。 如 果 要 从 列表 框 叶 


的 Clear 方法 。 


"280。 

















删除 由 AddItem 方法 添加 的 项 目 ， 则 需要 使 用 列表 框 控 件 
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Private Sub cmdAdd Click() 
lstProduct.AddItem "电视 " 
1stProduct .RddItem "冰箱 " 
lstProduct .AddItem "空调 " 
lstProduct .RddItem "洗衣 机 " 
lstProduct .RddItem "微波 炉 " 
lstProduct .AddItem "电磁 炉 " 
lstProduct .RddItem "热水器 " 

End Sub 


Private Sub cmdClear Click() 
lstProduct.Clear 
End Sub 





UserForm1 UserForm1 



































图 14-40 ”使 用 AddItem 方法 将 无 规律 的 项 目 逐 一 添加 到 列表 框 中 


案例 14-26 ”使 用 Addltem 方法 将 连续 的 数字 编号 批量 添加 到 列表 框 中 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 力 




















1 














”按钮 ， 将 1 一 50 久 








这 50 个 数字 添加 到 列表 框 中 ， 如 图 14-41 所 示 。 由 于 数字 是 连续 的 ， 因 此 可 以 使 
循环 结构 进行 批量 添加 。 与 前 几 个 案例 不 同 ， 本 例 使 用 
方法 包含 两 个 参数 ， 第 一 个 参数 表示 要 添加 的 项 目 ， 第 二 个 参数 表示 要 将 项 目 添加 
的 位 置 。 如 果 省 略 第 二 个 参数 ， 则 将 新 的 项 目 添加 到 列表 框 的 底部 。 
Private Sub cmdAdd Click() 
Dim intNumber As Integer 
For intNumber = 1 To 50 
lstNumber.AddItem intNumber 
Next intNumber 
End Sub 























UserForm1 UserForm1 









































图 14-41 使 用 AddItem 方法 将 连续 的 数字 编号 批量 添加 到 列表 框 中 


案例 14-27 ”使 用 Addltem 方法 将 单元 格 区 域 中 的 数据 批量 添加 到 列表 框 中 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 
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AddItem 方法 向 列表 框 中 添 








For Next 
加 项 目 ， 该 











运行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 了 


到 列表 框 中 
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作 表 中 的 A1:A10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 , 如 图 14-42 所 示 。 如果 已 经 为 列表 框 的 
RowSource 属性 设置 了 值 , 则 在 使 用 AddItem 方法 向 列表 框 中 添加 数据 时 将 会 出 现 运 行 时 错误 。 


























为 了 避免 发 生 这 种 情况 ， 可 以 在 代码 中 将 RowSource 属性 设置 为 空 字符 串 。 


Private Sub cmdAdd Click() 
Dim intRow As Integer 





lstName.RowSource = "" 
For intRow = 1 To 10 

lstName.AddItem Cells(intRow, 1) .Value 
Next intRow 








End Sub 
A D A D F 

E 1 | 至 调 

2 | 空调 UserForm] x 2 | 空调 UserForml x 

3 电脑 3 所 及 

4 电脑 4 | 电脑 

5 | 微波 芒 5 | 御 波 芒 

6 | 电脑 电脑 和 

7 | 微波 区 筑波 炉 

8 微波炉 3 簿 波 护 

9 音响 ee 9 | 音响 a 

10 | 电脑 10 电脑 

11 py 1 

2 于 到 | 

13 

14 








图 14-42 将 单元 格 区 域 中 的 不 重复 数据 添加 到 列表 框 中 
案例 14-28 ”使 用 List 属性 将 多 个 项 目 一 次 性 添加 到 列表 框 中 




















下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 商品 名 
称 添 加 到 列表 框 中 。 列 表 框 控 件 的 List 属性 接收 一 个 水 平 数 组 ， 因 此 可 以 使 用 Array 函数 创建 






































一 个 包含 所 需 项 目的 数组 ， 并 将 其 赋值 给 List 属性 ， 从 而 一 次 性 完成 项 目的 添加 。 


Private Sub cmdAdd Click() 
1stProduct .List = Rrray(" 电 视 "，" 冰 箱 "，" 空 调 "， "洗衣 机 "， "微波 炉 "，" 电 磁 炉 "， 
End Sub 


案例 14-29 ”使 用 List 属性 将 工作 表 中 的 一 列 数据 添加 到 列表 框 中 

































































Transpose 函数 对 数组 方向 进行 转 置 。 


Private Sub cmdAdd Click() 
lstName.List = Application.WorksheetFunction.Transpose (Range ("R1:R10") ) 
End Sub 


案例 14-30 ”将 单元 格 区域 中 的 不 重复 数据 添加 到 列表 框 中 










































































在 Collection 集合 中 只 存储 唯一 值 ， 如 果 将 重复 的 数据 添加 到 Collection 集合 中 ， 则 会 














唯一 值 的 Collection 集合 中 的 所 有 数据 添加 到 列表 框 中 。 


Private Sub cmdAdd Click() 
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热水器") 


面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 工作 表 
中 的 A1:A10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 。 由 于 List 属性 接收 的 是 一 个 水 平 数组 ， 而 
本 例 中 的 A1:A10 单元 格 区 域 是 一 个 垂直 数组 ， 因 此 在 将 其 赋值 给 List 属性 之 前 ， 需 要 使 用 




















下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 工作 表 
的 Al:A10 单元 格 区 域 中 不 重复 的 数据 添加 到 列表 框 中 ， 如 图 14-42 所 示 。 在 A1:A10 单元 格 
区 域 中 存在 重复 数据 ， 为 了 将 其 中 的 不 重复 数据 添加 到 列表 框 中 ， 需 要 借助 Collection 集合 。 








出 现 运行 
讨 错误， 为 了 避免 出 现 错 误 ， 需 要 加 入 On Error Resume Next 语句 以 忽略 错误 。 最 后 再 将 包含 
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Dim cnn As Collection, rng As Range 

Dim intIndex As Integer 

Set cnn = New Collection 

On Error Resume Next 

For Each rng In Range ("Al:A10") 
cnn.Add rng.Value, rng.Value 

Next rng 

For intIndex = 1 To cnn.Count 
lstProduct.AddItem cnn (intIndex) 

Next intIndex 

End Sub 


案例 14-31 在 列表 框 中 动态 添加 单元 格 区 域 中 的 所 有 数据 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 






































作 表 A 列 中 的 所 有 数据 添加 到 列表 框 中 。 无 论 以 后 增加 或 减少 A 列 中 的 数据 , 每 次 单 击 “ 添 加 ” 
按钮 都 会 将 A 列 中 当前 包含 的 所 有 数据 添加 到 列表 框 中 ， 如 图 14-43 所 示 。 
Private Sub cmdAdd Click() 
Dim strAddress As String, lngLastRow Rs Long 
lngLastRow = Cells (Rows .Count，1) .End (xl1UP) .Row 
strAddress = "Al:" & Cells(lngLastRow, 1).Address (0, 0) 
lstName.RowSource = strAddress 
End Sub 
A B C D A B C D F 
1 | 丁玲 | Rt 
江 方 Userform1 X 江 方 UserForml x 
3 秦 婉 3 秦 婉 
4 五 琳 五 琳 
黄 美 黄 美 强 
6 赵 勤 
-| 


SRESooJonronr 

















图 14-43 在 列表 框 中 动态 添加 单元 格 区 域 中 的 所 有 数据 
案例 14-32 ”将 在 文本 框 中 输入 的 内 容 添加 到 列表 框 中 


面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 在 文本 
框 中 输入 的 内 容 添加 到 列表 框 中 ， 同 时 清空 文本 框 中 的 内 容 ， 并 将 焦点 继续 定位 在 文本 框 中 
等 待 下 次 输入 ， 如 图 14-44 所 示 。 

Private Sub cmdAdd Click() 
lstName.AddItem txtName.Text 


txtName.Text = "" 
txtName.SetFocus 





























End Sub 
UserForm1 x UserForm1 x 
ES 3 1 
添加 添加 
清空 清空 





























图 14-44 将 在 文本 框 中 输入 的 内 容 添加 到 列表 框 中 
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案例 14-33 ”将 列表 框 中 选中 的 项 目 显示 在 文本 框 中 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 
作 表 中 的 A1:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 ， 在 列表 中 选择 的 项 目 会 自动 显示 在 文 
























































本 框 中 ， 如 图 14-45 所 示 。 

















Private Sub cmdAadd Click() 
lstName.RowSource = "Al:A10" 
End Sub 


Private Sub lstName Click() 
txtName.Text = lstName.Text 
End Sub 


Private Sub cmdClear Click() 
lstName.RowSource = "" 
txtName.Text = "" 

End Sub 





UserForm1 X UserForm1 X 
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图 14-45 ”将 列表 框 中 选中 的 项 目 显示 在 文本 框 中 


案例 14-34 ”对 列表 框 中 选中 的 项 目 进行 修改 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 
作 表 中 的 Al:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 。 代 码 中 声明 了 一 个 模块 级 变量 intIndex， 
于 存储 当前 进行 修改 的 项 目 在 列表 框 中 的 位 置 的 索引 号 ， 在 列表 框 中 选择 项 目 时 将 会 触发 列 
表 框 控件 的 Click 事件 ， 此 时 将 选中 项 目的 索引 号 赋值 给 intIndex 变量 ， 并 在 文本 框 中 显示 所 
选项 目 。 在 对 文本 框 中 的 内 容 完成 编辑 后 ， 单 击 “ 修 改 ” 按 钮 ， 将 文本 框 中 的 内 容 添 加 到 
intIndex 变量 指定 的 列表 框 中 的 位 置 ， 并 删除 位 于 其 下 方 的 那个 项 目 ， 如 图 14-46 所 示 。 这 个 项 
目 就 是 之 前 选中 的 项 目 , 它 在 列表 框 中 的 索引 号 是 intIndex 变量 加 1, 因为 将 修改 后 的 内 容 添 力 
到 了 它 的 上 方 。 


Dim intIndex As Integer 













































































Private Sub cmdAadd Click() 
Dim intRow As Integer 
lstName.RowSource = "" 
For intRow = 1 To 10 
lstName.AddItem Cells (intRow, 1) .Value 
Next intRow 
End Sub 


Private Sub cmdEdit Click() 
1stName .AddItem txtName.Text, intIndex 
1stName .RemoveItem intIndex + 1 

End Sub 


Private Sub lstName Click() 


.284 。 
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txtName.Text = lstName.Text 
intIndex = lstName.ListIndex 
End Sub 
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图 14-46 ”对 列表 框 中 选中 的 内 容 进行 修改 


案例 14-35 ”创建 可 选择 多 个 项 目的 列表 框 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工作 表 
中 的 Al:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 ， 然 后 可 以 在 列表 框 中 选择 一 个 或 多 个 项 目 ， 如 
图 14-47 所 示 。 本 例 是 在 代码 中 将 列表 框 控件 设置 为 可 支持 多 项 选择 ， 也 可 以 在 用 户 窗 体 的 属性 窗 
中 设置 MultiSelect 属性 来 实现 相同 的 效果 。 可 为 MultiSelect 属性 设置 的 值 有 以 下 3 个 : 
口 fmMultiSelectSingle 0: MultiSelect 属性 的 默认 值 ， 只 能 在 列表 框 中 选择 一 项 。 
口 fmMultiSelectMulti 1: 通过 鼠标 单 击 不 同 的 项 目 可 以 实现 多 项 选择 ， 再 次 单 击 选中 的 项 
目 可 以 取消 选中 。 使 用 空格 键 也 可 以 实现 相同 的 效果 。 
口 ftmMultiSelectExtended 2: 使 用 Ctrl 键 或 Shift 键 并 配合 鼠标 单 击 可 以 在 列表 中 选择 多 个 
项 目 。 要 取消 选中 的 项 目 ， 可 以 按 住 Ctrl 键 后 依次 单 击 它们 。 


Private Sub cmdAdd Click() 

Dim intRow As Integer 

lstName.RowSource = "" 

For intRow = 1 To 10 

lstName.AddItem Cells (intRow, 1) .Value 

Next intRow 

lstName.MultiSelect = fmMultiSelectMulti 
End Sub 
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图 14-47 创建 可 选择 多 个 项 目的 列表 框 


案例 14-36 ”在 两 个 列表 框 之 间 移动 和 删除 项 目 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 加 载 数 据 ” 按钮， 将 活 久 
动工 作 表 中 的 Al:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 。 如 果 在 左 侧 列表 框 中 没有 选择 任 
何 项 目 ， 则 在 单 击 “ 添 加 ”按钮 时 会 显示 提示 信息 而 不 进行 添加 。 如 果 在 左 侧 列 表 框 中 选择 了 
一 个 项 目 ， 则 可 以 单 击 “ 添 加 ”按钮 将 其 添加 到 右 侧 列表 框 中 ， 如 图 14-48 所 示 。 

在 向 右 侧 列表 框 中 添加 新 项 目 时 有 两 种 情况 ， 一 种 情况 是 在 右 侧 列表 框 中 没有 选择 任何 项 
目 ， 此 时 将 新 项 目 添加 到 列表 框 的 底部 ， 即 所 有 项 目的 末尾 ; 男 一 种 情况 是 在 右 侧 列表 框 中 选 
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择 了 一 个 项 目 ， 此 时 将 新 项 目 添加 到 所 选项 目的 下 方 。 
了 要 了 
| 二 ) 强 
车 添加 >> 上 
组 负 
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j 除 ”按钮 之 前 没有 选择 任何 项 





图 14-48 在 两 个 列表 框 之 间 移动 和 删除 项 目 





要 从 右 侧 列表 框 中 删除 项 目 ， 





表 框 中 添加 重复 的 项 目 。 


的 “ 力 
钮 的 代码 ， 其 中 
的 每 一 个 项 目 ， 





Private Sub cmdLoad Click() 
Dim intRow Rs Integer 
lstFrom.RowSource = "" 
lstFrom.Clear 
For intRow = 1 To 10 


lstFrom.AddItem Cells (intRow, 


Next intRow 
End Sub 


Private Sub cmdAdd Click() 
Dim intIndex As Integer 


可 以 先 选 择 一 个 项 目 ， 然 后 单 击 “ 删 除 ”按钮 。 
目 ， 则 将 显示 提示 信息 。 本 例 中 在 添加 项 目 时 ， 人 允许 向 右 侧 列 


1) .Value 


If lstFrom.ListIndex = -1 Then 
MsgBox "请 选择 要 添加 的 内 容 ! " 


Exit Sub 
Else 


If lstTo.ListIndex = -1 Then 
lstTo.AddItem lstFrom.Text 


Else 


lstTo.AddItem lstFrom.Text, 


End If 
End If 
End Sub 


Private Sub cmdDelete Click() 


IE lstTo.ListIndex = -1 


Then 


MsgBox "请 选择 要 删除 的 内 容 ! " 


Exit Sub 
Else 


lstTo.RemoveItem lstTo.ListIndex 


End If 
End Sub 


案例 14-37 ”在 两 个 列表 框 之 间 移动 和 删除 不 重复 的 项 目 
下 面 的 代码 与 上 一 个 案例 类 似 ， 但 是 限制 了 不 能 在 右 侧 列表 框 中 添加 重复 的 项 目 。 本 例 中 
载 数 据 ” 和 “删除 ”按钮 的 代码 与 上 一 个 案例 相同 ， 为 了 节省 篇 幅 ， 
包含 了 检查 并 限制 添加 重复 项 目的 功能 。 在 For Next 循环 中 遍历 右 侧 列表 框 中 
如 果 其 中 的 任何 一 个 项 目 与 左 侧 列表 中 当前 选中 的 项 目 相同 ， 则 显示 提示 信息 
# 退 出 程序 ， 如 图 14-49 所 示 ， 否 则 将 选中 项 目 添加 到 右 侧 列表 框 中 。 
在 遍历 右 侧 列表 框 中 的 项 目 之 前 , 应 该 使 用 列表 框 控 件 的 ListCount 属性 检查 右 侧 列表 框 中 
是 否 包含 至 少 一 个 项 目 。 如 果 不 存在 任何 项 目 ， 则 不 需要 检查 重复 值 ， 而 直接 将 选中 项 目 添 力 
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如 果 在 单 击 


lstTo.ListIndex + 1 


只 给 出 “添加 ” 按 














到 右 侧 列表 框 中 
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Private Sub cmdRdd Click() 


Dim intIndex As Integer 


If lstFrom.ListIndex = -1 Then 
MsgBox "请 选择 要 添加 的 内 容 ! " 
Exit Sub 

Else 


If lstTo.ListCount <> 0 Then 
For intIndex = 0 To lstTo.ListCount - 1 
If lstFrom.Text = lstTo.List(intIndex) Then 
MsgBox "要 添加 的 项 目 已 存在 ! " 





了 Exit Sub 
End If 
Next intIndex 
If lstTo.ListIndex = -1 Then 
lstTo.AddItem lstFrom.Text 
Else 
lstTo.AddItem lstFrom.Text, lstTo.ListIindex + 1 
End If 
Else 
lstTo.AddItem lstFrom.Text 
End If 
End If 
End Sub 
UserForml x 








要 添加 的 项 目 已 存在 ! 


J 于 3: 
六 -一 加 载 数据 Microsoft Excel x 





| 确定 























图 14-49 在 两 个 列表 框 之 间 移 动 和 删除 不 重复 的 项 目 


案例 14-38 ”在 列表 框 中 移动 项 目的 位 置 





六 
作 表 中 
选项 目 











面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 
的 Al:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 。 单 击 “ 上 移 ” 按 钮 ， 将 列表 框 中 的 所 
向 上 移动 一 次 ， 如 图 14-50 所 示 ， 如 果 选 中 的 是 第 一 个 项 目 ， 则 不 进行 移动 ; 单 击 “ 下 

















移 ” 按 钮 ， 将 列表 框 中 的 所 选项 目 向 下 移动 一 次 ， 如 果 选 中 的 是 最 后 一 个 项 目 ， 则 不 进行 移动 。 





如 果 在 列表 框 中 没有 选择 任何 项 目 ， 则 无 论 单 击 “ 上 移 ” 还 是 “下 移 ” 按 钮 都 不 进行 任何 移动 。 
移动 列表 框 中 所 选项 目的 工作 原理 是 ， 使 用 数组 和 临时 变量 来 实现 所 选项 目 与 其 上 方 或 下 方 的 
项 目 之 间 的 位 置 的 互相 对 调 。 


Private Sub cmdUp Click() 


Dim intListCount As Integer，intIndex As Integer 
Dim intSelIndex As Integer, varTempItem As Variant 
Dim avarList() As Variant 
intListCount = 1stName .ListCount 
If intListCount = 0 Then Exit Sub 
If lstName.ListIndex <= 0 Then Exit Sub 
ReDim avarList(0 To intListCount - 1) 
For intIndex = 0 To intListCount - 1 

avarList (intIndex) = lstName.List (intIndex) 
Next intIndex 
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intSelIndex = lstName.ListIndex 
VarTempItem = avarList (intSelIndex) 
avarList (intSelIndex) = avarList (intSelIndex - 1) 
avarList (intSelIndex - 1) = varTempItem 
lstName.List = avarList 
lstName.ListIndex = intSelIndex - 1 

End Sub 


Private Sub cmdDown Click() 
Dim intListCount As Integer, intIndex Rs Integer 
Dim intSelIndex As Integer, varTempItem As Variant 
Dim avarList() As Variant 
intListCount = lstName.ListCount 
If intListCount = 0 Then Exit Sub 
IE lstName.ListIndex = -1 Or lstName.ListIndex = intListCount - 1 Then Exit Sub 
ReDim avarList (0 To intListCount - 1) 
For intIndex = 0 To intListCount - 1 

avarList (intIndex) = lstName.List (intIndex) 

Next intIndex 
intSelIndex = lstName.ListIndex 
VarTempItem = avarList (intSelIndex) 
avarList (intSelIndex) = avarList (intSelIndex + 1) 
avarList (intSelIndex + 1) = varTempItem 
lstName.List = avarList 
1stName .ListIndex = intSelIndex + 1 














End Sub 
Userform1 X | | UserForm! XxX | | userromm x 
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图 14-50 在 列表 框 中 移动 项 目的 位 置 


案例 14-39 ”将 列表 框 中 选中 的 项 目 写 入 工作 表 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 
作 表 中 的 Al:C10 单元 格 区 域 中 的 数据 添加 到 列表 框 中 ， 在 列表 框 中 选择 的 项 目 将 会 出 现在 活 
动工 作 表 的 D1 单元 格 中 ,如 图 14-51 所 示 。 为 了 将 列表 框 中 选中 的 项 目 动态 写 入 工作 表 中 ， 需 
要 将 列表 框 控件 的 ControlSource 属性 设置 为 希望 接收 列表 框 数据 的 单元 格 。 本 例 用户 窗 体 中 还 
包括 一 个 “更 改 链接 地 址 ”按钮 ， 单 击 该 按钮 ， 可 以 重新 选择 一 个 要 写 入 列表 框 数据 的 单元 格 ， 
于 选择 单元 格 的 对 话 框 由 Application 对 象 的 InputBox 方法 创建 。 
Private Sub cmdAdd Click() 
Dim intRow As Integer 
lstName.RowSource = "" 
lstName.Clear 
For intRow = 1 To 10 
lstName.AddItem Cells(intRow, 1) .Value 
Next intRow 


lstName.ControlSource = "D1" 
End Sub 






















































































Private Sub cmdChange Click() 
Dim rng As Range 
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On Error Resume Next 
Set rng = Application.InputBox ("选择 新 的 链接 单元 格 : "，Type:=8) 
lstName.ControlSource = rng.Address (0, 0) 

End Sub 


A B C D 
丁玲 要 查找 的 姓名 秦 婉 
江 方 | UserForm] x 
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图 14-51 将 列表 框 中 选中 的 项 目 写 入 工作 表 


案例 14-40 ”将 列表 框 中 的 所 有 项 目 写 入 由 用 户 指定 的 单元 格 区 域 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 一 组 商 
品名 称 添加 到 列表 框 中 。 单 击 “ 导 出 ”按钮 将 会 弹出 一 个 对 话 框 ， 由 用 户 选择 一 个 单元 格 ， 单 
击 “ 确 定 ”按钮 后 ， 会 自动 将 列表 框 中 的 所 有 项 目 导 入 到 以 所 选单 元 格 为 起 点 的 一 列 单元 格 区 
域 中 ， 如 图 14-52 所 示 。 
Private Sub cmdAdd Click() 
lstProduct.RowSource = "" 
lstProduct .AddItem "电视 " 
1stProduct .RddItem "冰箱 " 
1stProduct .AddItem "空调 " 
lstProduct .RddItem "洗衣 机 " 
lstProduct .RddItem "微波 炉 " 
1stProduct .RddItem "电磁 炉 " 


lstProduct .RddItem "热水器 " 
End Sub 






























































Private Sub cmdExport Click() 
Dim rng As Range 
On Error Resume Next 
Set rng = Application.InputBox ("选择 作为 起 点 的 单元 格 : "，Type:=8) 
If rng Is Nothing Then Exit Sub 


rng.Resize (UBound (lstProduct.List, 1) + 1) .Value = lstProduct.List 
End Sub 
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A B C D 
1 电视 
2 冰箱 X 
3 空调 
4 洗衣 机 
5 微波 炉 
6 电磁 炉 
1 热水器 
11 
12 
13 
14 
图 14-52 将 列表 框 中 的 所 有 项 目 写 入 由 用 户 指定 的 单元 格 区 域 
案例 14-41 将 列表 框 中 选中 的 所 有 项 目 写 入 由 用 户 指定 的 单元 格 区 域 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 一 组 商 











品名 称 添加 到 列表 框 中 。 本 例 创建 的 是 可 以 选择 多 项 








的 列表 框 ， 在 列表 框 中 选择 多 个 项 目 ， 然 


后 单 击 “ 导 出 ”按钮 指定 起 始 单元 格 ， 最 后 单 击 “ 确 定 ”按钮 ， 将 选中 的 所 有 项 目 导 入 到 以 所 
选单 元 格 为 起 点 的 一 列 单元 格 区 域 中 ， 如 图 14-53 所 示 。 








本 例 中 声明 了 一 个 动态 数组 ， 用 



























































中 的 所 有 项 目 。 


Private Sub cmdAdd Click() 


1stProduct .RowSource 
1stProduct .AddItem 
lstProduct.AddItem 
1stProduct .AddItem 
1stProduct .AddItem 
1stProduct .RddItem 
1stProduct .AddItem 
lstProduct .AddItem 
lstProduct.MultiSele 
End Sub 


二 于 
"冰箱 " 

和 

"洗衣 机 
"微波 炉 " 
"电磁 炉 " 
"热水器 " 


ct = fmMultiSelectMulti 


Private Sub cmdExport Click() 
Dim avarSelItems() Rs Variant, rng As Range 


Dim intSelCount As I 


“as 


nteger, intIndex As Integer 





这 些 数组 元 素 就 是 在 列表 框 


于 存储 所 有 选中 的 项 目 。 在 For Next 循环 结构 遍历 列表 框 
中 的 每 一 个 项 目 ， 使 用 列表 框 控件 的 Selected 属性 确定 每 一 个 项 目 是 否 被 选中 。 如 果 被 选中 ， 
则 将 用 于 表示 动态 数组 上 界 的 intSelCount 变量 加 1， 然 后 重新 定义 动态 数组 ， 并 将 该 项 目 存储 
到 动态 数组 中 由 intSelCount 变量 决定 的 索引 号 的 数组 元 素 中 。 在 完成 所 有 项 目的 遍历 后 ， 将 动 
态 数组 中 的 所 有 数组 元 素 一 次 性 写 入 到 指定 的 单元 格 区 域 中 ， 


上 


和 
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For intIndex = 0 To lstProduct.ListCount - 1 
If lstProduct.Selected (intIndex) Then 
intSelCount = intSelCount + 1 
ReDim Preserve avarSelItems (1 To intSelCount) 
avarSelItems (intSelCount) = lstProduct.List (intIndex) 
End If 
Next intIndex 
On Error Resume Next 
Set rng = Application.InputBox ("选择 作为 起 点 的 单元 格 : "，Type:=8) 
If rng Is Nothing Then Exit Sub 
rng.Resize (UBound (avarSelItems, 1)) .Value = Application.WorksheetFunction.Transpose 
(avarSelItems) 
End Sub 





OoooNp 


选择 作为 起 点 的 单元 格 : 
$B$1 


0 











图 14-53 ”将 列表 框 中 选中 的 所 有 项 目 写 入 由 用 户 指定 的 单元 格 区 域 





14.4.8 组合 框 


组 合 框 与 列表 框 类 似 ， 都 可 用 于 在 一 个 或 多 个 选项 中 做 出 选择 ， 而 且 它 们 也 包含 很 多 相同 

的 属性 和 方法 。 然 而 组 合 框 与 列表 框 存在 一 个 重要 的 区 别 ， 组 合 框 不 但 提供 了 从 中 选择 选项 的 
列 

表 




















列表 ， 还 在 列表 的 上 方 提供 了 一 个 用 于 接收 用 户 输入 的 文本 框 ， 因 此 组 合 框 相当 于 是 一 个 由 
表 框 和 文本 框 组 合 在 一 起 的 结合 体 。 用 户 既 可 以 像 在 文本 框 中 那样 输入 数据 ， 又 可 以 像 在 列 
框 中 那样 选择 其 中 的 选项 。Change 事件 是 组 合 框 控件 的 默认 事件 ， 当 组 合 框 的 文本 框 中 的 内 容 
发 生 改变 时 将 会 触发 Change 事件 。 表 14-12 和 表 14-13 列 出 了 组 合 框 控件 的 常用 属性 和 方法 。 


表 14-12 组合 框 控件 的 常用 属性 
属 性 说 明 


对 于 多 列 组 合 框 来 说 , 该 属性 用 于 设置 使 用 当前 所 选 行 的 哪 一 列 数据 作为 组 合 框 
的 Value 属性 的 值 






































BoundColumn 
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续 表 
属 性 说 了 明 
ColumnCount 设置 在 组 合 框 中 显示 的 项 目的 列 数 
DropButtonStyle 组 合 框 右 侧 的 下 拉 按 钮 上 显示 的 图 标 ， 默 认 显示 为 下 箭头 
返回 或 设置 组 合 框 中 包含 的 项 目 , 通过 索引 号 来 引用 组 合 框 中 的 特定 项 目 , 组 合 
框 中 的 第 一 个 项 目的 索引 号 为 0， 第 二 个 项 目的 索引 号 为 1， 以 此 类 推 
ListCount 返回 组 合 框 中 包含 的 项 目 总 数 
ListRows 指定 列表 中 显示 的 最 大 行 数 
ListIndex 返回 在 组 合 框 中 当前 选择 的 项 目的 索引 号 
ListStyle 设置 组 合 框 中 的 项 目的 外 观 样 式 ， 可 以 将 项 目 显示 为 选项 按钮 或 复 选 框 的 外 观 
MatchEntry 设置 组 合 框 按 用 户 输入 的 内 容 进行 搜索 的 方式 
MatchFound 表示 输入 到 组 合 框 中 的 文本 是 否 与 该 组 合 框 列表 中 的 某 个 项 目 匹 配 
MaxLength 规定 用 户 可 以 在 文本 框 或 组 合 框 中 输入 的 最 多 字符 数 , 设置 为 0 则 仅 受 内 存 限 制 
RowSource 将 工作 表单 元 格 区域 中 的 数据 指定 为 组 合 框 中 的 项 目 
SelLength 设置 在 组 合 框 的 文本 框 中 选中 的 字符 数 
SelStart 设置 选中 文本 的 起 始 位 置 ， 如 果 没 有 选中 的 文本 ， 则 设置 插入 点 的 位 置 
SelText 返回 或 设置 在 组 合 框 的 文本 框 中 选中 的 文本 
ShowDropButtonWhen 设置 在 什么 时 候 显示 组 合 框 右 侧 的 下 拉 按 钮 
Style 设置 组 合 框 的 外 观 样式 
Text 返回 在 组 合 框 中 当前 选择 的 项 目 
TextLength 返回 以 字符 数 表 示 的 组 合 框 的 文本 框 中 的 文本 长 度 
TopIndex 人 目 , 如 果 组 合 框 中 没有 任何 项 目 或 未 被 显示 , 则 该 属 

















表 14-13 组合 框 控件 的 常用 方法 











万 说 了 明 

AddItem 将 新 的 项 目 添加 到 组 合 框 中 
Clear 删除 组 合 框 中 的 所 有 项 目 
Removeltem 删除 组 合 框 中 的 指定 项 目 








案例 14-42 ”使 用 Addltem 方法 将 无 规律 的 项 目 逐 一 添加 到 组 合 框 中 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 商品 名 
称 添加 到 组 合 框 中 ， 如 图 14-54 所 示 。 
Private Sub cmdAdd Click() 
CboProduct .RowSource = "" 
cboProduct .AddItem "电视 " 
cboProduct .RddItem "冰箱 " 
cboProduct .RddItem "空调 " 
cboProduct .RddItem "洗衣 机 " 
cboProduct .AddItem "微波 炉 " 
cboProduct .AddItem "电磁 炉 " 
cboProduct .RddItem "热水器 " 
End Sub 
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Userform1 X 












































图 14-54 使 用 AddItem 方法 将 无 规律 的 项 目 逐 一 添加 到 组 合 框 中 


案例 14-43 ”使 用 RowSource 属性 将 工作 表 中 的 数据 添加 到 组 合 框 中 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 
作 表 的 A1:A10 单元 格 区 域 中 的 数据 添加 到 组 合 框 中 ， 如 图 14-55 所 示 。 


Private Sub cmdAdd Click() 



















































































CboName.RowSource = "Al:A10" 
End Sub 
A B C D 
丁玲 
2 | 江 方 | UserForml x| 
3 | 秦 婉 | | 
4 | 石 琳 | | 
5 | 黄 美 | 局 | 
6 | 赵 奢 | s 四 | 
7 | 汪 鹏 | 和 | 
8 | 万 里 | 外 | 
9 | 石 博 | E | 
10 | 郑 岚 | ~ | 
1 | | 
12 | 添加 | 
13 上 
14 | Et i 





图 14-55 使 用 RowSource 属性 将 工作 表 中 的 数据 添加 到 组 合 框 中 


案例 14-44 ”使 用 List 属性 将 工作 表 中 的 一 列 数据 添加 到 组 合 框 中 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 工作 表 
中 的 A1:A10 单元 格 区 域 中 的 数据 添加 到 组 合 框 中 。 本 例 使 用 的 是 组 合 框 控件 的 List 属性 来 添 
项 目 。 


Private Sub cmdAdd Click() 
lstName.List = Application.WorksheetFunction.Transpose (Range ("Al1:A10")) 
End Sub 


案例 14-45 ”将 单元 格 区 域 中 的 不 重复 数据 添加 到 组 合 框 中 
面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 工作 表 
中 的 Al:A10 单元 格 区 域 中 不 重复 的 数据 添加 到 组 合 框 中 ， 如 图 14-56 所 示 。 


Private Sub cmdAdd Click() 
Dim cnn As Collection, rng As Range 
Dim intIndex As Integer 
Set cnn = New Collection 
On Error Resume Next 
For Each rng In Range("Al:A10") 
cnn.Add rng.Value, rng.Value 
Next rng 
For intIndex = 1 To cnn.Count 
cboProduct .AddItem cnn (intIndex) 
Next intIndex 
End Sub 
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2 | 空调 Userforml Xx. 








12 添加 

















图 14-56 将 单元 格 区 域 中 的 不 重复 数据 添加 到 组 合 框 中 

案例 14-46 ”在 组 合 框 中 动态 添加 单元 格 区 域 中 的 所 有 数据 

下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 添 加 ”按钮 ， 将 活动 工 
作 表 A 列 中 的 所 有 数据 添加 到 组 合 框 中 。 无 论 以 后 增加 或 减少 A 列 中 的 数据 , 每 次 单 击 “ 添 加 ” 
按钮 ， 都 会 将 A 列 中 当前 包含 的 所 有 数据 添加 到 组 合 框 中 ， 如 图 14-57 所 示 。 


Private Sub cmdAdd Click() 
Dim strAddress As String, lngLastRow As Long 
lngLastRow = Cells (Rows .Count，1) .End(xlUp) .Row 
strAddress = "Al:" & Cells(lngLastRow, 1).Address (0, 0) 
CboName.RowSource = strAddress 






















































































End Sub 

A B D D F 
1 | 丁玲 
2 | 江 方 | UserForm1 x UserForm1 x 
3 | 秦 绽 | | 
6 | 1 副 | | 国 
i | 加 
9 | | [ 画 
10 
添加 清空 | 本 加 清空 
1 1 

图 14-57 在 组 合 框 中 动态 添加 单元 格 区 域 中 的 所 有 数据 
14.4.9 图 像 


图 像 控件 用 于 在 用 户 窗 体 中 显示 图 片 ,支持 以 下 几 种 图 片 文件 格式 : .bmp、 .jpg、.wmf、 .gif、 .ico 
-cur。 可 以 使 用 图 像 控件 裁剪 或 缩放 图 片 ， 但 是 不 能 编辑 图 片 。Click 事件 是 图 像 控件 的 默认 
事件 ， 在 图 像 上 单 击 时 将 会 触发 Click 事件 。 表 14-14 列 出 了 图 像 控 件 的 常用 属性 。 
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表 14-14 图 像 控 件 的 常用 属性 
属 性 说 了 明 

































































Picture 为 图 像 控 件 设置 要 显示 的 图 片 ， 如 果 在 运行 时 设置 ， 则 需要 使 用 LoadPicture 函数 
PictureAlignment 设置 图 片 在 图 像 控 件 中 的 位 置 ， 可 以 位 于 左上 角 、 右 上 和 角 、 居 中 、 左 下 角 、 右 下 角 
> 设置 图 片 填充 图 像 控件 的 方式 ,可 按 等 比例 放大 图 片 以 填 满 图 像 控 件 , 或 在 有 可 能 变 
PictureSizeMode 








形 的 情况 下 填 满 图 像 控 件 ， 还 可 以 裁 掉 超出 图 像 控 件 的 部 分 
案例 14-47 ”在 图 像 控 件 显示 指定 的 图 片 


下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用 户 窗 体 后 ， 单 击 “ 载 入 图 片 ”按钮 ， 将 在 
图 像 控件 中 显示 本 例 工作 短 所 在 文件 夹 中 名 为 “风景 jpg” 的 图 片 ， 如 图 14-58 所 示 。 
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Private Sub cmdLoad Click() 
Dim strFullPath Rs String 
strFullPath = ThisWorkbook.Path & "\ 风 景 .jpg" 
imgPicture.PictureSizeMode fmPictureSizeModeStretch 
imgPicture.Picture LoadPicture(strFullPath) 

End Sub 





UserForm1 UserForm1 



































图 14-58 在 图 像 控 件 显 示 指定 的 图 片 


案例 14-48 ”由 用 户 灵活 指定 显示 在 图 像 控件 中 的 图 片 


下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 运 行 用户 窗 体 后 ， 单 
开 一 个 对 话 框 ， 
所 示 。 


Private Sub cmdLoad Click() 

Dim fdl As FileDialog, fdf As FileDialogFilters 
Dim strFullPath As String 
Set fdl Application.FileDialog (msoFileDialogOpen) 
Set fdf = fdl.Filters 
With fdf 

,Clear 

-Rdd "图 片 文件 "，"*.bmp;*.jpg;*.gif" 
End With 
If fdl.Show Then strFullPath = fdl.SelectedItems (1) 
imgPicture.PictureSizeMode fmPictureSizeModeStretch 
imgPicture.Picture LoadPicture (strFullPath) 








“ 载 入 


Er 


























图 片 ”按钮 ， 将 打 


户 可 以 从 中 选择 要 显示 的 图 片 , 双击 图 片 后 将 其 显示 在 图 像 控件 中 ,如 图 14-59“ 


























End Sub 
印 
个 加 < 突 g 文 件 ， 第 14 宣 v | 台 || 更 雪 车 14 宣 : 忆 
组 织 ” 新 建文 件 赤 上 ~- me 
Excel VBA 党 才 ^ - 
四 Microsoft Excel | 一 一 | -人 
大 ompiive Ce ee | 
Ra ma ma2 人 ma 
Feo UserForm] x 
国 Desktop 
图 视 肌 
加 图 片 
图 痪 
时 全 
小 音乐 
各 Windows 10(C、 
文件 名 (N): ~| [加 8 文 件 ~ 
IRD ~ | #0) Ea 
SS 
图 14-59 由 用 户 灵 活 指定 显示 在 图 像 控 件 中 的 图 片 








案例 14-49 ”在 图 像 控件 中 随机 显示 不 同 的 图 片 
下 面 的 代码 位 于 用 户 窗 体 的 代码 模块 中 。 



































运行 用 户 窗 体 后 ， 每 次 单 击 “ 载 入 图 片 ”按钮 ， 
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将 会 在 两 个 图 像 控件 中 随机 显示 名 为 “风景 1”“ 风 景 2” 和 “风景 3” 这 3 张 图 片 中 的 其 中 之 
一 ， 如 图 14-60 所 示 。 为 了 实现 随机 效果 ， 代 码 中 使 用 了 VBA 内 置 的 Rnd 函数 。 本 例 中 的 
户 窗 体 还 包含 一 个 “删除 图 片 ”按钮 ， 单 击 该 按钮 可 以 删除 两 个 图 像 控 件 中 的 图 片 。 将 不 带 参 
数 的 LoadPicture 函数 赋值 给 图 像 控 件 的 Picture 属性 可 以 删除 图 片 。 


Private Sub cmdLoad Click() 
Dim strFul1Pathl As String, strFullPath2 As String 
Dim intNumberl As Integer, intNumber2 As Integer 
intNumberl = Int(Rnd() * 3 + 1) 
intNumber2 = Int(Rnd() * 3 + 1) 
strFullPathl = ThisWorkbook.Path & "\ 风 景 " & intNumberl & ".jpg" 
strFullPath2 = ThisWorkbook.Path & "\ 风 景 " & intNumber2 & ".jpg" 
imgl.PictureSizeMode = fmPictureSizeModeStretch 
imgl.Picture = LoadPicture (strFullPath]) 
img2.PictureSizeMode = fmPictureSizeModeStretch 
img2.Picture = LoadPicture(strFullPath2) 
End Sub 















































Private Sub cmdDelete Click() 
imgl.Picture = LoadPicture 
img2.Picture = LoadPicture 

End Sub 





Userform1 X Userform1 UserForm1 


= | 让 | = 上 
一 上 Ee ] 图 上 


图 14-60 在 图 像 控 件 中 随机 显示 不 同 的 图 片 
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14.5 用户 窗 体 和 控件 的 综合 应 用 


本 节 将 介绍 在 实际 应 用 中 具有 代表 性 的 一 些 用 户 窗 体 案例 ， 通 过 这 些 案例 可 以 更 好 地 理解 
户 窗 体 和 控件 的 工作 机 制 和 设计 方法 。 


14.5.1 创建 欢迎 界面 


在 开发 一 些 稍 复杂 的 Excel 实用 程序 时 ， 通 常 都 会 带 有 一 个 欢迎 界面 ， 其 中 显示 一 些 关 于 
实用 程序 的 介绍 性 信息 ， 比 如 程序 的 名 称 、 开 发 者 个 人 信息 等 。 欢 迎 界 面 通常 在 显示 短暂 的 时 
间 后 会 自动 消失 。 本 节 介 绍 的 欢迎 界面 案例 在 打开 工作 短 时 自动 显示 ，6 秒 后 自动 消失 。 

案例 14-50 ”创建 应 用 程序 欢迎 界面 

创建 本 例 中 的 欢迎 界面 的 方法 如 下 : 

(1) 新 建 一 个 工作 敌 并 保存 为 “Excel 启用 宏 的 工作 舌 ” 格 式 ， 然 后 在 Sheetl 工作 表 中 插 
入 一 张 图 片 ， 该 图 片 将 作为 欢迎 界面 的 背景 图 。 

(2) 按 AIttF11 组 合 键 打开 VBE 窗口 ， 在 VBA 工程 中 添加 一 个 用 户 窗 体 ， 将 其 名 称 设置 
为 fmGreeting， 将 Caption 属性 设置 为 “欢迎 界面 ”， 将 Height 属性 设置 为 320， 将 Width 属 
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性 设置 为 480。 

(3) 复制 在 Sheetl 工作 表 中 插入 的 图 片 ， 然 后 在 VBE 窗口 中 单 击 用 户 窗 体 并 按 F4 键 ， 在 
打开 的 属性 窗口 中 选择 Picture 属性 后 按 Ctrl+V 组 合 键 ， 将 复制 的 图 片 粘贴 到 Picture 属性 中 ， 
将 该 图 片 设 置 为 用 户 窗 体 的 背景 ， 如 图 14-61 所 示 。 












14-61 通过 复制 /粘贴 图 片 来 设置 用 户 窗 体 的 Picture 属性 

(4) 根据 希望 在 欢迎 界面 中 显示 的 信息 量 ， 需 要 在 用 户 窗 体 中 插入 一 个 或 多 个 标签 控件 ， 
然后 可 能 需要 设置 下 面 这 些 属性 。 如 图 14-62 所 示 是 在 用 户 窗 体 中 添加 文字 后 的 效果 ， 其 中 包 
含 两 个 标签 控件 。 

口 Caption 属性 : 设置 标签 的 标题 。 

口 AutoSize 属性 ， 自动 调整 控件 大 小 以 适应 其 中 的 文字 。 

口 Font 属性 : 设置 标题 的 字体 格式 。 

口 BackStyle 属性 : 将 该 属性 设置 为 0-fmBackStyleTransparent， 从 而 使 标签 背景 透明 。 

口 WordWrap 属性 : 如 果 希 望 文字 显示 在 一 行 中 ， 则 需要 将 该 属性 设置 为 False。 





。 图 14-62 在 欢迎 界面 中 添加 文字 
(5) 完成 欢迎 界面 的 外 观 设计 后 ， 接 下 来 需要 编写 VBA 代码 。 在 VBA 工程 中 添加 一 个 标 
准 模块 ， 然 后 输入 下 面 的 代码 ， 用 于 关闭 欢迎 界面 。 
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Sub 关闭 欢迎 界面 () 
Unload frmGreeting 
End Sub 


(6) 在 用 户 窗 体 模块 中 编写 用 户 窗 体 的 Activate 事件 ， 在 显示 用 户 窗 体 时 会 触发 该 事件 。 
欢迎 界面 的 显示 时 间 通 过 当前 时 间 加 上 由 TimeValue 函数 设置 的 时 长 决定 。 
Private Sub UserForm Activate() 


Application.OnTime Now + TimeValue ("00:00:06")，" 关 闭 欢迎 界面 " 
End Sub 


(7) 最 后 需要 编写 工作 矢 的 Open 事件 ， 以 便 在 打开 工作 短 时 可 以 自动 显示 欢迎 界面 。 下 
硬 的 代码 位 于 ThisWorkbook 模块 中 ， 在 打开 工作 矢 时 调用 用 户 窗 体 的 Show 方法 。 


Private Sub Workbook Open() 
frmGreeting.Show 
End Sub 


完成 以 上 工作 后 ， 保 存 并 关闭 当前 工作 短 。 下 次 打开 该 工作 短 时 将 会 显示 欢迎 界面 ， 并 在 
6 秒 后 自动 消失 。 


14.5.2 ”创建 登录 窗口 


使 用 VBA 开发 的 一 些 管理 系统 可 能 只 授权 给 某 些 管理 层 用 户 使 用 , 这些 授 权 用 户 利用 管理 
系统 对 人 事 资料 、 工 资 薪 酬 、 库 存 等 信息 资源 进行 管理 。 因 此 在 开始 使 用 这 些 实用 程序 之 前 ， 
必须 先 验 证 当前 用 户 是 否 具有 使 用 权限 ， 通 常 使 用 用 户 名 和 密码 的 方式 来 验证 用 户 身份 的 有 效 
性 。 如 果 输 入 的 用 户 名 和 密码 都 正确 ， 则 可 以 正常 使 用 ， 否 则 禁止 使 用 并 自动 退出 程序 。 


案例 14-51 创建 用 户 登录 窗口 

创建 本 例 中 的 登录 窗口 的 方法 如 下 : 

(1) 新 建 一 个 工作 敌 并 保存 为 “Excel 启用 宏 的 工作 短 ” 格 式 。 打 开 VBE 窗口 ， 在 VBA 
工程 中 添加 一 个 用 户 窗 体 ， 将 其 名 称 设 置 为 fmLogin， 将 其 Caption 属性 设置 为 “用 户 登 录 ”。 

(2) 在 用 户 窗 体 中 添加 两 个 标签 控件 ， 将 它们 的 Caption 属性 分 别 设置 为 “用 户 名 ”和 “ 密 
码 ”。 在 两 个 标签 控件 的 右 侧 添加 两 个 文本 框 控件 ， 用 于 输入 用 户 名 和 密码 ， 将 两 个 文本 框 的 
名 称 分 别 设置 为 txtUserName 和 txtPassword。 为 了 让 密码 框 中 的 内 容 显 示 为 *, 需要 将 txtPassword 
文本 框 的 PasswordChar 属性 设置 为 “*”， 为 了 让 输入 用 户 名 的 文本 框 在 显示 登录 窗口 时 获得 
焦点 ， 需 要 将 该 文本 框 的 TabIndex 属性 设置 为 0。 

(3) 在 用 户 窗 体 中 添加 一 个 命令 按钮 控件 ， 将 其 名 称 设置 为 cmdOk， 将 Caption 属性 分 别 
设置 为 “确定 ”， 如 图 14-63 所 示 。 




























































































































































































图 14-63 用户 登录 窗口 的 界面 设计 
(4) 接 下 来 编写 实现 验证 用 户 权限 的 VBA 代码 .这 里 假设 正确 的 用 户 名 和 密码 分 别 为 admin 
和 666。 如 果 输 入 正确 则 允许 登录 并 显示 一 条 欢迎 信息 ， 否 则 将 退出 登录 并 关闭 工作 夭 和 Excel 
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程序 。 双 击 用 户 窗 体 中 的 “确定 ”按钮 并 输入 下 面 的 代码 : 


Private Sub cmdOk Click() 
Dim strUserName As String, strPassword As String 
Dim intCount As Integer 
strUserName = txtUserName.Text 
strPassword = txtPassword.Text 














If UCase(strUserName) = "ADMIN" And strPassword = "666" Then 
MsgBox "登录 成 功 ， 欢 迎 使 用 本 系统 ! " 
Unload Me 
Application.Visible = True 

Else 


If Len (strUserName) * Len(strPassword) = 0 Then 
MsgBox "用 户 名 或 密码 不 能 为 空 ! " 
Else 
MsgBox "用 户 名 或 密码 不 正确 ， 请 重新 输入 ! " 
intCount = intCount + 1 
txtUserName.Text = "" 
txtPassword.Text = "" 
txtUserName.SetFocus 
If intCount = 3 Then 
MsgBox "对 不 起 ， 尝 试 次 数 过 多 ， 登录 失败 ! " 
ThisWorkbook.Saved = True 
Application.Quit 
End If 
End If 
End If 
End Sub 


(5) 为 了 避免 用 户 通过 单 击 登 录 窗口 右上 角 的 关闭 按钮 ， 在 绕 开 身份 验证 的 情况 下 直接 使 
日 工作 短 ， 因 此 需要 编写 工作 簿 的 QueryClose 事件 代码 ， 在 用 户 单 击 该 按钮 时 直接 关闭 工作 德 
并 退出 Excel， 代 码 如 下 : 


Private Sub UserForm QueryClose(Cancel As Integer, CloseMode Rs Integer 
If CloseMode = vbFormControlMenu Then 
MsgBox "禁止 非法 关闭 用 户 登 录 窗 口 ! " 
ThisWorkbook.Saved = True 
Application.Quit 
End If 
End Sub 


(6) 为 了 在 打开 工作 短 时 自动 显示 用 户 登录 窗口 ， 需 要 在 工作 簿 的 Open 事件 过 程 中 编写 
面 的 代码 ， 在 显示 用 户 登 录 窗口 之 前 先 隐藏 Excel 程序 界面 ， 获 得 更 好 的 视觉 效果 。 
Private Sub Workbook Open () 
Application.Visible = False 


frmLogin.Show 
End Sub 


提示 : 为 了 避免 在 显示 登录 窗口 时 ,用 户 按 下 Ctrl+Break 组 合 键 中 断代 码 而 进入 VBE 窗口 ， 
可 以 在 所 有 代码 都 正常 工作 后 , 在 工作 簿 的 Open 事件 过 程 中 加 入 下 面 的 代码 以 禁用 Ctrl+Break 
组 合 键 。 

Application.EnableCancelKey = xlDisabled 

完成 以 上 工作 后 ,保存 并 关闭 工作 夭 ， 下 次 打开 工作 短 时 将 会 显示 如 图 14-64 所 示 的 对 
话 框 ， 输 入 正确 的 用 户 名 和 密码 ， 单 击 “ 确 定 ”按钮 后 将 显示 登录 成 功 的 信息 。 如 果 输 入 的 
户 名 或 密码 不 正确 , 则 会 提示 重新 输入 ,连续 输 错 3 次 将 会 显示 错误 信息 并 自动 退出 Excel 
程序 。 
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户 登 录 X 
用 户 名 : | admin Microsoft Excel x 
密码 ， 六 冰冰 

登录 成 功 ， 欢 迎 使 用 本 系统 
一 一 和 一 一 




















图 14-64 用 户 登 录 窗 口 和 登录 成 功 的 提示 信息 


14.5.3 ”创建 颜色 选择 器 


可 以 使 用 用 户 窗 体 设计 一 个 颜色 选择 器 ， 通 过 拖 动 3 个 滚动 条 调整 R、G、B 三 个 颜色 分 量 
来 得 到 一 个 颜色 ， 并 将 该 颜色 设置 为 当前 选区 的 背景 色 。 在 拖 动 滚动 条 的 过 程 中 ，3 个 颜色 分 

















量 的 值 会 动态 改变 ， 由 此 可 以 直观 看 到 颜色 的 变化 以 及 当前 颜色 所 对 应 的 RGB 值 。 
案例 14-52 ”创建 带 有 预览 效果 的 颜色 选择 器 
创建 本 例 中 的 颜色 选择 器 的 方法 如 下 : 
































(1) 新 建 一 个 工作 簿 并 保存 为 “Excel 启用 宏 的 工作 夭 ” 格 式 。 打 开 VBE 窗口 ， 在 VBA 























工程 中 添加 一 个 用 户 窗 体 ， 然 后 在 其 中 添加 4 个 标签 控件 ，3 个 滚动 条 控件 和 两 个 命令 按钮 控 


件 ， 并 将 这 些 控件 按 如 图 14-65 所 示 的 位 置 进 行 排列 。 用 户 窗 体 和 每 个 控件 的 属性 设置 见 表 


14-15 一 表 14-24。 











图 























14-65 ”颜色 选择 器 的 界面 设计 





表 14-15 用 户 窗 体 的 属性 设置 

















属 性 值 
Name frmColorSelect 
Caption 颜色 选择 器 

表 14-16 第 一 个 标签 控件 的 属性 设置 

属 性 值 
Name lblRed 
Caption R: 0 
AutoSize True 
WordWrap False 
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表 14-17 第 二 个 标签 控件 的 属性 设置 





























属 性 值 
Name lblGreen 
Caption G:0 
AutoSize True 
WordWrap False 

表 14-18 第 三 个 标签 控件 的 属性 设置 

属 性 值 
Name lblBlue 
Caption B: 0 
AutoSize True 
WordWrap False 





表 14-19 第 四 个 标签 控件 的 属性 设置 
































属 性 值 
Name lblColor 
Caption 留 空 
BackColor 黑色 

表 14-20 ”第 一 个 滚动 条 控件 的 属性 设置 

属 性 值 
Name scrRed 
Max 255 
Min 0 
LargeChange 5 
SmallChange 1 

表 14-21 第 二 个 滚动 条 控件 的 属性 设置 

属 性 值 
Name scrGreen 
Max 255 
Min 0 
LargeChange 
SmallChange 1 





表 14-22 第 三 个 滚动 条 控件 的 属性 设置 





属 性 值 
Name scrBlue 
Max 255 
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续 表 
属 性 值 
Min 0 
LargeChange 
SmallChange 1 





表 14-23 第 一 个 命令 按钮 控件 的 属性 设置 























属 性 值 
Name cmdApply 
Caption 将 当前 颜色 设置 为 选区 背景 色 
Default True 
表 14-24 第 二 个 命令 按钮 控件 的 属性 设置 
属 性 值 
Name cmdClose 
Caption 关闭 
Cancel True 





(2) 完成 界面 设计 后 ， 接 下 来 需要 编写 实现 颜色 选择 功能 的 VBA 代码。 首先 编写 scrRed、 
scrGreen 和 scrBlue 三 个 滚动 条 的 Scroll 事件 代码 。 当 拖 动 滚动 条 上 的 滑 块 时 ， 滚 动 条 左 侧 的 3 
个 标签 控件 中 将 会 显示 与 滑 块 当前 位 置 对 应 的 R、G、B 三 个 颜色 分 量 的 值 ， 同 时 位 于 窗口 右 侧 
的 颜色 显示 器 会 显示 由 R、G、B 三 个 颜色 分 量 全 加 形成 的 最 终 颜色 。 


Private R As Integer, G As Integer, B As Integer 








Private Sub scrRed Scroll() 
R = scrRed.Value 
lblRed.Caption = "R: " & R 
lblColor.BackColor = RGB(R, G, B) 
End Sub 


Private Sub scrGreen Scroll() 
G = scrGreen.Value 


lblGreen.Caption = "G: " & G 
lblColor.BackColor = RGB(R, G, B) 
End Sub 


Private Sub scrBlue Scroll() 
B = scrBlue.Value 


lblBlue.Caption = "B: " & B 
lblColor.BackColor = RGB(R, G, B) 
End Sub 








(3) 双击 用 户 窗 体 中 的 “将 当前 颜色 设置 为 选区 背景 色 ” 按 钮 ， 然 后 编写 该 按钮 的 Click 事 
件 代 码 ， 当 单 击 该 按钮 时 ， 将 当前 颜色 设置 为 活动 工作 表 中 选中 的 单元 格 或 单元 格 区 域 的 背景 色 。 


Private Sub cmdApply Click() 

















If TypeName (Selection) = "Range" Then 
Selection.Interior.Color = lblColor.BackColor 
End If 
End Sub 
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(4) 双击 用 户 窗 体 中 的 “关闭 ”按钮 ， 然 后 编写 该 按钮 的 Click 事件 代码 ， 用 于 在 单 击 “ 关 








闭 ”按钮 时 关闭 颜色 选择 器 窗口 。 


Private Sub cmdClose Click() 
Unload Me 
End Sub 





(5) 在 VBA 工程 中 添加 一 个 标准 模块 , 然后 在 该 模块 的 代码 窗口 中 输入 下 面 的 代码 , 用 于 
在 执行 该 Sub 过 程 时 显示 非 模式 的 颜色 选择 器 窗 


中 的 单元 格 或 单元 格 区 域 。 
Sub 为 选区 设置 背景 色 () 


frmColorSelect.Show vbModeless 
End Sub 







































































， 这 样 在 窗口 显示 的 同时 还 可 以 选择 工作 表 














完成 以 上 工作 后 ， 关 闭 VBE 窗口 并 保存 当前 工作 短 。 按 Alt+F8 组 合 键 打开 “ 宏 ” 对 话 框 ， 
选择 “为 选区 设置 颜色 ”后 单 击 “ 执 行 ”按钮 ， 打 开颜 色 选 择 器 窗口 。 在 工作 表 中 选择 一 个 单 
元 格 区 域 ， 然 后 在 颜色 选择 器 窗口 中 拖 动 3 个 滚动 条 滑 块 ， 观 察 右 侧 显示 的 颜色 预览 。 当 显示 
满意 的 颜色 时 ， 单 击 “ 将 当前 颜色 设置 为 选区 背景 色 ” 按 钮 将 该 颜色 设置 为 当前 选区 的 背景 色 ， 











如 图 14-66 所 示 。 
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图 14-66 使 用 颜色 选择 器 为 选中 的 单元 格 或 单元 格 区 域 设 置 背 景色 


14.5.4 创建 可 改变 大 小 的 对 话 杠 





有 人 可 能 会 在 Excel 或 其 他 程序 中 看 到 过 一 些 可 以 改变 大 小 的 对 话 框 ， 打 开 对 话 框 时 显示 
的 尺寸 较 小 ， 但 是 通过 单 击 对 话 框 上 的 某 个 按钮 ， 可 以 增加 对 话 框 的 尺寸 并 显示 更 多 的 选项 。 
Excel 中 的 “查找 和 替换 ”对 话 框 就 是 这 样 一 个 对 话 框 ， 单 击 “ 选 项 ”按钮 前 后 的 效果 如 图 14-67 











所 示 。 
坦 抗 和 莹 六 5 
查找 (D) 。 营 找 ) 
查找 内 容 (N): 回 


选项 中 >> 


EC 














音 找 和 莹 党 时 x 
查找 (D) 做 换 P) 
音 找 夫 容 IN): ~| | 寺 &E 格式 M).. ~ 











邦人 同 口 gE9xSO 








图 14-67 ”Excel 中 的 一 个 可 改变 大 小 的 对 话 框 
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使 用 VBA 也 可 以 创建 这 类 对 话 框 ， 关 键 在 于 在 用 户 窗 体 设计 阶段 将 其 尺寸 设置 得 大 一 些 ， 
然后 在 运行 时 显示 用 户 窗 体 时 通过 代码 以 小 尺寸 显示 ， 再 为 用 户 窗 体 中 的 一 个 命令 按钮 编写 
Click 事件 代码 ， 以 在 单 击 该 按钮 时 可 以 改变 用 户 窗 体 的 尺寸 。 
案例 14-53 ”创建 可 显示 隐藏 选项 的 对 话 框 
创建 本 例 中 的 可 改变 大 小 的 对 话 框 的 方法 如 下 : 

(1) 新 建 一 个 工作 短 并 保存 为 “Excel 启用 宏 的 工作 短 ” 格 式 。 打 开 VBE 窗口 , 在 VBA 
工程 中 添加 一 个 用 户 窗 体 ， 然 后 在 其 中 添加 一 个 列表 框 控件 、2 个 命令 按钮 控件 和 3 个 选项 按 
钮 控件 ， 并 将 这 些 控件 按 如 图 14-68 所 示 的 位 置 进 行 排列 。 用 户 窗 体 和 每 个 控件 的 属性 设置 见 
表 14-25 一 表 14-31。 





































































































个 单项 选择 :个 多 项 选择 : 人 扩展 多 选 
图 14-68 对话 框 的 界面 设计 
表 14-25 用 户 窗 体 的 属性 设置 




















属 性 值 
Caption 可 改变 大 小 的 对 话 框 
Height 180 
Width 240 
表 14-26 ”列表 框 控件 的 属性 设置 

属 性 值 
Name lstName 

表 14-27 第 一 个 命令 按钮 控件 的 属性 设置 
属 性 值 
Name cmdAdd 
Caption 添加 

表 14-28 第 二 个 命令 按钮 控件 的 属性 设置 
属 性 值 
Name cmdOption 
Caption 选项 >> 
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表 14-29 第 一 个 选项 按钮 控件 的 属性 设置 
属 性 值 
Name optSingle 
Caption 单项 选择 

表 14-30 ”第 二 个 选项 按钮 控件 的 属性 设置 
属 性 值 
Name optMulti 
Caption 多 项 选择 

表 14-31 第 三 个 选项 按钮 控件 的 属性 设置 
属 性 值 
Name optExtended 
Caption 扩展 多 选 








(2) 完成 界面 
代码 。 首 先 编写 “选项 ”按钮 的 Click 导 





设计 后 ， 接 下 来 需要 编写 实现 单 击 “ 选 项 ”按钮 改变 对 话 框 大 小 功能 的 VBA 





有 件 代码 ， 通 过 判断 “选项 ”按钮 上 的 标题 ( 即 Caption 


属性 ) 来 动态 改变 对 话 框 的 大 小 ， 代 码 如 下 : 


Private Sub cmdOoption Click() 




















If cmdoption.Caption = "选项 >>" Then 
Me.Height = 180 
cmdOption.Caption = "<< 选项 " 
Else 
Me.Height = 150 
cmdOption.Caption = "选项 >>" 
End If 
End Sub 
(3) 然后 编写 3 个 选项 按钮 的 Click 事件 代码 , 在 选中 它们 时 改变 列表 框 的 单 选 /多 选 方式 ， 
代码 如 下 : 
Private Sub optSingle Click() 
If optSingle.Value = True Then 
lstName.MultiSelect = fmMultiSelectSingle 
End If 
End Sub 
Private Sub optMulti Click() 
If optMulti.Value = True Then 
lstName.MultiSelect = fmMultiSelectMulti 
End If 
End Sub 
Private Sub optExtended Click() 
If optExtended.Value = True Then 
lstName.MultiSelect = fmMultiSelectExtended 
End If 
End Sub 
(4) 接着 编写 “添加 ”按钮 的 Click 事件 代码 ， 该 按钮 的 用 途 在 本 章 前 面 很 多 案例 中 都 出 


现 过 ， 代 码 如 下 : 


Private Sub cmdAdd Click() 





























“03s 


Excel VBA 编程 实战 宝典 


Dim intRow As Integer 
lstName.RowSource = "" 
lstName.Clear 
For intRow = 1 To 20 
lstName.AddItem Cells (intRow, 1) .Value 
Next intRow 
End Sub 


(5) 最 后 需要 编写 用 户 窗 体 的 Initialize 事件 代码 ， 在 加 载 并 显示 用 户 窗 体 时 ， 将 用 户 窗 体 
的 高 度 设置 得 比 在 设计 窗口 中 的 稍微 矮 一 点 ， 这 样 在 显示 用 户 窗 体 时 对 话 框 下 方 的 3 个 选项 按 
钮 会 处 于 隐藏 状态 。 之 后 通过 单 击 “ 选 项 ”按钮 增加 对 话 框 的 高 度 来 将 这 3 个 选项 按钮 显示 出 
来 。 用 户 窗 体 的 Initialize 事件 代码 如 下 : 


Private Sub UserForm Initialize() 
Me.Height = 150 
optSingle.Value = True 
lstName.MultiSelect = fmMultiSelectSingle 
End Sub 


完成 以 上 工作 后 ， 保 存 当前 工作 夭 。 在 VBE 窗口 中 运行 用 户 窗 体 ， 单 击 “ 添 加 ”按钮 ， 将 
活动 工作 表 中 的 A1:A20 单元 格 区 域 中 的 数据 添加 到 列表 框 中 ， 此 时 可 以 在 列表 框 中 只 能 选择 
一 个 项 目 。 单 击 “ 选 项 >>” 按 钮 ， 展 开 该 对 话 框 并 显示 下 方 的 3 个 选项 ， 如 图 14-69 所 示 。 选 
择 “ 多 项 选择 ”或 “扩展 多 选 ” 后 ， 可 以 在 列表 框 中 选择 多 个 项 目 ， 此 时 “选项 >>” 按 钮 的 
标题 显示 为 “<< 选项 ”， 单 击 该 按钮 将 会 隐藏 下 方 的 3 个 选项 。 
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图 14-69 ”可 改变 大 小 的 对 话 框 
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微软 在 Excel 2007 以 及 更 高 版 本 的 Excel 中 使 用 功能 区 代替 了 在 Excel 早期 版 本 中 沿用 多 年 
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的 菜单 栏 和 工具 栏 。 虽 然 现在 仍 可 使 用 VBA 编程 创建 菜单 栏 


及 更 高 版 本 的 Excel 中 创建 的 菜单 栏 和 了 











过 在 VBA 中 编写 代码 来 为 功能 
单 栏 和 工具 栏 的 方法 ， 然 后 介绍 使 用 RibbonX 定制 功能 





各 个 版 本 的 快捷 菜单 的 定制 方法 。 


Excel 早期 版 本 中 的 内 置 菜 单 栏 只 有 两 个 ， 
另 一 个 是 图 表 菜 单 栏 (Chart Menu Bar) ， 了 
制 菜单 栏 时 ， 通 常 是 向 Excel 内 置 的 工作 表 菜 单 栏 中 添加 菜单 和 菜单 项 。 妇 
建新 的 菜单 栏 来 代替 Excel 内 置 的 菜单 栏 。 本 节 首 先 介绍 用 于 定制 Excel 界 
介绍 定制 菜单 栏 的 方法 。 





础 知识 ， 然 后 详 引 











15.1 定制 菜单 栏 








和 工具 栏 ， 但 是 在 Excel 2007 以 























15.1.1 命令 栏 和 控件 的 类 型 


命令 栏 是 Excel 界面 元 素 的 统称 ， 菜 单 栏 、 工 具 栏 和 快捷 菜 自 


























[ 具 栏 都 将 位 于 功能 区 的 “加 载 项 ”选项 卡 中 ， 只 有 右 
击 ， 弹 出 的 快捷 菜单 在 不 同 的 Excel 版 本 中 具有 相同 的 显示 方式 。 微 软 为 新 的 功能 区 界面 提供 
了 一 套 全 新 的 RibbonX 可 编程 机 制 ， 通 过 编辑 XML 代码 可 以 定制 功能 
区 中 的 命令 提供 所 要 执行 的 操作 。 本 章 首 先 介绍 定制 传统 的 菜 
区 的 方法 ， 还 介绍 了 同时 适用 于 Excel 





区 的 组 成 元 素 ， 然 后 通 


一 个 是 工作 表 菜 单 栏 (Worksheet Menu Bar) ， 

[ 作 表 菜单 栏 是 Excel 界面 中 默认 显示 的 菜单 栏 。 定 
果 需 要 ， 也 可 以 创 
环境 的 命令 栏 的 基 


都 是 命令 栏 。 换 句 话 说 ， 命 


令 栏 可 以 是 指 菜单 栏 、 工 具 栏 和 快捷 菜单 中 的 任何 一 种 。 在 VBA 中 ， 使 用 CommandBar 对 象 
表示 任意 一 个 命令 栏 , 使 用 CommandBars 集合 表示 Excel 中 的 所 有 命令 栏 , 使 用 CommandBars 


集合 和 CommandBar 对 象 可 以 对 Excel 中 的 菜单 栏 、 工 具 栏 和 快捷 菜单 进行 编程 控制 。 使 
Application 对 象 的 CommandBars 属性 可 以 返回 CommandBars 集合 ， 然 后 通过 该 集合 引用 特定 


的 命令 栏 。 

















MsoBarType 常量 提供 ， 见 表 15-1 。 


表 15-1 MsoBarType 常量 


以 使 CommandBar 对 象 的 Type 属性 确定 命令 栏 的 类 型 ， 表 示 命 令 栏 类 型 的 值 由 







































































名 称 说 了 明 
msoBarTypeNormal 工具 栏 
msoBarTypeMenuBar 菜单 栏 
msoBarTypePopup 快捷 菜单 

命令 栏 由 不 同类 型 的 控件 组 成 。 控 件 通常 用 于 执行 特定 的 操作 ， 其 形式 可 以 是 菜单 中 的 命 
令 菜单 项 ) ， 也 可 以 是 工具 栏 中 的 按钮 。 还 有 一 些 控件 用 于 表示 菜单 中 的 子 菜单 或 工具 栏 中 
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的 弹出 菜单 ， 这 些 控件 可 以 包含 其 他 控件 。 

在 VBA 中 ,使 用 CommandBarButton 对 象 表示 菜单 中 的 菜单 项 或 工具 栏 中 的 按钮 ， 使 用 
CommandBarPopup 对 象 表示 菜单 中 的 子 菜单 或 工具 栏 中 的 弹出 菜单 ， 而 菜单 中 的 子 菜单 和 工具 
栏 中 的 弹出 菜单 又 都 是 独立 的 命令 栏 。 使 用 CommandBarComboBox 对 象 表示 命令 栏 中 的 文本 框 、 
下 拉 列 表 和 组 合 框 等 。 如 果 预 先 无 法 确定 控件 的 类 型 ， 则 可 使 用 CommandBarControl 对 象 表示 。 

通过 控件 的 Type 属性 可 以 确定 控件 的 类 型 ， 表 示 控 件 类 型 的 值 由 MsoControlType 常量 提 
供 , 见 表 15-2。 在 VBA 中 只 能 创建 msoControlButton、msoControlPopup、msoControlComboBox、 
msoControlEdit、msoControlDropdown 和 msoControlActiveX 几 种 类 型 的 控件 。 其 他 类 型 的 控件 









































































































































虽然 可 能 会 出 现在 特定 的 命令 栏 中 ， 但 是 无 法 由 用 户 创建 。 
表 15-2 MsoControlType 常量 
名 称 值 说 明 
ImsoControlCustom | 。 | 自 定义 控件 
msoControlButton | 三 本 = 命令 按钮 
msoControlEdit 文本 框 
msoControlDropdown 下 拉 列 表 
msoControlComboBox 组 合 
msoControlButtonDropdown | s | 下 拉 按 钮 
msoControlSplitDropdown | 6 | 拆 分 下 拉 列 表 
msoControlOCXDropdown OCX 下 拉 列 表 
msoControlGenericDropdown | | 一 般 下 拉 列 表 
msoControlGraphicDropdown | 9 | 图 形 下 拉 列 表 
msoControlPopup | 10 | 弹出 菜单 
msoControlGraphicPopup | mu | 图 形 弹出 菜单 
msoControlButtonPopup 弹出 式 按钮 
msoControlSplitButtonPopup 拆 分 按钮 弹出 框 
msoControlSplitButtonMRUPopup 14 最 近 使 用 过 的 弹出 菜单 (MRU) 
msoControlLabel 标签 
msoControlExpandingGrid 16 展开 网 格 
msoControlSplitExpandingGrid 17 拆 分 展开 网 格 
msoControlGrid 网 格 
msoControlGauge 19 计量 表 控 件 
msoControlGraphicCombo 20 图 形 组 合 框 
msoControlPane 21 窗 格 
msoControlActiveX 22 ActiveX 控件 
msoControlSpinner 23 微调 按钮 
msoControlLabelEx 24 扩展 标签 
msoControlWorkPane 25 工作 窗 格 
msoControlAutoCompleteCombo 26 在 用 户 输入 时 自动 填充 第 一 个 匹配 选项 的 组 合 框 





"308。 





案 
下 
单 。A 
始 部 分 
序 。 如 





象 的 Index 和 Name 属性 获取 命令 栏 的 索引 号 和 名 称 。 使 用 CommandBar 对 象 的 BuiltIn 属性 确 


定 命令 
的 类 型 
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例 15-1 获取 Excel 内 置 的 所 有 命令 栏 
面 的 代码 在 活动 工作 表 中 列 出 Excel 内 置 的 所 有 命令 栏 ， 包 括 菜单 栏 、 工 具 栏 和 快捷 菜 
列 显示 命令 栏 的 索引 号 ，B 列 显示 命令 栏 的 名 称 ，C 列 显示 命令 栏 的 类 型 。 在 代码 的 开 
首先 检查 活动 工作 表 中 是 否 包含 数据 ， 如 果 有 数据 则 显示 预先 指定 的 提示 信息 并 退出 程 
果 没 有 数据 则 在 For Each 循环 结构 中 遍历 Excel 中 的 所 有 命令 栏 ， 使 用 CommandBar 对 





















































栏 是 否 是 Excel 内 置 的 ， 如 果 是 则 使 用 Type 属性 判断 命令 栏 的 类 型 ， 并 在 C 列 输入 对 应 
名 称 。 


Sub 获取 Excel 内 置 的 所 有 命令 栏 () 


Dim cbr Rs CommandBar, lngRow Rs Long 
If Application.WorksheetFunction.CountA(Cells) <> 0 Then 
MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工作 表 ! " 
Exit Sub 
End If 
With Range ("R1:C1") 
.Value = Array ("索引 号 "，" 名 称 "，" 类 型 ") 
.HorizontalAlignment = xlCenter 
End With 
lngRow = 2 
For Each cbr In Application.CommandBars 
Cells(lngRow, 1) .Value = cbr.Index 
Cells (lngRow, 2) .Value = cbr.Name 
If cbr.BuiltIn = True Then 
Select Case cbr.Type 
Case msoBarTypeMenuBar 
Cells (lngRow，3) .Value = "菜单 栏 " 
Case msoBarTypeNormal 
Cells (lngRow，3) .Value = "工具 栏 " 
Case msoBarTypePopup 
Cells (lngRow，3) .Value = "快捷 菜单 " 
Case Else 
Cells (lngRow，3) .Value = " 自 定 义 " 
End Select 
End If 
lngRow = lngRow + 1 
Next cbr 
Range ("Al:C1") .EntireColumn.AutoFit 


End Sub 


如 


信息 。 可 以 发 现 ，Excel 2003 与 Excel 2016 中 的 同一 个 命令 栏 的 索引 号 并 不 完全 相同 。 因 此 在 














图 15-1 所 示 显 示 了 在 Excel 2003 和 Excel 2016 中 执行 上 面 代码 返回 的 所 有 命令 栏 的 相关 




















通过 VBA 编程 定制 命令 栏 时 , 为 了 让 代码 可 以 通用 于 Excel 的 各 个 版 本 ， 应 该 使 用 命令 栏 的 名 








称 而 不 是 索引 号 来 引用 命令 栏 。 























命令 栏 中 的 控件 有 一 个 Id 属性 ， 该 属性 决定 了 Excel 内 置 控件 所 执行 的 操作 ，Id 属性 的 值 
在 所 有 控件 中 是 唯一 的 。 控 件 还 有 一 个 FaceId 属性 ， 该 属性 决定 了 控件 上 显示 的 图 像 ， 但 并 不 
是 所 有 控件 都 有 图 像 。Excel 内 置 控 件 的 Id 属性 和 FaceId 属性 具有 相同 的 值 。 用 户 自 定义 的 控 


件 的 Id 




















属性 的 值 为 1。 如 果 为 控件 设置 了 自 定义 图 像 ， 则 该 控件 的 FaceId 属性 的 值 为 0。 如 果 

















知道 内 置 控 件 的 FaceId 属性 的 值 ， 则 可 以 为 自 定义 控件 使 用 内 置 控 件 的 图 像 。 
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获取 Excel 内 置 的 所 有 命令 栏 


图 15-1 


案例 15-2 ”获取 Excel 中 的 所 有 内 置 控件 的 Faceld 和 图 像 


下 




















图 














党 


退出 





工具 栏 。 接 着 在 这 个 | 


的 代码 在 工作 表 中 列 出 了 Excel 中 的 所 有 内 置 控 件 的 FaceId 属性 值 及 其 关联 的 图 像 ， 
15-2 所 示 。 首 先 检查 活动 工作 表 中 是 否 包含 数据 ， 如 果 有 数据 则 显示 预先 指定 的 提示 信息 
程序 。 然 后 创建 一 个 使 用 默认 名 称 的 临时 工具 栏 ， 临 时 是 指 退出 Excel 程序 时 自动 删除 


临时 工具 栏 中 添加 一 个 临时 的 按钮 ， 该 按钮 作为 处 理 控件 图 像 的 中 介 。 











从 工作 表 的 第 








"310。 


行 


将 状态 栏 中 的 信息 设置 为 显示 当前 的 FaceID 的 值 。 然 后 将 intFaceId 变量 的 值 赋值 给 
量 表示 的 控件 的 Faceld 属性 ， 从 而 为 控件 设置 由 intFaceId 中 的 值 指定 的 图 像 。 使 用 控件 
CopyFace 方法 复制 控件 上 的 








始 ， 每 次 遍历 一 行 的 第 1 一 8 列 ， 将 intFaceId 的 值 从 1 开始 依次 递增 ， 
ctl 变 
的 
图 像 ， 然 后 将 其 粘贴 到 活动 工作 表 中 由 intRow 和 intCol 变量 确定 
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的 单元 格 右 侧 一 列 的 单元 格 中 ， 并 将 图 像 的 Faceld 值 写 入 到 由 intRow 和 intCol 变量 确定 的 单 























元 格 中 。 
E F G H 

5 6 图 7 面 8 加 
2 13 轿 14 蛮 15 这 16 民 
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图 15-2 获取 Excel 中 的 所 有 内 置 控件 的 FaceId 和 图 像 
由 于 在 程序 的 开始 部 分 设置 了 错误 捕获 ， 因 此 如 果 复 制 的 是 不 可 见 的 图 像 ， 则 会 出 现 编号 


























为 1004 的 运行 时 错误 ， 此 时 会 自动 执行 错误 处 理 代 码 ， 忽 略 错误 语句 并 从 产生 错误 的 语句 的 下 
一 条 语句 继续 执行 。 当 到 达 最 后 一 个 Faceld 时 会 导致 一 个 编号 不 是 1004 的 错误 ， 此 时 跳 转 到 





错误 处 理 代码 部 分 ， 清 除 状态 栏 





的 信息 并 删除 临时 命令 栏 。 如 果 不 使 用 代码 删除 命令 栏 ， 则 


在 退出 Excel 程序 时 会 自动 将 其 删除 。 


Sub 获取 Excel 中 的 所 有 内 置 控件 的 FaceId 和 图 像 () 
Dim cbr As CommandBar, ctl As CommandBarButton 
Dim intCol As Integer, intRow As Integer 
Dim intFaceId As Integer 
If Application.WorksheetFunction.CountA(Cells) <> 0 Then 
MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工作 表 ! " 
Exit Sub 
End If 
On Error GoTo errTrap 
Application.ScreenUpdating = False 
Set cbr = Application.CommandBars.Add (MenuBar:=False, Temporary:=True) 
Set ctl = cbr.Controls.Add (Type:=msoControlButton, Temporary:=True) 
intRow = 1 
Do 
For intCol =1 To 8 
intFaceId = intFaceId + 1 
Application.StatusBar = "FaceID=" & intFaceId 
ctl.Faceld = intFaceId 
ctl.CopyFace 
ActiveSheet .Paste Cells(intRow, intCol + 1) 
Cells (intRow, intCol) .Value = intFaceId 
Next intCol 
intRow = intRow + 1 
Loop 
errTrap: 
If Err.Number = 1004 Then Resume Next 
Application.StatusBar = False 
cbr.Delete 
Application.ScreenUpdating = True 
End Sub 
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15.1.2 创建 命令 栏 和 控件 的 通用 方法 
使 用 CommandBars 集合 的 Add 方法 可 以 创建 一 个 命令 栏 ，Add 方法 包含 4 个 参数 ， 语 法 
格式 如 下 : 
Add (Name, Position, MenuBar, Temporary) 
口 Name: 可 选 ， 新 命令 栏 的 名 称 。 如 果 省 略 该 参数 ， 则 使 用 默认 的 名 称 。 
口 Position: 可 选 ， 新 命令 栏 的 位 置 ， 该 参数 的 值 由 MsoBarPosition 常量 提供 ， 见 表 15-3。 
该 参数 在 Excel 2007 以 及 更 高 版 本 的 Excel 中 无 效 。 
口 MenuBar: 可 选 , 创建 的 是 菜单 栏 还 是 工具 栏 。 如 果 为 True 则 创建 的 是 菜单 栏 ， 如 果 为 
False 则 创建 的 是 工具 栏 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 False。 
口 Temporary: 可 选 ， 创 建 的 命令 栏 是 临时 的 或 永久 的 。 如 果 为 True 则 创建 的 命令 栏 是 临 
时 的 ， 在 退出 Excel 程序 时 会 自动 将 其 删除 。 如 果 为 False 则 创建 的 命令 栏 是 永久 的 ， 
退出 Excel 程序 时 不 会 自动 将 其 删除 ， 而 只 能 使 用 代码 进行 删除 。 如 果 省 略 该 参数 ， 则 



































其 值 默认 为 False。 
表 15-3 MsoBarPosition 常量 
名 称 说 了 明 
msoBarLeft 命令 栏 固定 在 Excel 窗口 的 左 侧 
msoBarTop 命令 栏 固定 在 Excel 窗口 的 顶部 
msoBarRight 命令 栏 固 定 在 Excel 窗口 的 右 侧 
msoBarBottom 命令 栏 固定 在 Excel 窗口 的 底部 














命令 栏 浮动 在 Excel 窗口 的 顶端 
命令 栏 为 快捷 菜单 
命令 栏 为 菜单 栏 ， 仅 限 Macintosh 


使 用 Controls 集合 的 Add 方法 可 以 在 指定 的 命令 栏 中 添加 一 个 控件 , 使 用 CommandBar 对 
象 的 Controls 属性 可 以 返回 Controls 集合 。Add 方法 包含 5 个 参数 ， 语 法 格式 如 下 : 

Add (Type, Id, Parameter, Before, Temporary) 

口 Type: 可 选 ， 要 添加 到 命令 栏 中 的 控件 类 型 ， 可 以 是 以 下 几 个 MsoControlType 常量 : 
msoControlButton 、 msoControlPopup 、 msoControlComboBox 、 msoControlEdit 或 
msoControlDropdown 。 

口 Id: 可 选 ， 要 添加 的 内 置 控件 的 ID。 如 果 要 向 命令 栏 中 添加 Excel 内 置 控 件 ， 则 需要 将 
该 参数 设置 为 内 置 控 件 的 ID 。 如 果 将 该 参数 设置 为 1 或 省 略 该 参数 ， 则 将 在 命令 栏 中 
添加 一 个 空 的 自 定义 控件 ， 之 后 需要 为 该 控件 设置 所 需 的 属性 。 

口 Parameter: 可 选 ， 为 自 定义 控件 存储 特定 信息 ， 该 信息 将 传递 给 要 运行 的 VBA 过 程 并 
进行 处 理 。 

口 Before: 可 选 , 一 个 表示 控件 索引 号 的 值 , 将 控件 添加 到 命令 栏 中 指定 位 置 的 控件 之 前 。 
如 果 忽 略 该 参数 ， 则 将 控件 添加 到 命令 栏 中 的 最 后 一 个 控件 之 后 。 

口 Temporary: 可 选 , 添加 的 控件 是 临时 的 或 永久 的 。 如 果 为 True 则 添加 的 控件 是 临时 的 ， 
在 退出 Excel 程序 时 会 自动 将 其 删除 。 如 果 为 False 则 添加 的 控件 是 永久 的 。 如 果 省 略 
该 参数 ， 则 其 值 默认 为 False。 


msoBarFloating 
msoBarPopup 


msoBarMenuBar 
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无 论 创建 的 是 菜单 栏 、 工 具 栏 还 是 快捷 菜单 ， 都 需要 使 用 CommandBars 集合 的 Add 方 
法 。 创 建 菜单 栏 与 工具 栏 的 区 别 在 于 为 Add 方法 的 MenuBar 参数 设置 不 同 的 值 ， 该 参数 的 
默认 值 为 False， 即 表示 创建 的 是 工具 栏 。 如 果 将 该 参数 设置 为 True， 则 创建 的 是 菜单 栏 





创建 快捷 菜 
msoBarPopup 。 

无 论 添加 哪 种 类 型 的 控件 ， 都 需要 使 用 Controls 集合 的 Add 方法 。 控 件 的 类 
的 Type 参数 决定 。 为 了 使 创建 的 命令 栏 可 以 正常 显示 ， 需 要 在 创建 命令 栏 后 为 其 添加 控件 ， 并 
将 命令 栏 的 Visible 属性 设置 为 True， 和 否则 创建 的 命令 栏 将 处 于 隐藏 状态 。 
























































这 里 主要 对 不 同类 型 的 命令 栏 的 创建 方法 进行 了 概括 性 介绍 ， 并 说 明了 彼此 之 间 的 主要 
别 ， 具 体 的 创建 方法 将 在 本 章 后 面 内 容 中 进行 详细 介绍 。 


15.1.3 ”Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 
在 Excel 中 只 有 两 个 内 置 的 菜单 栏 , 一 个 是 Worksheet Menu Bar, 另 一 个 是 Chart Menu Bar。 


在 VBA 中 定制 菜单 栏 时 ， 可 以 在 内 置 菜 单 栏 中 添加 或 删除 菜单 和 菜单 项 ， 也 可 以 创 到 
单 栏 以 取代 默认 显示 的 菜单 栏 。 无 论 以 何 种 方式 定制 菜单 栏 ， 对 Excel 内 置 菜单 栏 中 包含 的 菜 
单 和 控件 有 所 了 解 都 有 益处 ， 因 为 可 以 将 内 置 菜单 栏 中 的 控件 添加 到 用 户 创建 的 菜单 栏 中 ， 从 



































而 减少 定制 菜单 栏 时 的 工作 量 。 
案例 15-3 ”获取 Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 


下 











面 的 代码 列 出 了 Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 的 名 称 和 ID， 其 中 只 列 出 了 第 


























与 工具 栏 类 似 , 但 是 需要 在 创建 快捷 菜单 时 将 Add 方法 的 Position 参数 设置 为 


型 由 Add 方法 





区 





新 的 荣 


级 控件 ， 如 图 15-3 所 示 。 由 于 命令 栏 分 为 菜单 栏 、 工 具 栏 和 快捷 菜单 三 种 类 型 ， 因 此 需要 使 用 
CommandBar 对 象 的 Type 属性 判断 命令 栏 的 类 型 是 否 是 菜单 栏 , 即 msoBarTypeMenuBar。 如果 
是 则 向 单元 格 中 写 入 菜单 栏 的 相关 信息 。 

Sub 获取 Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 () 


Dim cbr As CommandBar, ctl Rs CommandBarControl 
Dim lngRow Rs Long 
If Application.WorksheetFunction.CountA(Cells) <> 0 Then 
MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工 作 表 ! " 
Exit Sub 
End If 
Application.ScreenUpdating = False 
With Range ("Al:C1") 
.Value = Array ("菜单 栏 名 称 "，" 控 件 名 称 "，" 控 件 ID") 
.HorizontalAlignment = xlCenter 
End With 
lngRow = 2 
For Each cbr In Application.CommandBars 
If cbr.Type = msoBarTypeMenuBar Then 
Cells (lngRow, 1) .Value = cbr.Name 
For Each ctl In cbr.Controls 
Cells (lngRow, 2) .Value = ctl.Caption 
Cells (lngRow, 3) .Value = ct1.ID 
lngRow = lngRow + 1 
Next ctl 
End If 
Next cbr 
Range ("Al:C1") .EntireColumn.AutoFit 
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Application.ScreenUpdating = True 





End Sub 
A B C D E F G H 

1 菜单 栏 名 称 控件 名 称 控件 ID 
2 |Worksheet Menu Bar 文件 (&F) 30002 
3 编辑 (&E) 。 30003 
4 视图 (&V) ，30004 

插入 (&I) ，30005 
6 格式 (&O) 30006 
7 工具 (&T) ，30007 
8 数据 (&D) 30011 
9 窗口 (&W) 30009 
10 帮助 (&H) 30010 
11 |Chart Menu Bar 文件 (&F) 30002 
12 编辑 (&E) 30003 
13 视图 (&V) ，30004 
14 插入 (&I) ，30005 
15 格式 (&O) ，30006 
16 工具 (&T) ，30007 

Sheet1 四 





4 
肯 团 四 -一 一 + 一 一 + 100% 





图 15-3 获取 Excel 中 的 所 有 菜单 栏 及 其 包含 的 控件 


15.1.4 引用 特定 的 菜单 栏 


与 从 其 他 集合 中 引用 特定 对 象 的 方法 类 似 ， 也 可 以 通过 命令 栏 的 名 称 或 索引 号 从 
CommandBars 集合 中 引用 特定 的 命令 栏 。 由 于 不 同 版 本 的 Excel 中 的 命令 栏 的 索引 号 并 不 完全 
相同 ， 因 此 最 好 通过 名 称 来 引用 特定 的 命令 栏 。 下 面 的 代码 通过 名 称 来 引用 工作 表 菜 单 栏 和 图 
表 菜单 栏 


Application.CommandBars ("Worksheet Menu Bar") 
Application.CommandBars ("Chart Menu Bar") 


虽然 命令 栏 的 索引 号 在 不 同 版 本 的 Excel 中 不 完全 相同 ， 但 是 对 于 菜单 栏 来 说 并 无 影响 。 
不 同 版 本 的 Excel 中 的 工作 表 菜 单 栏 和 图 表 菜 单 栏 的 索引 号 都 是 1 和 2, 因此 可 以 使 用 索引 号 来 
引用 这 两 个 菜单 栏 ， 如 下 所 示 。 但 是 为 了 以 防 万 一 ， 最 好 还 是 使 用 名 称 来 引用 特定 的 命令 栏 。 


Application.CommandBars (1) 
Application.CommandBars (2) 


提示 : 如 果 两 个 或 两 个 以 上 的 命令 栏 具有 相同 的 名 称 , 那么 在 从 CommandBars 集合 中 引用 
包含 相同 名 称 的 命令 栏 时 ， 将 返回 第 一 个 具有 该 名 称 的 命令 栏 。 


15.1.5 引用 菜单 栏 中 的 菜单 

对 于 菜单 栏 来 说 ， 其 中 的 菜单 就 是 菜单 栏 中 的 控件 ， 因 此 从 菜单 栏 中 引用 菜单 的 方法 实际 
上 就 是 从 表示 菜单 栏 的 CommandBar 对 象 的 Controls 集合 中 引用 特定 的 控件 。 另 一 方面 ， 由 于 
菜单 还 包含 自己 的 控件 ， 因 此 菜单 既是 菜单 栏 中 的 控件 ， 又 可 作为 独立 的 命令 栏 。 可 以 使 用 名 
称 或 索引 号 引用 菜单 栏 中 的 菜单 。 下 面 的 代码 引用 工作 表 菜 单 栏 中 的 “文件 ”菜单 ， 它 是 菜单 
栏 中 的 第 1 个 菜单。 

Application.CommandBars ("Worksheet Menu Bar") .Controls (1) 
上 面 的 代码 返回 一 个 CommandBarControl 对 象 ， 使 用 该 对 象 的 Caption 属性 可 以 返回 菜单 
的 名 称 ， 如 下 所 示 : 

Application.CommandBars ("Worksheet Menu Bar") .Controls (1) .Caption 


使 用 CommandBarControl 对 象 的 Type 属性 可 以 返回 表示 菜单 类 型 的 值 ， 如 下 所 示 。 菜 单 
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栏 中 的 第 一 级 菜单 的 Type 属性 返回 的 值 是 10， 即 msoControlPopup 弹出 菜单 。 


Application.CommandBars ("Worksheet Menu Bar") .Controls (1) .Type 


案例 15-4 ”获取 工作 表 菜 单 栏 中 第 一 个 菜单 包含 的 命令 的 相关 信息 

下 面 的 代码 在 活动 工作 表 中 列 出 工作 表 菜 单 栏 中 第 一 个 菜单 包含 的 命令 的 名 称 、ID、FaceID 
及 其 图 像 ， 如 图 15-4 所 示 。 首 先 检查 活动 工作 表 中 是 否 包 含 数 据 ， 如 果 包 含 数 据 则 退出 程序 。 
之 后 关闭 屏幕 刷新 以 加 快 程序 的 运行 速度 ， 将 工作 表 菜 单 栏 及 其 第 一 个 菜单 分 别 赋值 给 cbr 和 
ctl 两 个 变量 。 在 Al:E1 单元 格 区 域 中 输入 各 列 的 标题 ， 并 将 它们 在 单元 格 中 居中 显示 。 在 第 二 
行 的 第 1 列 和 第 2 列 分 别 输 入 工作 表 菜 单 栏 及 其 第 一 个 菜单 的 名 称 ， 并 将 表示 行 号 的 IngRow 
变量 赋值 为 1。 






























































A B C D E 

1 菜单 栏 名 称 菜单 名 称 命令 名 称 ID FacelD 
2 |Worksheet Menu Bar ”文件 (&F) 新 建 (&N) 18D 18 
3 打开 (&O) 23 区 23 
4 关闭 (&C) 106 鲁 “106 
5 保存 (&S) 3 3 
6 另存 为 (&A) 748 回 748 
? 单个 网 页 (mht) 3823 转 3823 
8 保存 工作 区 (&W) 846 口 846 
9 文件 搜索 (&H) 5905 仙 5905 
10 权限 (&M) 7994 口 7994 
11 权限 (&M) 31308 

12 签 出 (&E) 6127®) 6127 
13 签 入 (&E) 6128 6128 
14 版 本 历史 记录 (&R) 7799 7799 
15 网 页 预览 (&B) 3655 鸭 3655 
16 页 面 设置 (&U) 247 虽 247 
17 打印 区 域 (&T) 30255 

18 打印 预览 (&V) 109[& 109 
19 打印 (&p) 4@@ 4 
20 发 送 至 (&D) 30095 

21 属性 (&) 750 加 750 


此 处 为 最 新 文件 名 (&R) 12547 如 12547 
23 此 处 为 最 新 文件 名 (&R) 831 831 
24 注销 (&T) 5950 5950 
25 退出 Excel(&X) 752D 752, 
26 


图 15-4 获取 工作 表 菜 单 栏 中 第 一 个 菜单 包含 的 命令 的 相关 信息 


接 下 来 进入 For Each 循环 结构 ， 在 第 一 个 菜单 中 遍历 其 中 的 每 一 个 命令 。 将 行 号 加 1， 然 
后 将 命令 的 标题 输入 到 当前 行 第 3 列 的 单元 格 中 , 将 命令 的 ID 输入 到 当前 行 第 4 列 的 单元 格 中 ， 
将 命令 的 FaceID 输入 到 当前 行 第 5 列 的 单元 格 中 。 然 后 使 用 CopyFace 方法 复制 当前 命令 上 的 
图 像 ， 如 果 成 功 复制 图 像 ， 则 将 其 复制 到 当前 行 第 5 列 的 单元 格 中 。 由 于 前 面 使 用 了 On Error 
Resume Next 语句 ， 因 此 即使 复制 图 像 失败 ， 也 不 会 出 现 运行 时 错误 , 但 是 Err 对 象 会 包含 一 个 
错误 号 ， 清 除 该 错误 号 以 便 重 新 对 下 次 可 能 产生 的 错误 进行 捕获 。 使 用 以 上 过 程 继续 处 理 在 菜 
单 中 找到 的 下 一 个 命令 ， 直 到 菜单 中 的 最 后 一 个 命令 。 

Sub 获取 工作 表 菜 单 栏 中 第 一 个 菜单 包含 的 命令 的 相关 信息 () 


Dim cbr As CommandBar, ctl As CommandBarControl 

Dim subctl As CommandBarControl, lngRow As Long 

If Application.WorksheetFunction.CountA(Cells) <> 0 Then 
MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工作 表 ! " 
Exit Sub 

End If 

Application.ScreenUpdating = False 

Set cbr = Application.CommandBars ("Worksheet Menu Bar") 

Set ctl = cbr.Controls (1) 

With Range ("R1:E1") 


















































3 


Excel VBA 编程 实战 宝典 


.Value = Array ("菜单 栏 名 称 "，" 莱 单 名 称 "，" 命 令 名 称 "，"ID"， 
.HorizontalAlignment = xlCenter 

End With 

Cells(2, 1) .Value = cbr.Name 

Cells(2, 2) .Value = ctl.Caption 

lngRow = 1 


On Error Resume Next 
For Each subctl In ctl.Controls 


lngRow = lngRow + 1 

Cells (lngRow, 3) .Value = subctl.Caption 
Cells(lngRow, 4) .Value = subct1.ID 
Cells(lngRow, 5) .Value = subctl.FaceId 


subctl1 .CopyFace 
If Err.Number = 
Err.Clear 

Next subctl 

Range ("Al:E1") .EntireColumn.AutoFit 

Application.ScreenUpdating = 


0 Then 


True 


End Sub 


案例 15-5 ”获取 工作 表 菜 单 栏 中 所 有 菜单 包含 的 命令 的 相关 信息 


下 





区 别 在 








上 的 代码 是 





























单 的 名 称 。 
Sub 获取 工作 表 菜 单 栏 中 所 有 菜单 包含 的 命令 的 相关 信息 () 


Dim cbr As CommandBar, ctl Rs CommandBarControl 
Dim subctl As CommandBarControl, lngRow As Long 
If Application.WorksheetFunction.CountA(Cells) <> 0 Then 


MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工作 表 ! " 


Exit Sub 
End If 
Application.ScreenUpdating = False 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 


With Range ("Al:E1") 


ActiveSheet .Paste Cells (lngRow, 


"FaceID") 


5) 


上 一 个 案例 的 完善 版 ， 它 可 以 列 出 工作 表 菜 单 栏 中 的 所 有 菜单 包含 的 命令 
的 相关 信息 ， 而 不 只 是 第 一 个 菜单 中 的 命令 。 本 例 代 码 的 工作 原理 与 上 一 个 案例 类 似 ， 








要 





需要 在 列 出 上 一 个 菜单 中 包含 的 所 有 命令 后 ， 在 指定 行 数 后 的 B 列 中 输入 下 一 个 菜 


.Value = Rrray(" 莱 单 栏 名 称 "， "菜单 名 称 "， "命令 名 称 "， "ID"， "FaceID") 
.HorizontalAlignment = xlCenter 

End With 

Cells(2, 1).Value = cbr.Name 

lngRow = 2 


On Error Resume Next 

For Each ctl In cbr.Controls 
Cells(lngRow, 2) .Value = ctl.Caption 
For Each subctl In ctl.Controls 


Cells (lngRow, 3) .Value = subctl.Caption 
Cells (lngRow, 4) .Value = subct1.ID 
Cells (lngRow, 5) .Value = subctl.FaceId 


subctl .CopyFace 
If Err.Number = 
Err.Clear 
lngRow = 
Next subctl 
Next ct1 
Range ("Al:E1") .EntireColumn.AutoFit 
Application.ScreenUpdating = True 


0 Then 


lngRow + 1 


End Sub 
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ActiveSheet .Paste Cells (lngRow, 
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15.1.6 ”在 内 置 菜单 栏 中 添加 菜单 


可 以 使 用 菜单 栏 的 Controls 集合 的 Add 方法 在 菜单 栏 中 添加 菜单 。 由 于 菜单 是 一 个 单 击 后 
弹出 的 控件 ， 需要 将 Add 方法 中 的 Type 参数 设置 为 msoControlPopup。 
案例 15-6 ”在 内 置 菜单 栏 中 创建 新 的 菜单 
下 面 的 代码 在 工作 表 菜 单 栏 的 末尾 添加 一 个 菜单 ， 菜 单 名 称 通过 用 户 输入 的 内 容 指定 ， 如 入 
图 15-5 所 示 。 
Sub 在 内 置 菜单 栏 中 添加 菜单 () 


Dim cbr As CommandBar, strName Rs String 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
strName = InputBox ("请 输入 菜单 的 名 称 : ") 




















加 









































































If strName = "" Then Exit Sub 
cbr .Controls.Add (Type:=msoControlPopup, Temporary:=True) .Caption = strName 
End Sub 
Microsoft Excel x 
请 深入 菜单 的 名 称 : 
取消 
甩 8 深 音 
国 Microsof Excel - 实例 15-6 一 口 和 
党 ] 文 作 虽 ” 策 器 6， 视图 W， 插入 由 柯 式 (O) 工具 由 数据 (D) 窗口 WW) 帮助 H) Adobe PDF(B) 我 的 本 单 .8x 
PE EY 攻关 1?2 YIBZEUI 基 天 沽 = 可 


图 15-5 在 内 置 菜单 栏 中 添加 菜单 





在 Excel 2016 中 的 效果 如 图 15-6 所 示 ， 添 加 的 菜单 位 于 功能 区 的 “加 载 项 ”选项 卡 中 。 


开发 T 具 加载 项 





图 15-6 Excel 2016 中 的 效果 
可 以 通过 Add 方法 中 的 Before 参数 将 菜单 添加 到 菜单 栏 中 的 指定 位 置 , 而 不 总 是 菜单 栏 的 末尾 。 
案例 15-7 ”将 菜单 添加 到 内 置 菜单 栏 中 的 指定 位 置 
下 面 的 代码 将 用 户 指定 名 称 的 菜单 添加 到 工作 表 菜 单 栏 的 “文件 ”菜单 之 前 ， 这 是 因为 将 
Add 方法 的 Before 参数 设置 为 1， 如 图 15-7 所 示 。 
Sub 菜单 添加 到 内 置 菜单 栏 中 的 指定 位 置 () 


Dim cbr As CommandBar, strName Rs String 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
strName = InputBox ("请 输入 菜单 的 名 称 : ") 


























If strName = "" Then Exit Sub 
cbr.Controls.Add (Type:=msoControlPopup, Before:=1, Temporary:=True) .Caption = strName 
End Sub 








图 15-7 指定 新 菜单 的 位 置 





在 Excel 2016 中 无 任何 变化 ， 改 变 位 置 后 的 菜单 仍然 位 于 功能 区 的 “加 载 项 ”选项 卡 中 。 
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15.1.7 ”在 菜单 中 添加 菜单 项 
在 菜单 栏 中 添加 菜单 后 ， 需 要 在 菜单 中 添加 菜单 项 ， 并 为 菜单 项 指定 要 运行 的 VBA 过 程 ， 
才能 让 菜单 具有 实际 功能 。 在 菜单 中 添加 菜单 项 与 在 菜单 栏 中 添加 菜单 类 似 ， 仍 然 需要 使 用 
Controls 集合 的 Add 方法 ， 但 是 需要 将 Type 参数 设置 为 msoControlButton， 因 为 每 个 菜单 项 都 
是 一 个 可 执行 命令 。 
案例 15-8 ”在 内 置 菜单 中 添加 菜单 项 
下 面 的 代码 在 工作 表 菜 单 栏 “文件 ”菜单 中 的 “属性 ”命令 前 添加 一 个 名 为 “用 户 名 ”的 
菜单 项 ， 如 图 15-8 所 示 ， 选 择 该 菜单 项 将 会 在 对 话 框 中 显示 Excel 用 户 名 。 通 过 前 面 的 案例 可 
以 了 解 到 ，“ 属 性 ”命令 的 ID 是 750， 使 用 CommandBar 对 象 的 FindControl 方法 可 以 根据 ID 
准确 找到 “属性 ”命令 ， 然 后 通过 Index 属性 返回 “属性 ”命令 在 “文件 ”菜单 中 的 索引 号 ， 
之 后 就 可 以 在 “属性 ”命令 之 前 添加 所 需 的 菜单 项 。 本 例 为 添加 的 菜单 项 指定 了 3 个 属性 ， 使 
Caption 属性 指定 菜单 项 的 标题 ， 使 用 Style 属性 指定 菜单 项 的 显示 样式 ， 此 处 只 显示 菜单 项 
的 标题 ， 使 用 OnAction 属性 指定 在 选择 菜单 项 时 要 运行 的 VBA 过 程 的 名 称 。 
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图 15-8 在 内 置 菜单 中 添加 菜单 项 
代码 中 的 CommandBars("Worksheet Menu Bar").Controls(1) 返 回 一 个 CommandBarPopup 对 
象 ， 表 示 的 是 “文件 ” 菜单。 使 用 该 对 象 的 CommandBar 属性 将 会 返回 一 个 CommandBar 对 象 ， 
它 是 一 个 表示 “文件 ”菜单 的 命令 栏 。 只 有 CommandBarPopup 对 象 才 有 CommandBar 属性 ， 
其 他 如 CommandBarButton、CommandBarComboBox 等 对 象 都 没有 该 属性 。 
Sub 在 内 置 菜单 中 添加 菜单 项 () 


Dim cbr As CommandBar, ctl As CommandBarButton 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") .Controls (1) .CommandBar 
Set ctl = cbr.Controls.Add (Type:=msoControlButton, Before:=cbr.FindControl (ID:=750) . 
Index, Temporary:=True) 
With ctl 
.Caption = "用 户 名 " 
.Style = msoButtonCaption 
.OnAction = "显示 用 户 名 " 
End With 
End Sub 





























Sub 显示 用 户 名 () 
MsgBox Application.UserName 
End Sub 
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案例 15-9 ”在 自 定义 菜单 中 添加 菜单 项 
































3 个 菜单 项 ， 如 图 15-9 所 示 ， 选 择 不 同 的 菜单 项 
Sub 在 自 定义 菜单 中 添加 菜单 项 () 


Dim cbr As CommandBar, ctl As CommandBarPopup 





下 面 的 代码 在 工作 表 菜 单 栏 的 第 一 个 菜单 之 前 创建 了 一 个 新 菜单 ， 然 后 在 该 菜单 中 添加 了 
可 以 显示 不 同 的 信息 。 


Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
Set ctl = cbr.Controls.Add (Type:=msoControlPopup, Before:=1, Temporary:=True) 


With ctl 
.Caption = "我 的 菜单 " 
With .Controls.Add (msoControlButton) 
.Caption = "用 户 名 " 
.Style = msoButtonCaption 
.OnAction = "显示 用 户 名 " 
End With 
With .Controls.Add (msoControlButton) 
.Caption = "工作 簿 名 " 
.Style = msoButtonCaption 
.OnAction = "显示 工作 每 名 " 
End With 
With .Controls.Add (msoControlButton) 
.Caption = "工作 表 名 " 
.Style = msoButtonCaption 
.OnRction = "显示 活动 工作 表 名 " 
End With 
End With 
End Sub 


Sub 显示 用 户 名 () 
MsgBox Application.UserName 
End Sub 


Sub 显示 工作 簿 名 () 
MsgBox ActiveWorkbook.Name 
End Sub 


Sub 显示 活动 工作 表 名 () 
MsgBox ActiveSheet .Name 
End Sub 








国 Microsoft Excel - 究 列 15-9 


工作 逢 名 3 


同音 | 文件 四 。 坊 久 中 视 面 W) 插入 D 桥 X(0) IRD 歼 案 D) 定 DW) WD) AdobePDFB) -8 x 
i RS EN Ha 21? zjB xj 二 误 渤 洁 | 幸 | 下 -OA- 



















Ine ls D E F 6 














1 
2 


图 15-9 在 自 定义 菜单 中 添加 菜单 项 
在 Excel 2016 中 的 效果 如 图 15-10 所 示 ， 添 加 的 菜单 位 于 功能 











区 的 “加 载 项 ”选项 卡 中 。 














图 15-10 Excel 2016 中 的 效果 
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如 果 愿 意 ， 可 以 使 用 与 在 菜单 栏 中 添加 菜单 的 类 似 方法 ， 在 菜单 中 添加 子 菜单 ， 然 后 在 子 
菜单 中 添加 菜单 项 。 

案例 15-10 ”在 自 定义 菜单 中 添加 子 菜单 及 其 菜单 项 

下 面 的 代码 与 上 一 个 案例 类 似 ， 区 别 在 于 在 新 建 的 “我 的 菜单 ”菜单 中 包含 一 个 菜单 项 和 
一 个 弹出 式 子 菜单 ， 在 这 个 子 菜单 中 包含 两 个 菜单 项 ， 如 图 15-11 所 示 。 在 一 个 菜单 中 无 论 创 
建 几 级 子 菜单 ， 只 要 将 想 要 作为 弹出 子 菜单 的 控件 的 Type 设置 为 msoControlPopup， 就 可 以 在 
其 中 添加 所 需 的 菜单 项 。 











Sub 在 自 定义 菜单 中 添加 菜单 项 () 
Dim cbr As CommandBar, ctl As CommandBarPopup 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
Set ctl = cbr.Controls.Add (Type:=msoControlPopup, Before:=1, 
With ctl 
.Caption = "我 的 菜单 " 
With .Controls.Add (msoControlButton) 
.Caption = "用 户 名 " 
.Style = msoButtonCaption 
.OnAction = "显示 用 户 名 " 
End With 
With .Controls.Add (msoControlPopup) 
.Caption = "工作 簿 相关 " 
With .Controls.Add (msoControlButton) 
.Caption = "工作 筹 名 " 
.Style = msoButtonCaption 
.OnRction = "显示 工作 秒 名 " 


End With 
With .Controls.Add (msoControlButton) 
.Caption = "工作 表 名 " 


.Style = msoButtonCaption 
.OnRction = "显示 活动 工作 表 名 " 
End With 
End With 
End With 
End Sub 


Temporary:=True) 
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图 15-11 在 自 定义 菜单 中 添加 子 菜单 及 其 菜单 项 
如 果菜 单 中 包含 很 多 菜单 项 ， 可 以 根据 它们 的 功能 类 别 进行 分 组 ， 并 在 菜单 项 之 间 使 
线 产 生 视 觉 上 的 分 隔 效 果 。 只 需 将 表示 控件 对 象 的 BeginGroup 属性 设置 为 True, 即 可 在 指定 的 














控件 之 前 添加 分 组 标记 。 
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案例 15-11 为 菜单 中 的 菜单 项 分 组 





下 面 的 代码 为 自 定义 菜单 




















设置 为 True， 如 图 15-12 所 示 。 


Sub 为 菜单 中 的 菜单 项 分 组 () 
Dim cbr Rs CommandBa 
Set cbr = 
Set ctl = cbr.Contro 
With ctl 


rr ctl As CommandBarPopup 


Application.CommandBars ("Worksheet Menu Bar") 


ls.Add (Type:=msoControlPopup, Before:=1, Temporary:=T: 


.Caption = "我 的 菜单 " 


With .Controls.Rdd (msoControlButton) 


.Caption = "用 


户 名 " 


.Style = msoButtonCaption 
.OnAction = "显示 用 户 名 " 


End With 


With .Controls.Add (msoControlButton) 


.BeginGroup = 


True 


.Caption = "工作 簿 名 " 
.Style = msoButtonCaption 
.OnRction = "显示 工作 簿 名 " 


End With 


With .Controls.Add (msoControlButton) 
.Caption = "工作 表 名 " 
.Style = msoButtonCaption 
.OnRction = "显示 活动 工作 表 名 " 


End With 
End With 
End Sub 


国 Microsoft Excel - 实例 15-11 





























插入 页 面 布局 和 数据 证 网 视图 开发 I 具 加 载 项 。 Q 告诉 我 只 失 可 





£ v 





图 15-12 为 菜单 中 的 菜单 项 分 组 


15.1.8 ”使 用 Parameter 属性 传递 参数 值 
可 以 在 创建 的 菜单 项 中 存储 一 些 有 用 信息 , 这 样 就 可 以 将 不 同 菜单 项 的 OnAction 属性 设置 


为 同一 个 VBA 过 程 ， 但 是 又 可 


的 菜单 项 设置 了 分 组 , 本 例 将 第 二 个 菜单 项 的 BeginGroup 属性 


rue) 





以 根据 菜单 项 中 存储 的 不 同 信息 来 执行 同一 个 VBA 过 程 


F 的 不 


同 代码 ， 这 样 就 不 需要 为 包含 相似 代码 的 菜单 项 重复 编写 多 个 VBA 过 程 。 简 单 来 说 ， 可 以 让 


多 个 菜单 项 共享 同一 个 VBA 过 程 ， 通 过 控件 对 象 的 Parameter 属性 的 值 来 














除了 Parameter 属性 之 外 ， 还 可 以 使 用 控件 对 象 的 Tag 属性 存储 信息 。 


区 分 不 同 的 菜单 项 。 
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例 15-12 ”共享 同一 个 VBA 过 程 但 实现 不 同 功能 的 菜单 项 








面 的 代码 包含 两 个 Sub 过 程 ， 用 于 创建 自 定义 菜单 的 第 一 个 Sub 过 程 是 对 前 醒 


























案例 的 修 


改版 ,其 中 为 每 个 菜单 项 添加 了 Parameter 属性 ,并 将 表示 各 菜单 项 功能 的 描述 信息 设置 为 该 属 
性 的 值 。3 个 菜单 项 的 OnAction 属性 都 设置 为 同一 个 Sub 过 程 ， 但 是 可 以 通过 Parameter 属性 


的 值 加 
代码 进 




















以 区 分 。 本 例 代码 中 的 第 二 个 Sub 过 程 来 自 于 本 书 第 8 章 中 的 一 个 案例 ， 但 是 对 其 
行 了 适当 修改 ， 以 便 可 以 响应 用 户 对 菜单 项 的 选择 操作 ， 如 图 15-13 所 示 。 
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15-13 ”共享 同一 个 VBA 过 程 但 实现 不 同 功能 的 菜单 项 ( 续 ) 


使 用 CommandBars 集合 的 ActionControl 属性 可 以 引用 当前 正在 执行 操作 的 菜单 项 。 通 过 
该 菜单 项 的 Parameter 属性 中 的 值 可 以 确定 所 选择 的 菜单 项 中 包含 的 信息 , 该 信息 指定 了 要 操作 

















该 
的 图 形 对 象 的 类 型 , 本 例 分 为 3 种 : 所 有 图 形 、 自选 图 形 、 图 片 。 后 两 种 可 以 使 用 MsoShapeType 
党 
处 


量 中 的 msoAutoShape 和 msoPicture 表示 ， 然 后 利用 Shape 对 象 的 Type 属性 加 以 判断 并 进行 
里 。 而 “所 有 图 形 ” 则 需要 单独 进行 处 理 ， 因 为 MsoShapeType 常量 中 并 不 包含 “所 有 图 形 ” 





的 常量 值 。 由 于 每 个 菜单 项 的 Parameter 属性 中 包含 特定 的 信息 , 因此 程序 可 以 根据 所 选择 的 菜 





单项 对 不 同类 型 的 图 形 执行 选择 操作 。 
Sub 共享 同一 个 VBR 过 程 但 实现 不 同 功能 的 菜单 项 () 


Dim cbr As CommandBar, ctl As CommandBarPopup 





Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
Set ctl = cbr.Controls.Add(Type:=msoControlPopup, Before:=1, Temporary:=True) 
With ctl 


.Caption = "选择 图 形 对 象 " 

With .Controls.Add (msoControlButton) 
.Caption = "选择 所 有 图 形 " 
.Parameter = "所 有 图 形 " 

.OnAction = "选择 图 形 对 象 " 

End With 

With .Controls.Add (msoControlButton) 
.Caption = "选择 自选 图 形 " 
.Parameter = "自选 图 形 " 

.OnRction = "选择 图 形 对 象 " 

End With 

With .Controls.Add (msoControlButton) 
.Caption = "选择 图 片 " 

.Parameter = "图 片 " 
.OnRction = "选择 图 形 对 象 " 
End With 
End With 
End Sub 


和 
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Sub 选择 图 形 对 象 () 
Dim shp As Shape, intShapeCount Rs Integer 
Dim astrShapes() As String, lngType As Long 
Select Case Application.CommandBars.ActionControl.Parameter 
Case "所 有 图 形 " 
If ActiveSheet.Shapes.Count > 0 Then 
ActiveSheet.Shapes.SelectAll 
Exit Sub 
Else 
MsgBox "活动 工作 表 中 不 包含 指定 类 型 的 对 象 ! " 
Exit Sub 
End If 
Case "自选 图 形 " 
lngType = msoAutoShape 
Case "图 片 " 
lngType = msoPicture 
End Select 
For Each shp In ActiveSheet.Shapes 
If shp.Type = lngType Then 
intShapeCount = intShapeCount + 1 
ReDim Preserve astrShapes (1 To intShapeCount) 
astrShapes (intShapeCount) = shp.Name 
End If 
Next shp 
If intShapeCount > 0 Then 
ActiveSheet .Shapes.Range (astrShapes) .Select 
Else 
MsgBox "活动 工作 表 中 不 包含 指定 类 型 的 对 象 ! " 
End If 
End Sub 


昌 15.1.9 ”禁用 菜单 或 菜单 项 

如 果 想 要 禁用 菜单 栏 中 的 特定 菜单 ， 则 可 以 将 表示 该 菜单 的 控件 对 象 的 Enabled 属性 设置 
为 False。 下 面 的 代码 禁用 工作 表 菜 单 栏 中 的 “视图 ”菜单 ， 禁 用 后 的 菜单 呈 灰 色 显示 并 且 无 法 
操作 ， 如 图 15-14 所 示 。 


Application.CommandBars ("Worksheet Menu Bar") .Controls (3) .Enabled = False 
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图 15-14 禁用 “视图 ”菜单 
也 可 以 只 禁用 菜单 中 的 特定 菜单 项 而 不 是 整个 菜单 。 下 面 的 代码 禁用 工作 表 菜 单 栏 “ 视 图 ” 
菜单 中 的 第 3 个 命令 ， 如 图 15-15 所 示 。 


Application.CommandBars ("Worksheet Menu Bar") .Controls (3) .Controls (3) .Enabled = False 
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图 15-15 禁用 特定 的 菜单 项 
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还 可 以 禁用 整个 菜单 栏 。 下 面 的 代码 禁用 工作 表 菜 单 栏 ， 如 图 15-16 所 示 。 


Application.CommandBars ("Worksheet Menu Bar") .Enabled = False 
























































图 15-16 禁用 工作 表 菜 单 栏 


无 论 禁 用 的 是 菜单 栏 、 菜 单 还 是 菜单 项 ， 只 需 将 相应 对 象 的 Enabled 属性 设置 为 True， 即 
可 重新 启用 。 





15.1.10 ”隐藏 菜单 或 菜单 项 

如 果 想 要 禁用 菜单 栏 中 的 菜单 或 菜单 中 的 菜单 项 ， 则 可 以 将 表示 菜单 或 菜单 项 的 控件 对 象 中 
的 Visible 属 性 设置 为 False。 将 Visible 属性 设置 为 True 可 以 重新 显示 之 前 隐藏 的 菜单 或 菜单 项 。 
下 面 的 代码 隐藏 工作 表 菜 单 栏 中 的 “插入 ”菜单 ， 如 图 15-17 所 示 。 


Application.CommandBars ("Worksheet Menu Bar") .Controls (4) .Visible = False 
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图 15-17 隐藏 “插入 ”菜单 


下 面 的 代码 隐藏 工作 表 菜单 栏 “插入 ”菜单 中 的 “ 超 链接 ”菜单 项 ， 如 图 15-18 所 示 。 由 
于 “ 超 链 接 ” 菜 单项 位 于 “插入 ”菜单 的 最 底部 ， 因 此 “ 超 链 接 ” 菜 单项 是 “插入 ”菜单 中 拥 
有 最 大 索引 号 的 菜单 项 ， 可 以 使 用 Controls.Count 得 到 菜单 中 包含 的 菜单 项 总 数 ， 该 值 等 同 于 
菜单 中 最 后 一 个 菜单 项 的 索引 号 。 


With Application.CommandBars ("Worksheet Menu Bar") .Controls (4) 
.Controls (.Controls .Count) .Visible = False 
End With 
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名 二 
图 15-18 隐藏 “插入 ”菜单 中 的 “ 超 链接 ”菜单 项 ( 续 ) 


15.1.11 ” 重 置 菜单 


可 以 使 用 命令 栏 或 控件 对 象 的 Reset 方 法 将 命令 栏 或 控件 恢复 为 初始 状态 。 执行 Reset 方法 
后 ， 向 命令 栏 或 菜单 中 添加 的 所 有 自 定义 控件 都 会 被 删除 ， 命 令 栏 内 置 的 所 有 控件 也 会 恢复 到 
其 初始 状态 。 下 面 的 代码 将 工作 表 菜 单 栏 恢复 为 初始 状态 ， 其 中 的 所 有 自 定义 控件 都 会 被 删除 。 

Application.CommandBars ("Worksheet Menu Bar") .Reset 

注意 : 如 果 只 想 从 菜单 栏 中 删除 特定 的 菜单 ， 或 从 菜单 中 删除 特定 的 菜单 项 ， 那 么 应 该 使 
用 这 些 对 象 的 Delete 方法 而 不 是 Reset 方法 ， 因 为 一 旦 使 用 Reset 方法 进行 重 置 ， 将 会 丢失 所 有 
的 自 定 义 设置 。 

案例 15-13 ”只 在 包含 自 定义 控件 时 重 置 菜单 栏 
下 面 的 代码 只 对 包含 自 定义 控件 的 菜单 栏 进行 重 置 。 如果 菜单 栏 中 不 包含 任何 自 定义 控件 ， 
则 不 会 重 置 菜 单 栏 并 显示 预先 指定 的 提示 信息 。 为 了 确定 菜单 栏 中 是 否 包 含 自 定义 控件 ， 本 例 
使 用 CommandBar 对 象 的 FindControl 方法 查找 ID 为 1 的 控件 ， 因 为 自 定义 控件 的 ID 都 是 1。 
为 了 可 以 在 菜单 栏 中 的 菜单 及 其 所 有 级 别 的 子 菜单 中 查找 自 定义 控件 , 需要 将 FindControl 方法 
的 Recursive 参数 设置 为 True， 该 参数 的 默认 值 为 False。 

将 FindControl 方法 返回 的 结果 赋值 给 CommandBarControl 类 型 的 变量 , 然后 检查 该 变量 的 值 。 
如 果 找 不 到 自 定义 控件 ， 则 该 变量 的 值 为 Nothing， 此 时 显示 指定 的 提示 信息 ， 如 果 找 到 自 定义 控 
件 ， 则 该 变量 的 值 是 找到 的 自 定义 控件 ， 此 时 使 用 CommandBar 对 象 的 Reset 方法 重 置 菜单 栏 。 

Sub 只 在 包含 自 定义 控件 时 重 置 菜单 栏 () 


Dim cbr As CommandBar, ctl As CommandBarControl 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
Set ctl = cbr.FindControl (ID:=1, Recursive:=True) 
If ctl Is Nothing Then 
MsgBox "菜单 栏 中 不 包含 自 定义 控件 ， 不 需要 重 置 ! " 
Else 
cbr.Reset 
End If 
End Sub 
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15.1.12 ”删除 菜单 或 菜单 项 
可 以 使 用 表示 菜单 或 菜单 项 的 控件 对 象 的 Delete 方法 删除 菜单 或 菜单 项 。 下 面 的 代码 删除 首 
工作 表 菜 单 栏 中 名 为 “我 的 菜单 ”的 菜单 : 
Application.CommandBars ("Worksheet Menu Bar") .Controls ("我 的 菜单 ") .Delete 

如 果 在 工作 表 菜 单 栏 中 不 存在 名 为 “我 的 菜单 ”的 菜单 ， 运 行 上 面 的 代码 将 会 出 现 运 行 时 
错误 。 因 此 在 删除 菜单 或 菜单 项 之 前 ， 必 须 加 入 On Error Resume Next 语句 以 忽略 删除 不 存在 
对 象 时 导致 的 错误 ， 如 下 所 示 : 



























































On Error Resume Next 
Application.CommandBars ("Worksheet Menu Bar") .Controls ("我 的 菜单 ") .Delete 


在 定制 菜单 栏 时 , 为 了 避免 重复 添加 菜单 栏 中 已 经 存在 的 菜单 或 菜单 项 而 导致 运行 时 错误 ， 
应 该 在 添加 菜单 或 菜单 项 之 前 ， 先 预防 性 地 删除 同名 的 菜单 或 菜单 项 。 


案例 15-14 ”定制 菜单 和 菜单 项 时 的 防 错 设置 
硬 的 代码 在 工作 表 菜 单 栏 中 添加 了 一 个 名 为 “我 的 菜单 ”的 菜单 。 为 了 避免 重复 添加 多 
个 该 菜单 ， 在 执行 添加 菜单 的 代码 前 ， 先 使 用 Delete 方法 预防 性 地 删除 了 同名 菜单 。 如 果 删 除 
之 前 菜单 栏 中 不 存在 指定 菜单 ， 则 会 出 现 运 行 时 错误 ， 为 了 避免 错误 发 生 ， 因 此 加 入 了 防 错 语 
句 On Error Resume Next。 为 了 确保 删除 和 添加 的 菜单 具有 完全 相同 的 名 称 , 因此 在 Sub 过 程 的 
开头 使 用 Const 关键 字 声明 了 一 个 String 数据 类 型 的 常量 ， 用 于 存储 菜单 的 名 称 。 

Sub 定制 菜单 和 菜单 项 时 的 防 错 设置 () 


Dim cbr As CommandBar, ctl As CommandBarPopup 
Const strMenuName Rs String = "我 的 菜单 " 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
On Error Resume Next 
cbr .Controls (strMenuName) .Delete 
Set ctl = cbr.Controls.Add (Type:=msoControlPopup, Before:=1) 
ctl.Caption = strMenuName 
End Sub 


可 以 将 添加 菜单 和 菜单 项 以 及 删除 菜单 和 菜单 项 的 代码 放置 到 Workbook Open 〈 打 开工 作 
籍 ) 和 Workbook BeforeClose〈 关 闭 工作 短 ) 事件 过 程 中 ， 实 现在 打开 和 关闭 工作 适时 自动 添 
加 和 删除 菜单 和 菜单 项 。 
案例 15-15 ”使 用 事件 过 程 自 动 添加 和 删除 菜单 和 菜单 项 
下 面 的 代码 位 于 工作 夭 中 的 标准 模块 中 ， 用 于 在 工作 表 菜 单 栏 中 添加 新 的 菜单 和 菜单 项 。 
为 了 确保 添加 和 删除 菜单 时 可 以 使 用 完全 相同 的 名 称 ， 因 此 将 菜单 的 名 称 存储 在 模块 项 部 声明 
的 模块 级 常量 中 ， 同 一 个 模块 中 的 所 有 过 程 都 可 以 使 用 该 常量 中 存储 的 值 。 


Const strMenuName Rs String = "我 的 菜单 " 























































































































Sub 添加 菜单 和 菜单 项 () 
Dim cbr As CommandBar, ctl As CommandBarPopup 
Set cbr = Application.CommandBars ("Worksheet Menu Bar") 
On Error Resume Next 
Set ct1l = cbr.Controls.Add (Type:=msoControlPopup, Before:=1) 


With ctl 
.Caption = strMenuName 
.Controls.Add (msoControlButton) .Caption = "用 户 名 " 


.Controls.Add (msoControlButton) .Caption = "工作 每 名 " 
.Controls .Rdd (msoControlButton) .Caption = "工作 表 名 " 
End With 
End Sub 
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Sub 删除 菜单 和 菜单 项 () 

On Error Resume Next 

Application.CommandBars ("Worksheet Menu Bar") .Controls (strMenuName) .Delete 
End Sub 


下 面 的 代码 位 于 工作 簿 中 的 ThisWorkbook 模块 中 ， 在 打开 工作 簿 时 自动 执行 
Workbook_Open 事件 过 程 中 的 代码 ， 即 调用 名 为 “添加 菜单 和 菜单 项 ”的 Sub 过 程 。 在 关闭 工 
作 短 时 自动 执行 Workbook BeforeClose 事件 过 程 中 的 代码 ， 即 调用 名 为 “删除 菜单 和 菜单 项 ” 
的 Sub 过 程 。 


Private Sub Workbook Open() 
Call 添加 菜单 和 菜单 项 
End Sub 















































Private Sub Workbook BeforeClose (Cancel Rs Boolean) 
Call 删除 菜单 和 菜单 项 
End Sub 


注意 : 在 使 用 Workbook BeforeClose 事件 过 程 时 需要 注意 , 当 关 闭 未 保存 的 工作 簿 时 , Excel 
会 弹出 确认 保存 的 对 话 框 ， 此 时 如 果 单 击 “ 取 消 ”按钮 返回 工作 簿 ，Workbook_ BeforeClose 事 
件 过 程 仍然 会 调用 指定 的 Sub 过 程 来 删除 菜单 和 菜单 项 ， 第 12 章 介绍 了 解决 该 问题 的 方法 。 


15.1.13 ”创建 新 的 菜单 栏 


前 面 介绍 的 都 是 向 Excel 内 置 的 工作 表 菜 单 栏 中 添加 菜单 和 菜单 项 。 如 果 需 要 ， 也 可 以 创 
建新 的 菜单 栏 以 代替 Excel 默认 的 工作 表 菜 单 栏 ， 然 后 在 新 的 菜单 栏 中 添加 所 需 的 菜单 和 菜单 
项 。 可 以 将 Excel 内 置 菜单 栏 中 的 菜单 和 菜单 项 添加 到 用 户 创 建 的 新 菜单 栏 中 ， 这 样 可 以 减少 
创建 具有 相同 功能 的 菜单 和 菜单 项 的 编程 时 间 。 

创建 新 的 菜单 栏 需要 使 用 CommandBars 集 合 的 Add 方 法 , 创建 后 的 新 菜单 栏 可 以 替换 Excel 
默认 的 工作 表 菜 单 栏 。 

案例 15-16 ”创建 包含 两 个 菜单 的 菜单 栏 

下 面 的 代码 创建 了 一 个 包含 两 个 菜单 的 菜单 栏 ， 其 中 的 一 个 菜单 是 Excel 内 置 的 工作 表 菜 
E 栏 中 的 “文件 ”菜单 ， 该 菜单 中 的 菜单 项 与 Excel 内 置 的 “文件 ”菜单 中 的 菜单 项 相同 。 另 
一 个 菜单 是 自 定义 的 名 为 “帮助 ”的 菜单 ， 该 菜单 中 包含 “ 重 置 ” 和 “关于 ”两 个 菜单 项 。 在 
Excel 2016 中 创建 的 菜单 栏 如 图 15-19 所 示 。 
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这 是 一 个 新 的 荣 单 全 
由 尚 品 科技 创建 






































图 15-19 创建 的 新 菜单 栏 











开始 创建 新 的 菜单 栏 之 前 ， 先 调用 “删除 菜单 栏 ”过 程 删 除 可 能 存在 的 同名 菜单 栏 。 然 后 使 
CommandBars 集合 的 Add 方法 创建 一 个 新 的 菜单 栏 ， 将 其 命名 为 “我 的 菜单 栏 ”, 将 Add 方 
法 的 MenuBar 参数 设置 为 True, 表示 创建 的 是 菜单 栏 而 不 是 工具 栏 。 为 了 让 创建 的 菜单 栏 显示 在 
Excel 窗口 中 , 并 取代 Excel 内 置 的 工作 表 菜 单 栏 , 需要 将 创建 的 菜单 栏 的 Visible 属性 设置 为 True。 

接 下 来 向 新 菜单 栏 中 添加 两 个 菜单 ， 一 个 菜单 是 Excel 内 置 的 “文件 ”菜单 。 由 于 工作 表 
菜单 栏 中 的 “文件 ”菜单 的 ID 是 30002， 因 此 可 以 使 用 CommandBar 对 象 的 FindControl 方法 
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查找 具有 该 ID 的 控件 ， 并 将 其 复制 到 新 菜单 栏 中 。 新 菜单 栏 中 的 另 一 个 菜单 包含 两 个 菜单 项 ， 
使 用 前 面 介绍 过 的 技术 在 新 菜单 栏 中 添加 菜单 及 其 中 包含 的 菜单 项 ， 然 后 设置 菜单 项 的 相关 属 








性 ， 将 两 个 菜单 项 的 OnAction 属性 设置 为 同一 个 模块 中 的 另外 两 个 Sub 过 程 。 


Const strBarName Rs String = "我 的 菜单 栏 " 








Sub 创建 新 的 菜单 栏 () 
Dim cbr As CommandBar, ctl Rs CommandBarControl 
Call 删除 菜单 栏 
Set cbr = Application.CommandBars.Add (strBarName，MenuBar:=True) 
cbr.Visible = True 
Set ctl = 
ctl.Copy Application.CommandBars (strBarName) 
With cbr.Controls.Add (msoControlPopup) 


.Caption = "帮助 " 
With .Controls.Add (msoControlButton) 
.Caption = " 重 置 " 
.OnRction = "删除 菜单 栏 " 
End With 
With .Controls.Add (msoControlButton) 
.Caption = "关于 " 
.OnRction = "关于 " 
End With 
End With 
End Sub 
Sub 删除 菜单 栏 () 


On Error Resume Next 
Application.CommandBars (strBarName) .Delete 
On Error GoTo 0 

End Sub 


Sub 关于 () 
Dim strMsg As String 
strMsg = "这 是 一 个 新 的 菜单 栏 "” & vbCrLf 
strMsg = strMsg & "由 " & Application.UserName & "创建 " 
MsgBox strMsg，，" 关 于 " 
End Sub 








Application.CommandBars ("Worksheet Menu Bar") .FindControl (ID: 





=30002) 


在 Excel 2016 中 的 效果 如 图 15-20 所 示 ， 创 建 的 菜单 栏 位 于 功能 区 的 “加 载 项 ”选项 卡 中 。 


























一 
-下 
1 
图 15-20 ”Excel 2016 中 的 效果 
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15.2 定制 工具 栏 


pp 


在 Excel 2003 以 及 更 低 版 本 的 Excel 中 ， 








Excel 2007 以 及 更 高 版 本 的 Excel 中 , 工具 栏 与 菜单 栏 并 没有 太 多 
载 项 ”选项 卡 中 , 而 且 无 法 控制 工具 栏 的 大 小 和 位 置 ，Excel 早期 版 本 中 的 浮动 了 
因为 它们 都 是 CommandBar 对 象 ,本 节 将 介绍 在 VBA 


























栏 来 说 ，Excel 内 置 了 大 量 的 工具 栏 。 在 Excel 2003 以 及 和 


工具 栏 与 菜单 栏 的 位 置 和 外 观 完全 不 同 。 但 是 在 








区 别 ,它们 都 位 于 功能 
[ 具 栏 也 不 





区 的 “加 
有 























有 
> 

















国定 显示 在 菜单 栏 下 方 ， 或 悬浮 于 Excel 窗口 中 





栏 都 位 于 功能 区 的 “加 载 项 ” 


效 。 定 制 工具 栏 的 方法 与 定制 菜单 栏 类 似 ， 

中 定制 工具 栏 的 方法 。 

15.2.1 Excel 中 的 所 有 工具 栏 及 其 包含 的 控件 
相对 于 Excel 中 的 两 个 内 置 菜 和 

低 版 本 的 Excel 中 , 工具 栏 呈 长 条 形 外 观 ， 它 们 

的 任何 位 置 。 在 Excel 2007 或 更 高 版 本 的 Excel 中 ， 工 具 栏 与 菜 间 

选项 卡 中 。 
工具 栏 中 可 以 包含 多 种 类 型 的 控件 ， 除 了 包含 与 菜单 栏 中 相 





具 栏 中 称 为 按钮 ) 之 外 ， 在 了 
单 栏 、 工 具 栏 及 其 中 包含 的 控件 类 型 ， 以 及 它 人 
绍 过 ， 这 里 不 再 歼 述 。 








再 











[ 具 栏 中 通常 还 会 包含 文本 框 、 下 拉 列 表 、 组 合 框 等 控件 。 关 了 





与 定制 菜单 栏 的 方法 类 似 ,在 VBA 中 定制 工具 栏 也 需要 使 用 
种 方式 定制 工具 栏 ， 熟 悉 了 Excel 内 置 工具 栏 中 包含 的 控件 后 ， 可 以 将 这 些 控 
建 的 工具 栏 中 ， 从 而 减少 定制 工具 栏 时 的 了 


集合 。 无 论 以 向 
件 添 加 到 用 户 色 








同 的 弹出 菜单 和 菜单 项 (在 工 
F 菜 
] 在 VBA 中 对 应 的 对 象 等 内 容 已 在 15.1.1 节 介 























CommandBars 集合 与 Controls 





[ 作 量 。 





案例 15-17 ”获取 Excel 中 的 所 有 工具 栏 及 其 包含 的 控件 





下 | 
以 及 工具 栏 中 的 控件 的 名 称 、 类 型 .ID 和 FaceID 





面 的 代码 列 出 了 Excel 中 的 所 有 工具 栏 及 其 包含 的 控件 的 相关 信息 ， 包 括 工具 栏 的 名 称 


,如 图 15-21 所 示 。 本 例 代码 的 工作 原理 与 15.1.5 





节 中 的 案例 类 似 ， 只 不 过 本 例 中 需要 将 命令 栏 的 Type 属性 设置 为 msoBarTypeNormal， 以 判断 











命令 栏 的 类 型 是 否 是 工具 栏 。 


Sub 获取 Excel 中 的 所 有 工具 栏 及 其 包含 的 控件 () 


Dim cbr As CommandBar, ctl Rs CommandBarControl 


Dim lngRow As Long 


If Application.WorksheetFunction.CountA(Cells) <> 0 Then 


MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 


Exit Sub 
End If 
Application.ScreenUpdating = False 
With Range ("Al:El1") 


个 空 工作 表 ! " 


.Value = Array ("工具 栏 名 称 "，" 控 件 名 称 "，" 控 件 类 型 "，" 控 件 ID"，"FaceID") 


.HorizontalAlignment = xlCenter 
End With 
lngRow = 2 
On Error Resume Next 


For Each cbr In Application.CommandBars 
If cbr.Type = msoBarTypeNormal Then 


Cells (lngRow, 1) .Value = cbr. 


For Each ctl In cbr.Controls 


Name 


Cells (lngRow, 2) .Value = ctl.Caption 
Cells (lngRow, 3) .Value = ctl.Type 


"330。 


te Cells (lngRow, 5) 
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Cells (lngRow, 4) .Value = ct1.ID 
Cells (lngRow, 5) .Value = ct1.FaceId 
ctl.CopyFace 
If Err.Number = 0 Then ActiveSheet.Pas 
Err.Clear 
lngRow = lngRow + 1 
Next ctl 
End If 


Next cbr 
Range ("Al:E1") .EntireColumn.AutoFit 
Application.ScreenUpdating = True 








End Sub 
[| 日 惨 四 的 窒 例 15-17 - Excel 登录 国 一 口 

文件 开始 插入 页 面 布局 公式 数据 证 阅 视图 开发 I 具 Q 告诉 

M28 ~ 大 ~ 
A B C D E F 启 

1 工具 栏 名 称 控件 名 称 控件 类 型 控件 ID FacelD 

2 WordArt 艺术 字 (&W) 1 1031 雹 1031 

3 编辑 文字 (&X) 1 2094 址 2094 

4 艺术 字库 (&W) 1 160654 1606 

5 设置 对 象 格式 (&O) 1 962% 962 

6 艺术 字形 状 (&W) 12 1058 

7 艺术 字 字 母 高 度 相同 (&W) 1 1063Aa 1063 

8 艺术 宇 坚 排 文字 (&W) 1 1061 侣 1061 

9 艺术 字 对 齐 方式 (&W) 12 1059 

10 艺术 字 字 符 间距 (&W) 12 1060 

11 picture 从 文件 (&P) 1 2619[ 2619 

12 颜色 (&C) 12 1403 

13 增加 对 比 度 (&M) 1 1064® 1064 

14 降低 对 比 度 (&L) 1 1065@ 1065 

15 增加 亮度 (&M) 1 1066W1 1066 

16 降低 亮度 (&U) 1 1067 剖 1067 

17 裁 草 (&C) 1 732 我 732 

18 向 左旋 转 90*(&U) 1 199 从 199 = 
Sheet1 ® 1 


[ 具 栏 及 其 
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15.2.2 ”工具 栏 控件 的 常用 属性 

对 
用 的 属性 。 

Caption: 设置 控件 的 标题 。 

FaceID: 设置 控件 的 图 像 。 

OnAction: 设置 单 击 控件 时 运行 的 VBA 过 程 的 名 称 。 

Parameter: 设置 控件 的 额外 信息 ， 

Style: 设置 控件 的 样式 。 如 果 了 





的 所 有 了 














控件 常 
口 





DOODO 





bh 的 控件 的 对 





[有 具 栏 





以 便 传 递 给 VBA 过 程 并 进行 处 理 。 








包含 的 控件 


[ 具 栏 中 的 控件 设置 的 属性 与 为 菜单 或 菜单 项 设置 的 属性 类 似 ， 以 下 几 个 是 工具 栏 中 的 





象 类 型 是 CommandBarButton 或 


CommandBarComboBox ， 则 可 以 使 用 这 两 个 对 象 的 Style 属性 指定 控件 的 样式 。 


CommandBarButton 对 象 表示 的 控件 的 Style 属性 的 值 
15-4。 CommandBarComboBox 对 象 表示 的 控件 的 Style 
提供 ， 见 表 15-5。 

TooltipText: 设置 将 鼠标 指向 控件 时 显示 的 屏幕 提示 。 


由 MsoButtonStyle 常量 提供 , 见 表 
属性 的 值 由 MsoComboStyle 常量 








人 
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表 15-4 MsoButtonStyle 常量 











msoButtonAutomatic 





msoButtonIcon 


msoButtonCaption 








图 像 和 文本 ， 且 文本 位 于 图 像 的 右 侧 
右 侧 带 自动 换行 文本 的 图 
下 方 带 文本 的 图 像 

仅 文本 ， 且 文本 居中 并 自动 换行 
下 方 带 自 动 换行 文本 的 图 











msoButtonIconAndCaption 













msoButtonIconAndWrapCaption 





msoButtonIconAndCaptionBelow 





msoButtonWrapCaption 
msoButtonIconAndWrapCaptionBelow 














名 称 


msoComboNormal 





msoComboLabel 


15.2.3 引用 特定 的 工具 栏 和 控件 
引用 工具 栏 的 方法 与 引用 菜单 栏 类 似 ,也 可 以 通过 命令 栏 的 名 称 或 索引 号 从 CommandBars 








集合 中 引用 特定 的 命令 栏 。 由 于 不 同 版 本 的 Excel 中 的 命令 栏 的 索引 号 并 不 完全 相同 ， 因 此 最 
好 通过 名 称 来 引用 特定 的 命令 栏 。 下 面 的 代码 通过 名 称 来 引用 名 为 “常用 ”的 工具 栏 : 

Application.CommandBars ("Standard") 

在 Excel2016 中 “常用 ”工具 栏 的 索引 号 是 13， 因 此 如 果 想 要 在 Excel 2016 中 使 用 索引 号 
来 引用 “常用 ”工具 栏 ， 则 需要 使 用 如 下 代码 : 
Application.CommandBars (13) 
在 Excel 2003 中 “常用 ”工具 栏 的 索引 号 是 3， 因 此 如 果 想 要 在 Excel 2003 中 
来 引用 “常用 ”工具 栏 ， 则 需要 使 用 如 下 代码 : 

Application.CommandBars (3) 

提示 : 通过 使 用 CommandBar 对 象 的 Index 属性 可 以 返回 工具 栏 的 索引 号 ， 比 如 Application. 
CommandBars("Standard").Index 返回 的 是 13 或 3， 有 具体 值 取决 于 运行 代码 的 Excel 版 本 。 

与 从 菜单 栏 中 引用 菜单 或 从 菜单 中 引用 菜单 项 的 方法 类 似 ， 可 以 使 用 名 称 或 索引 号 引用 工 
具 栏 中 的 控件 。 下 面 的 两 行 代码 引用 的 都 是 “常用 ”工具 栏 中 的 第 2 个 控件 ， 即 “打开 ”按钮 。 


Application.CommandBars ("Standard") .Controls (2) 
Application.CommandBars ("Standard") .Controls ("打开 ") 


上 面 的 两 行 代 码 都 会 返回 一 个 CommandBarControl 对 象 ， 使 用 该 对 象 的 Caption 属性 可 以 
控件 的 名 称 ， 如 下 所 示 : 


Application.CommandBars ("Standard") .Controls (2) .Caption 


使 用 CommandBarControl 对 象 的 Type 属性 可 以 返回 表示 控件 类 型 的 值 ， 如 下 所 示 。“ 常 
”工具 栏 中 的 第 2 个 控件 的 Type 属性 返回 的 值 是 1， 即 msoControlButton 命令 按钮 。 


Application.CommandBars ("Standard") .Controls (2) .Type 
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使 用 索引 号 
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15.2.4 ”创建 新 的 工具 栏 


与 创建 新 的 菜单 栏 类 似 ， 创 建新 的 工具 栏 也 需要 使 用 CommandBars 集合 的 Add 方法 ， 但 
是 需要 将 该 方法 中 的 MenuBar 参数 设置 为 False 以 表示 创建 的 是 工具 栏 ， 由 于 该 参数 的 默认 值 
是 False， 因 此 在 创建 工具 栏 时 可 以 省 略 该 参数 。 在 Excel 2003 或 更 低 版 本 的 Excel 中 创建 工具 
栏 时 ， 还 可 以 通过 Add 方法 的 Position 参数 指定 工具 栏 的 位 置 ， 该 参数 的 值 由 MsoBarPosition 
常量 提供 ， 具 体 可 参考 15.1.2 节 。 创建 工具 栏 后 ， 必 须 将 其 Visible 属性 设置 为 True， 工 具 栏 才 
会 显示 在 Excel 窗口 中 ，Visible 属性 的 默认 值 为 False。 

创建 一 个 工具 栏 后 ， 可 以 使 用 工具 栏 的 Controls 集合 的 Add 方法 在 工具 栏 中 添加 控件 ， 比 
如 用 于 执行 命令 的 按钮 。 在 工具 栏 中 添加 一 个 控件 后 ， 还 需要 对 控件 的 属性 进行 设置 ， 否 则 创 
建 的 是 一 个 空白 的 控件 ， 该 控件 不 包含 任何 内 容 。 

案例 15-18 ”创建 包含 3 个 按钮 的 工具 栏 

下 面 的 代码 创建 了 一 个 名 为 “我 的 工具 栏 ” 的 工具 栏 ， 将 工具 栏 固定 显示 在 Excel 窗口 的 顶 画 
部 。 在 工具 栏 中 添加 了 3 个 按钮 ， 按 钮 的 名 称 为 “用 户 名 ”“ 工 作 敌 名 ”和 “工作 表 名 ”， 将 鼠 
标 指向 某 个 按钮 时 会 显示 屏幕 提示 ， 单 击 不 同 的 按钮 可 以 显示 不 同 的 信息 ， 如 图 15-22 所 示 。 
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图 15-22 创建 包含 3 个 按钮 的 工具 栏 


代码 中 使 用 CommandBars 集合 的 Add 方 法 创建 一 个 工具 栏 后 ,将 其 Visible 属性 设置 为 True 
以 使 其 显示 出 来 。 然 后 使 用 该 工具 栏 的 Controls 集合 的 Add 方法 创建 3 个 msoControlButton 类 
型 的 控件 ， 即 3 个 按钮 ， 并 为 每 个 按钮 设置 标题 、 要 运行 的 VBA 过 程 、 样 式 、 屏 幕 提示 4 个 
属性 。 

Sub 创建 包含 3 个 按钮 的 工具 栏 () 


Dim cbr As CommandBar 

Set cbr = Application.CommandBars.Add(" 我 的 工具 栏 ",，msoBarTop, ， True) 

cbr.Visible = True 

With cbr.Controls.Add (msoControlButton) 
.Caption = "用 户 名 " 
.OnAction = "显示 用 户 名 " 
.Style = msoButtonCaption 
.TooltipText = "显示 用 户 名 " 

End With 

With cbr.Controls.Add (msoControlButton) 
.Caption = "工作 簿 名 " 
.OnAction = "显示 工作 秒 名 " 
.Style = msoButtonCaption 
.TooltipText = "显示 工作 簿 名 " 

End With 

With cbr.Controls.Add (msoControlButton) 
.Caption = "工作 表 名 " 
.OnAction = "显示 活动 工作 表 名 " 
.Style = msoButtonCaption 
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.TooltipText = "显示 活动 工作 表 名 " 
End With 
End Sub 


Sub 显示 用 户 名 () 
MsgBox Application.UserName 
End Sub 


Sub 显示 工作 每 名 () 
MsgBox ActiveWorkbook.Name 
End Sub 


Sub 显示 活动 工作 表 名 () 
MsgBox RActiveSheet .Name 
End Sub 





在 Excel 2016 中 的 效果 如 图 15-23 所 示 ， 创 建 的 工具 栏 位 于 功能 区 的 “加 载 项 ”选项 卡 中 。 











插入 页面 布局 公式 ”数据 市 网 视 四 开发 TJ 具 。 加 载 项 9 告诉 雹 用 2 下 





用 户 名 工作 秒 名 2 


自 定义 工具 栏 入 


我 的 工具 栏 : 显示 活动 工作 表 名 


J13 和 v ~ 


图 15-23 Excel 2016 中 的 效果 








如 果 希 望 为 控件 设置 图 像 , 可 以 将 控件 的 FaceID 属性 设置 为 某 个 Excel 内 置 控件 的 FaceID， 


这 样 就 可 以 为 工具 栏 中 的 控件 添加 图 像 ， 从 而 实现 类 似 Excel 内 置 工 具 栏 中 的 控件 外 观 。 
案例 15-19 ”让 工具 栏 中 的 控件 以 图 像 显示 














下 面 的 代码 与 上 一 个 案例 类 似 ， 但 是 为 工具 栏 中 的 3 个 按钮 添加 了 图 像 ， 并 将 它们 设置 为 只 
显示 图 像 而 不 是 显示 标题 ， 如 图 15-24 所 示 。 这 两 项 设置 通过 控件 的 FaceID 和 Style 属性 实现 。 








Sub 让 工具 栏 中 的 控件 以 图 像 显示 () 
Dim cbr As CommandBar 
Set cbr = Application.CommandBars.Add(" 我 的 工具 栏 "，msoBarTop, ， True) 
cbr.Visible = True 
With cbr.Controls.Add (msoControlButton) 
.Caption = "用 户 名 " 
.FaceIld = 59 
.OnAction = "显示 用 户 名 " 
.Style = msoButtonIcon 
.TooltipText = "显示 用 户 名 " 
End With 
With cbr.Controls.Add (msoControlButton) 
.Caption = "工作 每 名 " 
.FaceId = 263 
.OnAction = "显示 工作 簿 名 " 
.Style = msoButtonIcon 
.TooltipText = "显示 工作 秒 名 " 
End With 
With cbr.Controls.Add (msoControlButton) 
.Caption = "工作 表 名 " 
.FaceId = 8 
.OnRction = "显示 活动 工作 表 名 " 
.Style = msoButtonIcon 
.TooltipText = "显示 活动 工作 表 名 " 
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End With 
End Sub 
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图 15-24 让 工具 栏 中 的 控件 以 图 像 显示 


如 果 想 要 同时 显示 按钮 的 标题 和 图 像 ， 则 可 以 将 Style 属性 设置 为 msoButtonIconAndCaption， 
如 图 15-25 所 示 。 
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图 15-25 同时 显示 控件 的 图 像 和 标题 


除了 在 工具 栏 中 添加 CommandBarButton (按钮 ) 类 型 的 控件 之 外 ,还 可 以 在 工具 栏 中 添加 
其 他 类 型 的 控件 ， 比 如 弹出 菜单 或 下 拉 列 表 。 工 具 栏 中 的 弹出 菜单 与 菜单 栏 中 的 菜单 使 用 的 都 
是 CommandBarPopup 对 象 。 下 拉 列 表 (msoControlDropdown ) 使 用 的 是 CommandBarComboBox 
对 象 ， 该 对 象 还 可 以 表示 文本 框 (msoControlEdit) 和 组 合 框 (msoControlComboBox) 。 


案例 15-20 ”创建 包含 下 拉 列 表 的 工具 栏 

下 面 的 代码 创建 了 一 个 包含 下 拉 列 表 的 工具 栏 ， 该 下 拉 列 表 中 包含 3 个 选项 ， 选 择 不 同 的 禹 3 且 就 
选项 可 以 选择 不 同类 型 的 图 形 对 象 , 如 图 15-26 所 示 。 用 于 实现 选择 图 形 对 象 的 代码 是 对 15.1.8 
节 中 的 案例 修改 后 的 版 本 。 为 了 创建 下 拉 列 表 类 型 的 控件 ， 需 要 将 Add 方法 中 的 Type 参数 设 
置 为 msoControlDropdown， 然 后 使 用 该 控件 的 AddItem 方法 向 其 中 添加 项 目 。 
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图 15-26 创建 包含 下 拉 列 表 的 工具 栏 
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图 15-26 创建 包含 下 拉 列 表 的 工具 栏 ( 续 ) 





在 名 为 “选择 图 形 对 象 ”的 Sub 过 程 中 ， 使 用 CommandBars 集合 的 ActionControl 属性 返 
当前 执行 操作 的 控件 。 使 用 下 拉 列 表 控 件 的 ListIndex 属性 返回 当前 选择 项 目的 索引 号 ,将 该 
值 作为 下 拉 列 表 控 件 的 List 属性 的 参数 ， 以 获取 在 下 拉 列 表 中 当前 选择 的 项 目 ， 然 后 在 Select 
Case 判断 结构 中 根据 所 选项 目 执行 不 同 的 选择 操作 。 

Sub 创建 包含 下 拉 列 表 的 工具 栏 () 


Dim cbr As CommandBar, ctl As CommandBarComboBox 
Set cbr = Application.CommandBars.Add ("我 的 工具 栏 ",，msoBarTop, ，True) 
Set ctl = cbr.Controls.Add (msoControlDropdown) 
With ctl 
.AddItem "所 有 图 形 " 
.AddItem "自选 图 形 " 
.AddItem "图 片 " 
.OnAction = "选择 图 形 对 象 " 
.TooltipText = "选择 图 形 对 象 的 类 型 " 
End With 
cbr.Visible = True 
End Sub 


Sub 选择 图 形 对 象 () 
Dim ctl Rs CommandBarControl 
Dim shp As Shape, intShapeCount As Integer 
Dim astrShapes() As String, lngType Rs Long 
Set ctl = Application.CommandBars.ActionControl 
Select Case ct1.List(ct1.ListIndex) 
Case "所 有 图 形 " 
If ActiveSheet .Shapes.Count > 0 Then 
RActiveSheet .Shapes.SelectRA1l1 
Exit Sub 
Else 
MsgBox "活动 工作 表 中 不 包含 指定 类 型 的 对 象 ! " 
Exit Sub 
End If 
Case "自选 图 形 " 
lngType = msoAutoShape 
Case "图 片 " 
lngType = msoPicture 
End Select 
For Each shp In ActiveSheet.Shapes 
If shp.Type = lngType Then 
intShapeCount = intShapeCount + 1 
ReDim Preserve astrShapes (1 To intShapeCount) 
astrShapes (intShapeCount) = shp.Name 
End If 
Next shp 
If intShapeCount > 0 Then 
RActiveSheet .Shapes.Range (astrShapes) .Select 
Else 
MsgBox "活动 工作 表 中 不 包含 指定 类 型 的 对 象 ! " 
End If 
End Sub 
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15.2.5 ”在 内 置 工具 栏 中 添加 控件 


如 果 不 想 创建 新 的 工具 栏 ， 也 可 以 在 Excel 内 置 的 工具 栏 中 添加 所 需 的 控件 。 这 样 可 以 省 
略 使 用 CommandBars 集合 的 Add 方法 创建 工具 栏 的 步骤 ， 而 直接 使 用 CommandBars 集合 引用 
特定 的 工具 栏 ， 然 后 使 用 工具 栏 的 Controls 集合 的 Add 方法 在 工具 栏 中 添加 控件 。 


案例 15-21 在 内 置 工具 栏 中 添加 自 定义 控件 
下 面 的 代码 在 Excel 内 置 的 “常用 ”工具 栏 中 添加 了 一 个 名 为 “用 户 名 ”的 按钮 ， 该 按钮 
位 于 该 工具 栏 的 第 一 个 位 置 ， 如 图 15-27 所 示 。 添加 的 按钮 所 使 用 的 图 像 来 自 于 ID 为 682 的 控 
件 的 图 像 。 使 用 CommandBars 集合 的 FindControl 方法 找到 ID 为 682 的 控件 , 然后 使 用 控件 的 
CopyFace 方法 将 控件 的 图 像 复 制 到 剪贴 板 中 ， 之 后 使 用 添加 的 新 控件 的 PasteFace 方法 将 剪贴 
板 中 的 图 像 粘贴 到 该 控件 上 作为 其 图 像 .为 了 避免 出 现 由 于 复制 图 像 失败 而 导致 的 运行 时 错误 ， 
此 在 执行 CopyFace 方法 前 加 入 了 防 错 语句 ,并 在 该 方法 之 后 检查 Err 对 象 中 是 否 包含 错 误 号 ， 
如 果 是 则 退出 程序 。 
Sub 在 内 置 工具 栏 中 添加 控件 () 
Dim cbr Rs CommandBar, ctl As CommandBarButton 
Set cbr = Application.CommandBars ("Standard") 
Set ctl = Application.CommandBars.FindControl (ID:=682) 
On Error Resume Next 
ctl1.CopyFace 
If Err.Number <> 0 Then Exit Sub 
With cbr.Controls.Add (msoControlButton, , , 1, True) 
.Caption = "用 户 名 " 
.OnAction = "显示 用 户 名 " 

















































































































.PasteFace 
.Style = msoButtonIconAndCaption 
End With 
End Sub 
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图 15-27 在 Excel 内 置 工具 栏 中 添加 控件 


15.2.6 ”禁用 工具 栏 中 的 控件 
可 以 将 控件 对 象 的 Enabled 属性 设置 为 False 来 禁用 特定 控件 , 禁用 后 的 控件 呈 浅 灰色 显示 六 



























且 无 法 单 击 。 下 面 的 代码 禁用 了 “常用 ”工具 栏 中 的 第 2 个 按钮 ， 如 图 15-28 所 示 。 


Application.CommandBars ("Standard") .Controls (2) .Enabled = False 








中 .二 加 中 为 内- 关闭 @ 3 志和 之 | 区 识 | 六 习 允 -了 





0% 0 
图 15-28 禁用 “常用 ”工具 栏 中 的 第 2 个 按钮 


将 禁用 的 控件 的 Enabled 属性 设置 为 True， 即 可 使 该 控件 变 为 可 用 。 





























15.2.7 ” 重 置 工具 栏 


可 以 使 用 工具 栏 或 控件 对 象 的 Reset 方法 将 工具 栏 或 工具 栏 中 的 控件 恢复 为 初始 状态 。 执 
行 Reset 方法 后 ， 向 工具 栏 中 添加 的 所 有 自 定义 控件 都 会 被 删除 ， 工 具 栏 内 置 的 所 有 控件 也 会 














下 





Excel VBA 编程 实战 宝典 




















恢复 到 其 初始 状态 。 下 面 的 代码 将 “常用 ”工具 栏 恢 复 为 初始 状态 ， 其 中 的 所 有 自 定义 控件 都 
会 被 删除 。 

Application.CommandBars ("Standard") .Reset 

注意 : 如 果 只 想 从 工具 栏 中 删除 特定 的 控件 ， 则 应 该 使 用 Delete 方法 而 不 是 Reset 方法 ， 
因为 一 旦 使 用 Reset 方 法 进行 重 置 ， 将 会 丢失 所 有 的 自 定义 设置 。 


15.2.8 ”删除 工具 栏 中 的 控件 和 工具 栏 


可 以 使 用 工具 栏 的 Controls 集合 通过 控件 的 名 称 或 索引 号 来 引用 要 删除 的 控件 ， 然 后 使 用 
控件 对 象 的 Delete 方法 将 其 删除 。 如 果 要 删除 的 控件 不 存在 ， 在 执行 Delete 方法 时 将 会 出 现 运 
行 时 错误 ， 因 此 在 删除 控件 之 前 应 该 加 入 防 错 语句 On Error Resume Next， 如 下 所 示 : 

人 ") .Controls ("用 户 名 ") .Delete 

案例 15-22 ”删除 特定 工具 栏 中 的 所 有 自 定义 控件 

下 面 的 代码 删除 “常用 ”工具 栏 中 的 所 有 自 定义 控件 。 在 For Each 循环 结构 中 遍历 “常用 ” 
工具 栏 中 的 每 一 个 控件 ， 检 查 控件 的 BuiltIn 属性 的 值 。 如 果 该 属性 为 False， 则 说 明 当前 控件 
不 是 Excel 的 内 置 控件 ， 此 时 就 执行 Delete 方法 将 自 定义 控件 删除 。 
Sub 删除 特定 工具 栏 中 的 所 有 自 定义 控件 () 


Dim ctl As CommandBarControl, ctls As CommandBarControls 
Set ctls = Application.CommandBars ("Standard") .Controls 
For Each ctl In ctls 
If Not ctl.BuiltIn Then ctl.delete 
Next ctl 
End Sub 


案例 15-23 ”删除 所 有 工具 栏 中 的 所 有 自 定义 控件 
下 面 的 代码 删除 所 有 工具 栏 中 的 所 有 自 定义 控件 。 在 外 层 For Each 循环 结构 中 遍历 Excel 
中 的 每 一 个 命令 栏 ， 通 过 检查 命令 栏 的 Type 属性 来 判断 是 否 是 工具 栏 (msoBarTypeNormal) 。 
如 果 是 则 进入 内 层 For Each 循环 结构 ,然后 遍历 当前 工具 栏 中 的 每 一 个 控件 ,检查 控件 的 Builtm 
属性 的 值 。 如 果 该 属性 为 False， 则 说 明 当 前 控件 不 是 Excel 的 内 置 控件 ， 此 时 就 执行 Delete 方 
法 将 自 定义 控件 删除 。 
Sub 删除 所 有 工具 栏 中 的 所 有 自 定义 控件 () 
Dim cbr As CommandBar, ctl Rs CommandBarControl 
For Each cbr In Application.CommandBars 
If cbr.Type = msoBarTypeNormal Then 
For Each ctl In cbr.Controls 
If Not ct1.BuiltIn Then ct1.Delete 
Next ctl 
End If 


Next cbr 
End Sub 


如 果 要 删除 整个 工具 栏 ， 则 可 以 使 用 CommandBar 对 象 的 Delete 方法 。 只 能 删除 用 户 创建 
的 自 定义 工具 栏 ， 如 果 试 图 删除 Excel 内 置 的 工具 栏 ， 或 删除 不 存在 的 自 定义 工具 栏 ， 将 会 出 
现 运行 时 错误 , 因此 在 删除 工具 栏 之 前 应 该 加 入 防 错 语 句 On Error Resume Next。 通常 应 该 在 创 
建新 的 工具 栏 之 前 ， 先 删除 可 能 存在 的 同名 工具 栏 ， 以 避免 出 现 运 行 时 错误 。 

案例 15-24 ”定制 工具 栏 时 的 防 错 设置 

下 面 的 代码 在 创建 名 为 “我 的 工具 栏 ” 的 工具 栏 之 前 ， 先 预防 性 地 删除 该 工具 栏 。 在 执行 
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删除 操作 之 前 加 入 了 On Error Resume Next 语句 ， 以 避免 当前 不 存在 该 工具 栏 时 出 现 的 运行 时 


错误 。 


Sub 定制 工具 栏 时 的 防 错 设置 () 


Dim cbr Rs CommandBar, ctl As CommandBarComboBox 
Const strToolName Rs String = "我 的 工具 栏 " 
On Error Resume Next 
Application.CommandBars (strToolName) .Delete 
On Error GoTo 0 
Set cbr = Application.CommandBars.Add(strToolName, msoBarTop, , True) 
Set ctl = cbr.Controls.Add (msoControlDropdown) 
With ctl 
.AddItem "所 有 图 形 " 
.RddItem "自选 图 形 " 
.RddItem "图 片 " 
.OnAction = "选择 图 形 对 象 " 
.TooltipText = "选择 图 形 对 象 的 类 型 " 
End With 
cbr.Visible = True 


End Sub 


快捷 菜单 是 右 击 时 弹出 的 菜单 ， 其 中 包含 的 命令 与 鼠标 右 击 的 位 置 有 关 。 换 句 话说 ， 右 击 


15.3 定制 快捷 菜单 

















的 位 置 不 同 ， 所 弹出 的 快捷 菜单 中 将 会 包含 不 同 的 命令 。 因 此 ， 也 可 以 将 快捷 菜单 称 为 上 下 文 
菜单 。 与 菜单 栏 和 工具 栏 不 同 ， 快 捷 菜 单 在 不 同 的 Excel 版 本 中 具有 几乎 相同 的 显示 方式 。 本 
节 将 介绍 在 VBA 中 定制 快捷 菜单 的 方法 。 





15.3.1 





Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 


Excel 中 包含 大 量 的 快捷 菜单 ， 它 们 响应 用 户 在 不 同 环境 下 的 鼠标 右 击 操作 。 在 VBA 中 定 


制 菜单 栏 时 ， 可 以 在 内 置 快捷 菜单 中 添加 或 删除 子 菜单 和 菜单 项 ， 也 可 以 创建 新 的 快捷 菜单 。 
无 论 以 何 种 方式 定制 快捷 菜单 ， 了 解 Excel 内 置 快捷 菜单 的 名 称 及 其 中 包含 的 控件 ， 对 以 后 定 
制 快捷 菜单 将 会 有 所 帮助 。 

案例 15-25 ”获取 Excel 中 的 所 有 快捷 菜单 的 相关 信息 

下 面 的 代码 列 出 了 Excel 中 的 所 有 快捷 菜单 的 索引 号 、 名 称 以 及 是 否 是 内 置 快捷 菜单 ， 如 























图 15-29 所 示 。 本 例 代 码 与 15.1.1 节 中 案例 15-1 类 似 ， 区 别 是 在 判断 命令 栏 的 类 型 时 ， 将 Type 








属性 的 值 设 置 为 msoBarTypePopup， 以 确定 命令 栏 是 否 是 快捷 菜单 。 同 时 将 命令 栏 的 Builtm 属 
性 的 值 作为 Select Case 判断 结构 检测 的 条 件 ， 如 果 为 True 则 说 明快 捷 菜 单 是 内 置 的 ， 如 果 为 
False 则 说 明快 捷 菜单 不 是 内 置 的 ， 即 用 户 自 定 义 快 捷 菜 单 。 

Sub 获取 Excel 中 的 所 有 快捷 菜单 的 相关 信息 () 





Dim cbr As CommandBar, lngRow As Long 

If Application.WorksheetFunction.CountA(Cells) <> 0 Then 
MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工作 表 ! " 
Exit Sub 

End If 

With Range ("Al:C1") 
-Value = Rrray(" 索 引号 "， "名称 "， "是 否 内 置 ") 


.HorizontalAlignment = xlCenter 


a 
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End With 

lngRow = 2 

For Each cbr In Application.CommandBars 

If cbr.Type = msoBarTypePopup Then 
Cells (lngRow, 1) .Value = cbr.Index 
Cells (lngRow, 2) .Value = cbr.Name 
Select Case cbr.BuiltIn 
Case True 








Cells (lngRow，3) .Value = "内 置 " 
Case False 
Cells (lngRow，3) .Value = " 自 定 义 " 
End Select 
lngRow = lngRow + 1 
End If 
Next cbr 
Range ("Al:C1") .EntireColumn.AutoFit 
End Sub 
] 日 民 谭 目 办 : 窒 例 15-25 - Excel 强加 一 口 
开始 。 插入 页面 布局 ”公式 。 数据 。 市 网。 视 四 。 开发 I 具 

p27 ~ 大 > 

A B C D 5 F G H 
1 | 索引 号 名 称 是 否 内 置 
2 12 Cell 内 置 
3 23 PivotChart Menu 内 置 
4 40 Workbook tabs 内 置 
5 41 Column 内 置 
6 42 Row 内 置 
7 43 Cell 内 置 
8 44 Column 内 置 
9 45 Row 内 置 
10 46 ply 内 置 
11 47 XLM Cell 内 置 
12 48 Document 内 置 
13 49 Desktop 内 置 
14 50 Nondefault Drag and Drop 。” 内置 
15 51 AutoFill 内 置 
16 52 Button 内 置 
17 53 Dialog 内 置 
18 54 Series 内 置 - 

Sheet1 D ] 








加 四- 一 一 一 一 一 一 + 100% 


图 15-29 获取 Excel 中 的 所 有 快捷 菜单 的 相关 信息 


案例 15-26 ”获取 Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 

下 面 的 代码 列 出 了 Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 的 名 称 和 ID, 如 图 15-30 所 示 。 
本 例 代码 与 15.1.3 节 中 的 案例 基本 相同 , 唯一 区 别 是 在 判断 命令 栏 的 类 型 时 , 将 Type 属性 的 值 
设置 为 msoBarTypePopup， 以 确定 命令 栏 是 否 是 快捷 菜单 。 

Sub 获取 Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 () 


Dim lRow As Long 

Dim cbr Rs CommandBar 

Dim ctl As CommandBarControl 

If Application.WorksheetFunction.CountA(Cells) <> 0 Then 
MsgBox "当前 工作 表 中 不 为 空 ， 请 选择 一 个 空白 工作 表 " 
Exit Sub 

End If 

With Range ("Al:C1") 
.Value = Array ("快捷 菜单 名 称 "，" 控 件 名 称 "，" 控 件 ID") 


.Font.Bold = True 
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.HorizontalAlignment = xlCenter 
End With 
lRow = 2 
For Each cbr In CommandBars 
If cbr.Type = msoBarTypePopup Then 
Cells (lRow, 1) .Value = cbr.Name 
For Each ctl In cbr.Controls 
Cells (lRow, 2) .Value ct1.Caption 





Cells (lRow, 3) .Value 如 
lRow = lRow + 1 
Next ctl 
End If 
Next cbr 
Range ("Al:C1") .EntireColumn.AutoFit 
End Sub 
口 日 民 订 目的: 窒 例 15-26 - Excel 登录 国 一 口 
65 二 开始 插入 页面 布局 公式 数据 市 网” 视图 。 开发 共 。 Q 告 我 只 # 节 
K27 大 v 
A B C D E FE 
1 快捷 菜单 名 称 控件 名 称 控件 ID 
2 Cell 砚 切 (&T) 21 
3 复制 (&C) 19 
4 粘贴 (&P) 22 
5 选择 性 粘贴 (&S) 21437 
6 粘贴 表格 (&pP) 3624 
7 智能 查找 (&L) 25536 
8 插入 单元 格 (&E) 295 
9 插入 单元 格 (&E) 27690 
10 删除 (&D) 292 
11 清除 内 容 (&N) 3125 
12 快速 分 析 (&Q) 24508 
13 迷你 图 (&A) 31623 
14 第 选 (&E) 31402 
15 排序 (&O) 31435 
16 插入 批注 &M) 2031 
17 删除 批注 (&M) 1592 
18 显示 /隐藏 批注 (&O) 1593 = 
Sheet1 中 4 » 











图 15-30 ”获取 Excel 中 的 所 有 快捷 菜单 及 其 包含 的 控件 





提示 : 在 快捷 菜单 中 包含 两 组 Cell、Row、Column， 第 一 组 是 “普通 ”视图 中 的 快捷 菜单 ， 
二 组 是 “分 页 预览 ”视图 中 的 快捷 菜单 。 


15.3.2 在 内 置 快捷 菜单 中 添加 子 菜单 和 菜单 项 


与 在 菜单 栏 中 为 菜单 添加 菜单 项 的 方法 类 似 ， 也 可 以 在 快捷 菜单 中 添加 子 菜单 和 菜单 项 。 首 
先 需 要 使 用 上 一 节 列 出 的 快捷 菜单 的 名 称 从 CommandBars 集合 中 引用 特定 的 快捷 菜单 ， 然 后 在 
快捷 菜单 中 添加 新 的 子 菜单 和 菜单 项 ， 并 指定 将 子 菜单 和 菜单 项 添加 到 快捷 菜单 的 哪个 位 置 上 。 

案例 15-27 ”在 内 置 快捷 菜单 中 添加 菜单 项 
下 面 的 代码 将 “全 部 清除 ”命令 添加 到 在 “普通 ”视图 下 右 击 工作 表单 元 格 弹 出 的 快捷 荣光 
EE 中 的 “清除 内 容 ” 命 令 的 下 方 ， 如 图 15-31 所 示 ， 这 样 就 可 以 在 使 用 鼠标 右 击 单元 格 时 清除 
元 格 中 的 内 容 和 格式 ， 而 不 必 单 击 功能 区 中 的 “开始 ”| “编辑 ”| “清除 ”按钮 ， 然 后 选择 “全 
部 清除 ”命令 来 执行 该 操作 。 
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多 二 #0 





图 15-31 在 内 置 快捷 菜单 中 添加 菜单 项 





首先 将 对 Cell 快捷 菜单 的 引用 赋值 给 cbr 变量 , 然后 使 用 FindControl 方法 在 该 快捷 菜单 中 


查找 ID 为 3125 的 菜单 项 ， 该 ID 对 应 的 菜单 项 是 “清除 内 容 ”。 找 到 后 使 用 








Index 属性 返回 该 











菜单 项 在 Cell 快捷 菜单 中 的 索引 号 。 由 于 要 将 新 的 菜单 项 添加 到 “清除 内 容 ” 菜 单项 的 下 方 ， 




















此 需要 将 “清除 内 容 ” 菜 单项 的 索引 号 +1， 以 获得 该 菜单 项 下 方 的 菜单 项 





的 索引 号 。 然 后 将 


加 1 后 的 索引 号 指定 给 Add 方法 中 的 Before 参数 ， 相 当 于 在 “清除 内 容 ” 菜 单项 下 一 个 菜单 项 











之 前 放置 新 添加 的 菜单 项 ， 这 样 就 可 以 使 新 的 菜单 项 位 于 “清除 内 容 ” 菜单 项 的 下 方 。 由 于 “全 





部 清除 ”命令 的 ID 是 1964， 因 此 需要 将 其 指定 给 Add 方法 的 ID 参数 。 
Sub 在 内 置 快捷 菜单 中 添加 菜单 项 () 


Dim cbr As CommandBar, ctl As CommandBarButton 
Dim lngIndex As Long 
Set cbr = Application.CommandBars ("Cell") 
lngIndex = cbr.FindControl (ID:=3125) .Index 
Set ctl = cbr.Controls.Add (msoControlButton, 1964, , lngIndex 
ct1.Caption = "全 部 清除 " 
End Sub 


案例 15-28 ”在 内 置 快捷 菜单 中 添加 “转换 大 小 写 ” 子 菜单 及 其 菜单 项 











于 及 True) 


下 面 的 代码 在 Cell 快捷 菜单 中 添加 了 一 个 名 为 “转换 大 小 写 ” 的 子 菜单 ， 在 该 子 菜单 中 包 




















含 3 个 菜单 项 ， 用 于 转换 选择 的 单元 格 区 域 中 的 英文 大 小 写 ， 如 图 15-32 所 示 。 在 快捷 菜单 中 











添加 子 菜单 和 菜单 项 的 方法 与 在 菜单 栏 中 的 操作 相同 。 
































在 OnAction 指定 的 用 于 完成 菜单 项 实际 功能 的 Sub 过 程 中 , 首先 检查 当前 选区 的 单元 格 数 














量 是 否 不 止 一 个 , 如 果 是 则 使 用 Range 对 象 的 SpecialCells 方法 定位 所 有 包含 

















内 容 的 单元 格 , 并 





将 返回 的 这 些 单元 格 赋值 给 mg 变量 ， 如 果 选 区 中 只 包含 一 个 单元 格 ， 则 将 选区 赋值 给 mg 变 
量 。 然 后 在 Select Case 判断 结构 中 通过 检查 控件 中 设置 的 Parameter 属性 的 值 ， 以 便 确 定 当前 











正在 处 理 的 是 哪个 控件 并 执行 相应 的 大 小 写 转换 操作 。 
Sub 在 内 置 快捷 菜单 中 添加 菜单 项 () 


Dim cbr As CommandBar, ctl As CommandBarPopup 
Set cbr = Application.CommandBars ("Cell") 








Set ct1l = cbr.Controls.Add (Type:=msoControlPopup, Temporary:=True) 


With ctl 
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15-32 在 内 置 快捷 菜单 中 添加 子 菜单 和 菜单 项 
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15.3.3 ”禁用 快捷 菜单 和 菜单 项 


a 
如 果 想 要 禁用 特定 的 快捷 菜单 ， 则 可 以 将 该 快捷 菜单 的 Enabled 属性 设置 为 False。 下 面 的 
代码 禁用 Cell 快捷 菜单 ， 禁 用 之 后 右 击 工作 表 中 的 单元 格 时 不 会 再 弹出 该 快捷 菜单 。 
Application.CommandBars ("Cell") .Enabled = False 
也 可 以 使 用 类 似 的 方法 禁用 快捷 菜单 中 的 菜单 项 ， 只 需 将 要 禁用 的 菜单 项 的 Enabled 属性 
设置 为 False 即 可 。 下 面 的 代码 禁用 Cell 快捷 菜单 中 的 “ 剪 切 ” 和 “复制 ”命令 ， 禁 用 后 的 菜 
单项 呈 灰 色 显示 且 无 法 选择 ， 如 图 15-33 所 示 。 


Application.CommandBars ("Cell") .Controls (1) .Enabled = False 
Application.CommandBars ("Cell") .Controls (2) .Enabled = False 
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图 15-33 禁用 Cell 快捷 菜单 中 的 前 两 个 命令 
如 果 要 使 被 禁用 的 快捷 菜单 或 菜单 项 重新 变 为 可 用 ， 则 可 将 相应 的 快捷 菜单 或 菜单 项 的 


























Enabled 属性 设置 为 True。 


案例 15-29 ”禁用 Excel 中 的 所 有 快捷 菜单 
下 面 的 代码 禁用 了 Excel 中 的 所 有 快捷 菜单 。 
Sub 禁用 Excel 中 的 所 有 快捷 菜单 () 


Dim cbr As CommandBar 
For Each cbr In Application.CommandBars 
If cbr.Type = msoBarTypePopup Then 
cbr.Enabled = False 
End If 
Next cbr 
End Sub 


案例 15-30 ”禁用 所 有 包含 自 定义 菜单 项 的 快捷 菜单 

下 面 的 代码 将 禁用 所 有 包含 自 定义 菜单 项 的 快捷 菜单 。 

为 了 确定 快捷 菜单 中 是 否 包含 自 定 义 菜单 项 ， 本 例 使 用 CommandBar 对 象 的 FindControl 
方法 查找 ID 为 1 的 控件 ， 因 为 自 定义 菜单 项 的 ID 都 是 1。 为 了 可 以 在 快捷 菜单 中 的 子 菜单 
中 查找 自 定 义 菜单 项 ， 需 要 将 FindControl 方法 的 Recursive 参数 设置 为 True。 将 FindControl 
方法 返回 的 结果 赋值 给 CommandBarControl 类 型 的 变量 ， 然 后 检查 该 变量 的 值 。 如 果 找 到 自 
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定义 控件 ， 则 该 变量 的 值 就 不 是 Nothing， 此 时 将 快捷 菜单 的 Enabled 属性 设置 为 False 以 将 




















Sub 禁用 所 有 包含 自 定义 菜单 项 的 快捷 菜单 () 
Dim cbr As CommandBar, ctl Rs CommandBarControl 
For Each cbr In Application.CommandBars 
If cbr.Type = msoBarTypePopup Then 
Set ctl = cbr.FindControl (ID:=1, Recursive:=True) 
If Not ctl Is Nothing Then cbr.Enabled = False 
End If 
Next cbr 
End Sub 


15.3.4 删除 快捷 菜单 中 的 菜单 项 和 快捷 菜单 


可 以 使 用 快捷 菜单 的 Controls 集合 通过 控件 的 名 称 或 索引 号 来 引用 要 删除 的 内 置 菜 单项 或 
户 自 定义 的 菜单 项 ， 然 后 使 用 控件 对 象 的 Delete 方法 将 其 删除 。 下 面 的 代码 删除 Cell 快捷 菜 
单 中 的 第 一 个 菜单 项 : 

Application.CommandBars ("Cell") .Controls (1) .Delete 
如 果 要 删除 的 菜单 项 不 存在 ， 在 执行 Delete 方法 时 将 会 出 现 运行 时 错误 ， 因 此 在 删除 菜单 
项 之 前 应 该 加 入 防 错 语句 On Error Resume Next。 


案例 15-31 ”删除 特定 快捷 菜单 中 的 所 有 自 定义 菜单 项 

下 面 的 代码 删除 Cell 快捷 菜单 中 的 所 有 自 定义 菜单 项 。 在 For Each 循环 结构 中 遍历 Cell 
快捷 菜单 中 的 每 一 个 菜单 项 ， 检 查 菜单 项 的 BuiltIn 属性 的 值 。 如 果 该 属性 为 False， 则 说 明 当 
前 菜单 项 是 用 户 自 定义 添加 的 ， 此 时 就 执行 Delete 方法 将 自 定义 菜单 项 删除 。 

Sub 删除 特定 快捷 菜单 中 的 所 有 自 定 义 菜单 项 () 


Dim ctl As CommandBarControl, ctls As CommandBarControls 
Set ctls = Application.CommandBars ("Cell") .Controls 
For Each ctl In ctls 
If Not ctl.BuiltIn Then ctl.delete 
Next ctl 
End Sub 


如 果 要 删除 特定 的 快捷 菜单 ， 则 可 以 使 用 CommandBar 对 象 的 Delete 方法 ,但 是 只 能 删除 
用 户 创建 的 自 定义 快捷 菜单 。 如 果 试 图 删除 Excel 内 置 的 快捷 菜单 ， 或 删除 不 存在 的 自 定义 快 
捷 菜 单 ， 将 会 出 现 运行 时 错误 ， 因 此 在 删除 快捷 菜单 之 前 应 该 加 入 防 错 语句 On Error Resume 
Next。 


案例 15-32 ”定制 快捷 菜单 和 莱 单项 时 的 防 错 设置 

下 面 的 代码 在 创建 名 为 “转换 大 小 写 ” 子 菜单 之 前 ， 先 预防 性 地 删除 该 子 菜单 。 在 执行 删除 
操作 之 前 加 入 了 On Error Resume Next 语句 ， 以 避免 当前 不 存在 该 子 菜单 时 出 现 的 运行 时 错误 。 

Sub 定制 快捷 菜单 和 菜单 项 时 的 防 错 设置 () 


Dim cbr As CommandBar， ctl As CommandBarButton 
Const strMenuName As String = "全 部 清除 " 
Set cbr = Application.CommandBars ("Cell") 
On Error Resume Next 
cbr.Controls (strMenuName) .delete 
On Error GoTo 0 
Set ctl = cbr.Controls.Add (Type:=msoControlButton, Temporary:=True) 
ctl.Caption = strMenuName 
End Sub 
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15.3.5 创建 新 的 快捷 菜单 


除了 可 以 在 Excel 内 置 的 快捷 菜单 中 添加 子 菜单 和 菜单 项 之 外 ， 也 可 以 创建 新 的 快捷 菜单 ， 
并 且 可 以 在 右 击 时 显示 自 定义 的 快捷 菜单 ， 而 且 还 可 以 在 特定 位 置 显示 不 同 的 快捷 菜单 ， 类 似 
Excel 的 内 置 快捷 菜单 的 工作 机 制 。 

与 创建 菜单 栏 和 工具 栏 类 似 ， 创 建 快捷 菜单 也 需要 使 用 CommandBars 集合 的 Add 方法 ， 
但 是 需要 将 该 方法 的 Position 参数 设置 为 msoBarPopup， 以 便 创建 的 是 快捷 菜单 ， 而 不 是 菜单 
栏 或 工具 栏 。 

案例 15-33 ”创建 自 定义 快捷 菜单 

下 面 的 代码 位 于 工作 德 中 的 标准 模块 中 ， 用 于 创建 一 个 名 为 “我 的 快捷 菜单 ”的 新 的 快捷 
菜单 ， 定 制 该 菜单 中 包含 的 命令 的 相关 代码 来 自 于 15.3.2 节 中 的 案例 。 为 了 适合 本 例 需要 ， 对 
代码 进行 了 适当 修改 。 


Public Const strMenuName Rs String = "我 的 快捷 菜单 " 













































































Sub 创建 新 的 快捷 菜单 () 
Dim cbr Rs CommandBar 
On Error Resume Next 
Application.CommandBars (strMenuName) .delete 
On Error GoTo 0 
Set cbr = Application.CommandBars.Add(strMenuName, msoBarPopup, , True) 
With cbr.Controls.Add (msoControlButton) 
.Caption = "全 部 大 写 " 
.Parameter = "全 部 大 写 " 
.OnAction = "转换 大 小 写 " 
End With 
With cbr.Controls.Add (msoControlButton) 
.Caption = "全 部 小 写 " 
.Parameter = "全 部 小 写 " 
.OnAction = "转换 大 小 写 " 
End With 
With cbr.Controls.Add (msoControlButton) 
.Caption = " 首 字母 大 写 " 
.Parameter = " 首 字 母 大 写 " 
.OnAction = "转换 大 小 写 " 
End With 
End Sub 


Sub 转换 大 小 写 () 
Dim ctl As CommandBarControl, rng Rs Range 
Set ctl = Application.CommandBars.ActionControl 
If Selection.Count > 1 Then 
Set rng = Selection.SpecialCells (xlCellTypeConstants) 
Else 
Set rng = Selection 
End If 
Select Case ctl.Parameter 
Case "全 部 大 写 " 
rng.Value = UCase (rng.Value) 
Case "全 部 小 写 " 
rng.Value = LCase (rng.Value) 
Case " 首 字 母 大 写 " 


rng.Value = UCase (Left (rng.Value, 1)) & Right (rng.Value，Len (rng.Value) - 1) 
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End Select 
End Sub 


下 面 的 代码 位 于 工作 簿 中 的 ThisWorkbook 模块 中 , 用 于 当 用 户 在 工作 短 中 的 任意 一 个 工作 
表 的 A1:D10 单元 格 区 域 中 右 击 时 ， 弹 出 自 定 义 的 快捷 菜单 ， 如 图 15-34 所 示 。 为 了 让 自 定 义 的 
快捷 菜单 可 以 在 工作 短 中 的 任意 一 个 工作 表 中 右 击 时 自动 显示 ， 需 要 编写 工作 簿 的 
SheetBeforeRightClick 事件 过 程 。 同 时 在 工作 德 的 Open 事件 过 程 中 调用 创建 快捷 菜单 的 Sub 过 
程 ， 从 而 在 打开 工作 筹 时 完成 快捷 菜单 的 创建 工作 。 
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图 15-34 在 特定 单元 格 区 域 中 右 击 时 弹出 自 定义 的 快捷 菜单 
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在 SheetBeforeRightClick 事件 过 程 中 ， 首 先 判断 当前 正在 右 击 的 工作 表 是 否 是 Worksheet， 
如 果 是 则 将 A1:D10 单元 格 区 域 的 引用 赋值 给 mg 变量 。 然 后 使 用 Application 对 象 的 Intersect 
方法 检查 当前 右 击 的 单元 格 是 否 位 于 mg 变量 所 表示 的 区 域 范围 之 内 ， 如 果 是 则 显示 自 定义 的 
快捷 菜单 ， 并 将 Cancel 参数 设置 为 True 以 屏蔽 默认 的 快捷 菜单 。 显 示 快 捷 菜 单 需 要 使 用 
CommandBar 对 象 的 ShowPopup 方法 。 


Private Sub Workbook Open() 
Call 创建 新 的 快捷 菜单 
End Sub 


























二 








Private Sub Workbook SheetBeforeRightClick (ByVal Sh As Object, ByVal Target As Range, 
Cancel As Boolean) 
Dim rng As Range 
If TypeName (Sh) = "Worksheet" Then 
Set rng = Sh.Range ("Al:D10") 
If Not Intersect(rng, Target) Is Nothing Then 
Application.CommandBars (strMenuName) .ShowPopuP 
Cancel = True 
End If 
End If 
End Sub 


15.4 功能 区 开发 基础 


功能 区 是 自 Excel 2007 开始 具有 革新 性 的 界面 环境 的 重要 组 成 部 分 。 虽 然 现在 仍 可 使 
CommandBars 对 象 模型 在 Excel 2007 以 及 更 高 版 本 的 Excel 中 创建 传统 的 菜单 栏 和 工具 栏 ， 但 
是 它们 只 能 位 于 功能 区 的 “加 载 项 选项 卡 中 , 而 且 也 无 法 使 用 新 的 功能 区 控件 的 特性 。 在 Excel 
2007 以 及 更 高 版 本 的 Excel 中 需要 通过 编写 RibbonX 代码 才能 实现 对 功能 区 控件 的 类 型 、 位 置 
和 外 观 等 方面 的 定制 ， 而 VBA 主要 是 为 功能 区 中 的 控件 提供 其 所 要 完成 的 实际 操作 。 本 节 主 
要 介绍 在 定制 功能 区 之 前 需要 了 解 的 一 些 基 础 知识 以 及 相关 内 容 ， 为 后 面 将 要 介绍 的 功能 区 的 
具体 定制 打下 基础 。 


5.4.1 Excel 文件 的 内 部 结构 


从 Office 2007 开始 ,微软 将 新 的 开放 式 的 XML 引入 Office, 并 基于 XML 创建 了 新 的 Office 
文件 格式 。 就 Excel 来 说 ， 在 Excel 中 使 用 新 的 文件 格式 创建 的 每 个 工作 籍 实际 上 是 一 组 XML 
文件 ， 这 些 文档 被 压缩 到 ZIP 容器 中 ， 并 提供 .xlsx、.xlsm、.xlam 等 新 文件 格式 的 扩展 名 。 

XML 文件 是 基于 文本 的 ,因此 它 拥有 跨 平台 的 特性 , 不 需要 依赖 于 某 种 特定 应 用 程序 对 其 
进行 解释 、 读 取 和 编辑 . XML 文件 拥有 更 高 的 压缩 比 , 因此 使 用 这 种 格式 的 文件 的 体积 会 更 小 。 
与 标准 的 文本 文件 相 比 ，XML 文件 采用 父 、 子 层次 关系 来 描述 文件 的 结构 和 内 容 ， 因 此 在 从 
XML 文件 中 搜索 和 提取 数据 时 的 效率 更 高 。 

如 果 要 查看 Excel 文件 的 内 部 结构 ， 则 需要 将 Excel 文件 的 扩展 名 改 为 .zip， 或 者 在 Excel 
文件 原 有 的 扩展 名 结尾 添加 .zip。Windows 系统 中 的 文件 默认 不 显示 扩展 名 , 以 防 用 户 误 操作 而 
导致 文件 无 法 被 正确 的 程序 识别 和 打开 。 需 要 先 显示 文件 的 扩展 名 ， 然 后 才能 修改 Excel 文件 
的 扩展 名 。 打 开 Windows 系统 中 的 文件 资源 管理 器 ， 在 功能 区 “查看 ”选项 卡 中 选中 “文件 扩 
展 名 ” 复 选 框 ， 如 图 15-35 所 示 。 
























































































































































.348 。 


第 15 章 ”定制 Excel 界面 环境 




















窗 格 布局 当前 视图 





图 15-35 显示 文件 扩展 名 的 设置 


提示 : 不 同 版 本 的 Windows 系统 中 用 于 设置 文件 扩展 名 的 界面 不 一 定 完全 相同 。 上 面 介绍 
的 是 在 Windows 10 中 设置 文件 扩展 名 的 方法 。 

在 将 文件 扩展 名 显示 出 来 之 后 ， 就 可 以 对 Excel 文件 的 扩展 名 进行 修改 了 。 选 择 要 修改 的 
Excel 文件 ， 按 F2 键 使 文件 名 处 于 编辑 状态 ,然后 将 现 有 扩展 名 改 为 .zip, 或 在 现 有 扩展 名 之 后 
添加 .zip。 修 改 后 按 Enter 键 将 会 弹出 如 图 15-36 所 示 的 对 话 框 ， 单 击 “ 是 ”按钮 确认 对 扩展 名 
的 更 改 。 











几 。 如 果 改 变 文件 扩展 名 ,可 能 会 导致 文件 不 可 用 ,。 


确实 要 更 改 吗 ? 





图 15-36 ”修改 文件 扩展 名 时 显示 的 提示 信息 


将 Excel 文件 改 为 ZIP 压缩 文件 后 ,双击 该 压缩 文件 将 会 显示 如 图 15-37 所 示 的 该 文件 的 内 
部 结构 。 在 定制 功能 区 时 ， 需 要 对 包含 定制 功能 区 的 RibbonX 代码 的 文件 添加 到 Excel 文件 内 
部 并 建立 与 功能 区 之 间 的 关联 。 











名 称 大 小 。 压 过 后 大 小 类 型 修改 时 间 CRC32 
人 -| 6 一 
rels 文件 夹 
docprops 文件 实 
对 文件 夫 

四 [Content Types]xml 1.087 367 XML 文档 1980/1/1 0:00 513599AC 





图 15-37 Excel 文件 的 内 部 结构 


15.4.2 ”功能 区 的 组 成 结构 


功能 区 位 于 Excel 窗口 标题 栏 的 下 方 ,是 一 个 贯穿 于 窗口 水 平方 向 上 的 矩形 
所 示 为 Excel 2016 的 功能 区 。 
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图 15-38 ”Excel 2016 的 功能 区 
功能 区 中 的 命令 按照 选项 卡 和 组 的 方式 进行 排列 布局 ， 如 图 15-39 所 示 。 单 击 选项 卡 顶 部 
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的 文字 可 以 在 各 个 选项 卡 之 间 切 换 ， 在 每 个 选项 卡 中 按 命令 的 类 别 划 分 为 多 个 组 ， 在 不 同 的 组 
中 可 以 找到 相应 的 命令 。 命 令 的 显示 方式 包括 很 多 种 类 型 ， 比 如 按钮 、 编 辑 框 、 复 选 框 、 切 换 
按钮 、 下 拉 列 表 、 组 合 框 、 库 以 及 垂直 分 隔 条 等 ， 可 以 将 这 些 对 象 称 为 控件 。 编 写 RibbonX 代 
码 定制 功能 区 的 主要 工作 就 是 在 功能 区 中 添加 这 些 控 件 ， 并 设置 它们 的 位 置 和 外 观 。 




















各 加 














英 贴 板 。 字体 5 
图 15-39 ”功能 区 由 选项 卡 、 组 和 命令 组 成 


选项 卡 中 的 某 些 组 的 右 下 角 有 一 个 5 按钮 ， 可 以 将 其 称 为 “对 话 框 启动 器 ”。 单 击 该 按钮 
将 打开 一 个 对 话 框 ， 对 话 框 中 包括 了 该 按钮 所 在 组 中 的 所 有 选项 ， 其 中 还 包括 未 能 显示 在 功能 
区 中 的 选项 。 


5 15.4.3 ”定制 功能 区 的 一 般 流 程 和 工具 


定制 功能 区 的 过 程 虽然 不 是 特别 复杂 , 但 也 不 是 一 件 简单 的 事 , 需要 编写 RibbonX 代码 和 VBA 
代码 ， 同 时 还 要 建立 RibbonX 代码 与 功能 区 之 间 的 关联 。 下 面 列 出 了 定制 功能 区 的 一 般 流 程 : 

(1) 编写 代码 ， 该 部 分 包括 以 下 两 个 方面 : 

口 编写 VBA 代码 : 编写 VBA 代码 是 为 了 在 单 击 定制 后 的 功能 区 中 的 控件 时 ， 

指定 的 VBA 过 程 ， 以 执行 具体 的 操作 。 

口 编写 RibbonX 代码 : 编写 RibbonX 代码 是 为 了 定制 功能 区 中 包含 的 界面 元 素 。 

(2) 编辑 Excel 文件 内 部 并 建立 代码 与 功能 区 之 间 的 关联 。 该 部 分 包括 以 下 几 个 方面 : 

口 将 包含 VBA 代码 的 Excel 文件 的 扩展 名 改 为 .zip， 使 其 成 为 一 个 压缩 文件 。 

口 在 压缩 文件 内 创建 名 为 customUI 的 文件 夹 。 

口 将 之 前 编写 好 的 代码 存储 在 名 为 customUI.xml 的 文件 中 ， 然 后 将 该 文件 移入 customUI 

文件 夹 。 

口 修改 .rels.xml 文件 ， 在 其 中 建立 RibbonX 代码 与 功能 区 之 间 的 关联 。 

为 了 可 以 获取 RibbonX 代码 中 任何 可 能 出 现 的 错误 ， 应 该 在 Excel 中 进行 以 下 设置 ， 单 击 
Excel 界面 中 的 “文件 ”|“ 选 项 ”命令 ， 打 开 “Excel 选项 ”对 话 框 ， 在 左 侧 选择 “高 级 ”选项 
卡 ， 然 后 在 右 侧 选中 “显示 加 载 项 用 户 界面 错误 ” 复 选 框 ， 如 图 15-40 所 示 。 
由 于 XML 文件 实际 上 是 一 个 文本 文件 ， 因 此 编辑 RibbonX 代码 的 最 简单 工具 是 使 用 
Windows 系统 内 置 的 记事 本 程序 。 该 工具 的 优点 是 随手 可 得 ， 无 须 获 取 和 安装 ， 缺 点 是 缺少 对 
代码 自动 排版 和 格式 化 的 功能 ， 且 编写 完 RibbonX 代码 后 ， 需 要 手动 将 包含 该 代码 的 XML 文 
件 添加 到 Excel 文件 内 部 并 建立 与 Excel 文件 的 关联 。 

为 了 简化 烦琐 的 操作 ， 可 以 使 用 Custom UI Editor 工具 来 定制 功能 区 。 在 Custom UI Editor 
中 输入 的 代码 会 被 自动 验证 有 效 性 ， 从 而 确保 代码 的 正确 。 该 工具 还 可 以 使 用 不 同 的 颜色 区 分 
RibbonX 代码 的 不 同 部 分 ， 而 且 会 自动 处 理 XML 文件 的 添加 与 关联 的 建立 ， 用 户 只 需 在 该 工 
具 中 编写 RibbonX 代码 ， 保 存 并 关闭 Custom UI Editor 中 的 文件 后 ， 即 可 在 相应 的 工作 敌 中 看 
到 定制 功能 区 的 变化 。 如 图 15-41 所 示 为 使 用 Custom UI Editor 编写 的 RibbonX 代码 。 
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保存 外 部 链接 数据 00 


口 忽 咯 使 用 动态 数据 交换 (DDE) 的 其 他 应 用 程序 (O) 
请 求 自动 更 新 链接 (U) 
示 加 载 项 用 户 界面 错误 (U) 
缩放 内 容 以 适应 A4 或 8.5 x 11" 纸张 大 小 (A) 


启动 时 打开 
自 定义 功能 区 此 目录 中 的 


快速 沪 问 工具 栏 sie 
Web 运 页 四)-。 
项 


启用 多 线程 处 理 (P) 
信任 中 心 














创建 用 于 排序 和 填充 序列 的 列表 : | 编 名 后 定义 列表 (O)… 





图 15-40 选中 “显示 加 载 项 用 户 界面 错误 ” 复 选 框 








国 实例 15-36xlsm - Custom UI Editor for Microsoft Office EE 0 x 
区 加 | 国 间 至 
File Edit Insert 
日 可 案例 15-36. xlsm |<cuscomUI xmilns="http://schemas.microsoft.com/office/2006/01/customui"> 
较 custonUT. xnml <ribbon startFromScratch="false"> 
<tabs> 


<tab id="rxTabTools" label="Tools"> 
<group idMso="GroupFont" /> 
<group id="rxGroupData" label="Data"> 
<button idMso="SortDialog" size="large" /> 
<toggleButton idMso="Filter" size="large" /> 
<button idMso="OutlineSubtotals" size="large" /> 
</group> 
<group id="rxGroupUpperLowerCase" label="UpperLowerCase"> 
<button id="rxButtonUCase" label="AllUCase" size="large" 
imageMso="ChangeStylesMenu" onAction="AllUCase" /> 
<button id="rxButtonLCase" label="AllLCase" size="large" 
imageMso="TextEffectTransformGallery" onAction="AllLCase" /> 
<button id="rxButtonFirstCase" label="FirstUCase" 
size="large" imageMso="FormControlLabel" onAction="FirstUCase" /> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 








G:\ 宾 例 15-36.x4sm ln1 col1 .:; 
图 15-41 在 Custom UI Editor 中 编写 RibbonX 代码 


15.4.4 功能 区 定制 中 的 控件 类 型 


在 编写 RibbonX 代码 定制 功能 区 时 ， 可 以 向 功能 区 添加 两 类 控件 : 基本 控件 和 容器 控件 。 基 本 
控件 类 似 于 定制 菜单 栏 和 工具 栏 中 的 msoControlButton、msoControlPopup、msoControlComboBox 
等 类 型 的 控件 , 每 个 控件 都 是 独立 的 个 体 。 容器 控件 类 似 于 定制 菜单 栏 和 工具 栏 中 的 弹出 菜单 ， 
用 于 作为 基本 控件 的 容器 ， 其 内 部 可 以 包含 一 个 或 多 个 基本 控件 。 


1. 基本 控件 


表 15-6 列 出 了 定制 功能 区 时 可 以 使 用 的 基本 控件 , 可 以 将 这 些 控件 添加 到 功能 区 的 自 定义 
组 或 容器 控件 中 。 
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表 15-6 基本 控件 




















控件 类 型 说 明 控件 样式 
a 通用 控件 类 型 ， 与 定制 菜单 栏 和 工具 栏 中 的 无 
On CommandBarControl 类 似 
tn 按钮 ， 用 于 执行 命令 的 可 单 击 项 ， 可 带 有 图 像 和 国 和 Hi 售 

标题 

<toggleButton.../> 切换 按钮 ， 每 次 单 击 时 在 按 下 和 弹 起 之 间 切 换 去 国 | 二 
<editBox...> 编辑 框 ， 可 在 其 中 输入 内 容 
SR 复 选 框 ， 可 以 选中 或 取消 选中 ， 从 而 控制 界面 元 

















素 是 否 可 见 





库 ， 提 供 一 个 下 拉 列 表 ， 可 以 在 其 中 包含 一 组 其 
<gallery.../> 他 类 型 的 控件 





ode on 标签 ， 用 于 为 其 他 控件 提供 标题 ， 本 身 不 涉及 任 























何 操作 
<separator.../> 垂直 分 隔 条 ， 用 于 分 隔 组 中 的 控件 弄 * | 名 
<menuSeparator.../> 菜单 水 平分 隔 条 ， 用 于 分 隔 菜 单 中 的 菜单 项 
<dynamicMenu.../> 弹出 菜单 ， 在 运行 时 使 用 回调 为 其 提供 内 容 
<dialogBoxLauncher.../> 对 话 框 启动 器 ， 位 于 组 的 右 下 角 竟 贴 板 四 
<item.../> 下 拉 列 表 或 组 合 框 中 的 选项 无 





2. 容器 控件 
表 15-7 列 出 了 可 以 在 其 中 添加 基本 控件 的 容器 控件 。 也 可 以 在 一 个 容器 控件 中 嵌入 另 一 个 
容器 控件 ， 从 而 创建 嵌 套 的 层次 结构 。 








表 15-7 容器 控件 





控件 类 型 说 了 明 可 包含 的 控件 类 型 
<box...> 
内 容 用 于 控制 其 他 控件 的 布局 可 包含 任何 其 他 类 型 的 控件 
</box> 





<buttonGroup...> 
内 容 


<control>、<button>、<toggleButton>、 


用 于 将 包含 在 其 中 的 控件 显示 为 一 个 相关 | <spliiButDa> ，<eallao>、 meno> 、 














的 组 
</buttonGroup> <dynamicMenu> 
<dropDown...> 
内 容 在 下 拉 列 表 中 提供 选项 以 供 选 择 <item>、<button> 
</dropDown> 


i 
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续 表 
站 说 明 可 包含 的 控件 类 型 

<comboBox...> 
i 编辑 棋 与 下 拉 列 表 的 组 合 ， 妇 可 以 进行 输 | 、 

入 ， 也 可 以 从 下 拉 列 表 中 进行 选择 em 
</comboBox> 
<menu...> a ee a 

>、 < >、 < >、 

内 容 可 以 在 其 中 包含 按 包 或 其 他 菜单 的 弹出 菜单 | Ce ne 
</menu> menu: 、 ynamicMenu: 


<menuSeparator> 





<splitButton...> 
<button.../> 
<menu...> 

内 容 


</menu> 


</splitButton> 





包含 左右 两 部 分 的 组 合 按 钮 , 单 





f 左 侧 部 分 


可 以 执行 默认 操作 , 单 击 右 侧 的 箭头 可 以 从 





下 拉 列 表 中 选择 选项 


<button>、<toggleButton> 





15.4.5 ”控件 属性 


与 Excel 对 象 模型 中 的 对 象 的 属性 类 似 ， 功 能 
有 控件 都 包含 很 多 属性 ， 表 15-8 列 出 了 所 有 可 用 






































区 中 的 控件 的 属性 用 于 设置 控件 的 外 观 。 所 
的 属性 及 其 适用 的 控件 ， 以 及 对 属性 的 简要 说 





































































































明和 人 允许 设置 的 值 。 
表 15-8 控件 可 用 的 属性 及 其 说 阴 
属性 适用 的 控件 
boxStyle box 
columns gallery 
wire os 人 
enabled 是 否 启用 控件 所 有 控件 
id 自 定义 控件 的 ID 所 有 控件 
idMso 内 置 控 件 的 ID 所 有 控件 
idQ 有 限制 的 控件 ID tab、group、menu 
image 自 定义 图 像 的 名 称 所 有 带 有 图 像 的 控件 
imageMso 内 置 控 件 的 图 像 的 名 称 所 有 带 有 图 像 的 控件 
invalidateContentOnDrop 中 止 控件 时 是 否 去 除 相关 内 容 的 回调 comboBox、gallery、dynamicMenu 
itemHeight 库 中 项 目的 高 度 ， 以 像素 为 单位 gallery 
itemSize 杂 单 中 项 目的 尺寸， 分 为 普通 尺寸 和 大 menu 
尺寸 两 种 , 大 尺寸 同时 显示 标签 和 描述 
itemWidth 库 中 项 目的 宽度 ， 以 像素 为 单位 gallery 
keytip 访问 控件 的 快捷 键 所 有 的 选项 卡 、 组 和 控件 
label 控件 的 标题 所 有 的 选项 卡 、 组 和 控件 
maxLength 可 输入 的 文本 的 最 大 长 度 comboBox、editBox 
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续 表 

属 性 说 了 明 适用 的 控件 
TOWS 库 中 的 行 数 gallery 
screentip 屏幕 提示 所 有 控件 
showImage 是 否 显示 控件 的 图 像 所 有 带 有 图 像 的 控件 
showItemImage 是 否 显示 下 拉 项 的 图 像 comboBox、dropDown、gallery 
showItemLabel 是 否 显示 下 拉 项 的 标题 comboBox、dropDown、gallery 
showLabel 是 否 显示 控件 的 标题 所 有 控件 
Size pd 普通 尺寸 占用 1 行 , 大 尺 所 有 控件 
sizeString 用 于 设置 控件 宽度 的 字符 串 comboBox、dropDown、editBox 
supertip 屏幕 超级 提示 所 有 控件 
tag 存储 在 控件 中 的 额外 信息 所 有 控件 
title 菜单 的 标题 menu、 menuSeparator 
visible 控件 是 否 可 所 有 的 选项 卡 、 组 和 控件 


15.4.6 ”控件 回调 











自动 执行 预先 指定 的 VBA 过 程 。RibbonX 中 的 回调 与 定 币 


CommandBars 对 象 模型 中 的 OnAction 属性 的 作用 类 似 ， 不 同 之 处 在 
所 调用 的 VBA 过 程 传递 很 多 参数 ， 因 此 必须 正确 声明 用 于 回调 的 VBA 过 程 中 
如 果 需 要 在 运行 时 更 改 控件 的 属性 ， 则 也 需要 使 用 控件 回 
以 get 开头 的 与 上 一 节 列 出 的 等 价 的 属性 来 提供 回调 的 VBA 过 程 的 名 称 。 例 如 ,名 









































回调 是 指 将 功能 区 中 的 控件 的 行为 和 大 多 数 属性 与 VBA 过 程 挂钩, 在 操作 这 些 控件 时 可 











| 传统 菜单 栏 和 工具 栏 所 使 
E 于 RibbonX 中 的 回调 会 
的 参数 。 



































以 
的 














口 











调 。 为 此 需要 在 RibbonX 中 使 








果 希 望 在 运 


行 时 动态 显示 组 的 名 称 ， 而 不 是 预先 将 组 的 名 称 固定 写 入 到 RibbonX 中 ， 那 么 就 需要 通过 控件 














可 调 来 完成 该 任务 。 从 上 一 节 可 以 了 解 到 ， 设 置 组 标题 的 属性 
过 程 ， 需 要 在 该 属性 前 加 上 get， 即 在 RibbonX 











题 的 VBA 过 程 的 名 称 赋值 给 该 属性 ， 类 似 于 下 面 的 形式 : 


<group id="customGroup" getLabel="customGroup getLabel"> 
然后 在 Excel VBA 中 创建 名 为 customGroup_getLabel 的 VBA 过 程 ， 并 
的 参数 ， 这 些 参 数 是 RibbonX 希望 提供 的 参数 。 或 者 也 可 以 先 在 VBA 中 创建 用 于 加 











然后 将 该 过 程 的 名 称 赋值 给 RibbonX 中 的 getLabel 属性 。 





下 面 列 出 了 所 有 可 






































的 控件 回调 的 VBA 过 程 的 参数 配置 。 





是 label， 为 了 使 用 加 









































调 的 VBA 
中 需要 使 用 getLabel 属性 ， 并 将 用 于 设置 组 标 


为 其 添加 预先 指定 


调 的 过 程 ， 


(1) 回调 的 属性 : getContent、getDescription、getEnabled、getImage、getItemCount、 
getItemHeight 、 getItemWidth 、 getKeytip、 getLabel 、 getPressed 、 getSize 、 getScreentip 、 
getSelectedItemID 、getSelectedItemIndex、getShowImage、getShowLabel、getSupertip、getText、 








getTitle、getVisible。 


对 应 的 VBA 过 程 的 参数 配置 : 


Sub 过 程 名 (ByRef Control As IRibbonControl, ByRef ReturnValue As Variant) 





(2) 回调 的 属性 : getItemID、getItemImage、 getItemLabel、 getltemScreentip、getItemSupertip。 
对 应 的 VBA 过程 的 参数 配置 : 
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Sub 过 程 名 (ByRef Control As IRibbonControl, ByRef Index As Integer, ByRef ReturnedValue 
As Variant) 


(3) 回调 的 属性 : button 控件 的 OnAction。 

对 应 的 VBA 过 程 的 参数 配置 : 

Sub 过 程 名 (ByRef Control Rs IRibbonControl) 

(4) 回调 的 属性 : checkBox 和 toggleButton 控件 的 OnAction。 

对 应 的 VBA 过 程 的 参数 配置 : 

Sub 过 程 名 (ByRef Control As IribbonControl, ByRef Pressed As Boolean) 
(5) 回调 的 属性 : dropDown 和 gallery 控件 的 OnAction 

对 应 的 VBA 过 程 的 参数 配置 : 


Sub 过 程 名 (ByRef Control As IribbonControl, ByRef SelectedID Rs String, ByRef SelectedIndex 
As Integer) 


(6) 回调 的 属性 ，editBox 和 comboBox 控件 的 OnChange 
对 应 的 VBA 过 程 的 参数 配置 : 

Sub 过 程 名 (ByRef Control As IribbonControl, ByRef Text As String) 

除了 以 get 开头 的 与 在 设计 时 等 价 的 属性 之 外 ， 表 15-9 列 出 了 其 他 在 运行 时 设置 的 控件 
调 的 属性 及 其 适用 的 控件 。 





















































互 














表 15-9 ”运行 时 设置 的 回调 及 其 说 明 











回调 适用 的 控件 
getContent 为 菜单 的 内 容 提 供 XML dynamicMenu 
getPressed 控件 是 否 被 按 下 或 选中 toggleButton、checkBox 
getItemCount 控件 中 包含 项 目的 数量 comboBox、 dropDown、gallery 
getItemID、getItemImage、getItemLabel、 

项 言 息 、 、 
getItemScreentip 、getItemSupertip 控件 中 项 目的 相关 信 SomboBox, ‘dropDown :gallery 
getSelectedItemID 在 控件 中 当前 选择 的 项 目 dropDown、 gallery 

当前 3 项 
getSelectedItemIndex 控件 中 当前 选择 的 项 目的 dropDown、gallery 
索引 号 
getText 显示 在 控件 中 的 文本 comboBox、editBox 
SR Pe button 、 toggleButton 、 
OnAction 单 击 控件 时 执行 的 操作 cho Bin opDaen. waileey 
OnChange 当 控 件 中 的 文本 改变 时 执行 | comboBox、editBox 


15.4.7 ”使 用 VBA 可 以 对 功能 区 进行 的 操作 





在 Excel 2007 以 及 更 高 版 本 的 Excel 中 , 使 用 VBA 可 以 直接 对 功能 区 进行 的 操作 受到 了 很 
多 限制 。 表 15-10 列 出 了 使 用 VBA 可 以 对 功能 区 进行 的 操作 。 


表 15-10 使 用 VBA 可 以 对 功能 区 进行 的 操作 


























可 对 功能 区 执行 的 操作 在 VBA 中 使 用 的 方法 
激活 选项 卡 使 用 Application 对 象 的 SendKeys 方法 
执行 控件 使 用 CommandBars 对 象 的 ExccuteMso 方法 
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续 表 
可 对 功能 区 执行 的 操作 在 VBA 中 使 用 的 方法 
判断 控件 是 否 已 启用 使 用 CommandBars 对 象 的 GetEnabledMso 方法 
判断 控件 是 否 可 见 使 用 CommandBars 对 象 的 GetVisibleMso 方法 
判断 控件 是 否 被 按 下 或 选中 使 用 CommandBars 对 象 的 GetPressedMso 方法 
获取 控件 的 标题 使 用 CommandBars 对 象 的 GetLableMso 方法 
获取 控件 的 图 像 使 用 CommandBars 对 象 的 GetImageMso 方法 
获取 控件 的 屏幕 提示 使 用 CommandBars 对 象 的 GetScreentipMso 方法 
获取 控件 的 超级 提示 使 用 CommandBars 对 象 的 GetSupertipMso 方法 








名 称 以 Mso 结尾 的 CommandBars 对 象 的 方法 的 参数 是 要 处 理 





的 控件 名 称 ， 必 须 严格 区 分 





大 小 写 , 否则 将 会 出 现 运行 时 错误 。Excel 功能 区 中 的 所 有 控件 的 名 称 可 从 微软 官方 网 站 上 下 载 


名 为 ExcelRibbonControls.xlsx 或 ExcelControls.xlsx 的 文件 。 


在 功能 区 界面 中 可 以 使 用 Alt 键 和 一 个 字母 键 来 激活 特定 的 选项 卡 ， 所 有 与 选项 卡 对 应 的 
字母 键 会 在 按 下 Alt 键 后 显示 在 功能 区 中 ， 如 图 15-42 所 示 。 例 如 ， 要 激活 功能 区 中 的 “数据 ” 





选项 卡 ， 可 以 先 按 Alt 键 ， 然 后 按 A 键 。 





工作 簿 1 - Excel 


四 .四 = 上 四- 太 坏 上 





对 齐 方式 5 ”数字 





公式 数据 ”市 网 。 视图 。 开发 J 具 9 告诉 

常规 "| 欧 冬 件 格式 - 
至 晤 奉 用 雪 格 格式 - 
葬 单 元 格 样式 - 


样式 



























图 15-42 使 用 VBA 激活 功能 区 中 的 选项 卡 


在 VBA 中 可 以 使 用 Application 对 象 的 SendKeys 方法 模拟 键盘 操作 , 第 4 章 已 对 该 方法 的 
具体 用 法 进行 过 详细 介绍 。 下 面 的 VBA 代码 将 激活 功能 区 中 的 “数据 ”选项 卡 ， 其 中 的 % 表 示 

















Alt 键 。 


Application.SendKeys "%A" 




















激活 “开始 ”选项 卡 : Application.SendKeys "%H" 
激活 “插入 ”选项 卡 : Application.SendKeys "SN" 
激活 “页 面 布 局 ”选项 卡 : Application.SendKeys "%P" 
激活 “公式 ”选项 卡 : Application.SendKeys "%M" 
激活 “数据 ”选项 卡 : Application.SendKeys "$A" 
激活 “审阅 ”选项 卡 : Application.SendKeys "%R" 
激活 “视图 ”选项 卡 : Application.SendKeys "%W" 
激活 “开发 工具 ”选项 卡 : Application.SendKeys "%L" 





面 列 出 了 使 用 Application 对 象 的 SendKeys 方法 激活 各 个 默认 选项 卡 的 方法 : 


注意 : 上 述 代码 可 能 无 法 从 VBE 窗口 中 正确 执行 ， 需要 从 Excel 界面 中 执行 这 些 代码 。 
功能 区 中 的 每 一 个 控件 都 有 一 个 名 称 ， 可 以 在 VBA 中 使 用 前 面 介绍 的 CommandBars 对 象 
的 方法 ， 通 过 引用 控件 的 名 称 来 判断 控件 的 状态 或 获取 控件 的 信息 。 








案例 15-34 ”使 用 ExecuteMso 方法 执行 功能 区 中 的 控件 








下 面 的 代码 使 用 CommandBars 对 象 的 ExecuteMso 方法 打开 “页 面 














Sub 使 用 ExecuteMso 方法 执行 功能 区 中 的 控件 () 
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Dim strMsoName As String 


strMsoName = "PageSetupPageDialog" 
Application.CommandBars .ExecuteMso strMsoName 
End Sub 


案例 15-35 ”使 用 GetlmageMso 方法 获取 控件 的 图 像 
































64 像素 大 小 显示 在 Sheetl 工作 表 的 Image 控件 中 ， 如 图 15 
Sub 使 用 GetImageMso 方法 获取 控件 的 图 像 () 


Dim wks As Worksheet, img Rs Image 
Set wks = Worksheets ("Sheet1") 
Set img = wks.Imagel 
img.Picture = Application.CommandBars .GetImage, 
img.AutoSize = True 
End Sub 











下 面 的 代码 使 用 CommandBars 对 象 的 GetImageMso 方法 将 “ 剪 切 ”命令 的 图 像 ， 以 64X 


-43 所 示 。 


Mso ("Cut", 128, 128) 





图 15-43 ”获取 功能 区 控件 的 图 像 





15.5 定制 功能 区 


本 节 将 通过 一 个 案例 详细 完整 地 介绍 定制 功能 区 的 整个 过 程 以 及 需要 注意 的 问题 。 由 于 使 














Custom UI Editor 工具 编写 RibbonX 代码 可 以 省 略 很 多 
































下 定制 功能 区 的 步骤 。 
15.5.1 创建 实现 控件 功能 的 VBA 过 程 


























P 间 步骤， 因此 本 节 中 的 案例 将 使 用 


记事 本 的 方式 编写 RibbonX 代码 ， 说 明 如 何 将 包含 RibbonX 代码 的 XML 文件 添加 到 Excel 文 
件 内 部 ， 并 建立 与 Excel 文件 关联 的 方法 ， 目 的 在 于 演示 在 不 使 用 Custom UI Editor 工具 的 情况 





于 实现 控件 功能 的 代码 需要 在 VBA 中 编写 。 可 以 先 创建 VBA 过 程 并 编写 代码 ， 然 后 再 


编写 RibbonX 代码 ， 并 将 用 于 回调 的 属性 设置 为 已 创建 好 的 VBA 过 程 的 名 称 。 也 可 以 先 编写 
RibbonX 代码 并 在 其 中 指定 还 未 存在 的 VBA 过程 的 名 称 , 然后 在 VBA 中 使 用 该 名 称 创建 VBA 
过 程 并 编写 代码 。 这 两 个 步骤 的 先后 顺序 无 关 紧要 ， 只 要 确保 VBA 过 程 的 名 称 与 RibbonX 代 






































码 中 用 于 回调 的 VBA 过 程 名 称 相同 即 可 。 
案例 15-36 ” 自 定义 功能 区 











本 例 希 望 在 功能 区 中 创建 一 个 新 的 选项 卡 ， 然 后 在 其 中 添加 一 个 组 ， 在 该 组 中 添加 3 个 按 














钮 ,它们 的 功能 与 15.3.5 节 中 的 案例 相同 。 首 先 新 建 一 个 工作 敌 ， 将 其 保存 为 .xlsm 格式 以 便 可 
以 包含 VBA 代码 。 按 Alt+F11 组 合 键 打开 VBE 窗口 ， 在 与 该 工作 秒 关 联 的 工程 中 插入 一 个 标 
准 模块 ， 然 后 在 该 模块 的 代码 窗口 中 输入 用 于 实现 3 个 按钮 功能 的 代码 。 由 于 创建 的 VBA 过 










































































程 作为 功能 区 中 按钮 的 回调 ， 因 此 需要 在 每 个 Sub 过 程 中 添加 参数 ByRef Control As 
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IRibbonControl。GetRange 函数 过 程 用 于 判断 选区 中 包含 的 单元 格 数量 ， 以 便 进 行 不 同 的 处 理 ， 
后 面 的 3 个 Sub 过 程 都 要 执行 该 操作 ， 因 此 将 共同 的 判断 过 程 集中 到 一 个 Function 过 程 中 ， 然 
后 在 3 个 Sub 过 程 中 可 以 调用 这 个 Function 过 程 而 不 必 重 复 编写 相同 的 代码 。 


Function GetRange () Rs Range 
If TypeName (Selection) <> "Range" Then 
Set GetRange = Nothing 
MsgBox "请 选择 单元 格 或 单元 格 区 域 ! " 
Exit Function 
End If 
If Selection.Count > 1 Then 
Set GetRange = Selection.SpecialCells (xlCellTypeConstants 
Else 
Set GetRange = Selection 
End If 
End Function 
























































Sub AllUCase (ByRef Control As IRibbonControl 
Dim rng As Range 
If GetRange Is Nothing Then Exit Sub 
For Each rng In GetRange 
rng.Value = UCase (rng.Value) 
Next rng 
End Sub 


Sub AllLCase (ByRef Control As IRibbonControl 
Dim rng As Range 
If GetRange Is Nothing Then Exit Sub 
For Each rng In GetRange 
rng.Value = LCase (rng.Value) 
Next rng 
End Sub 


Sub FirstUCase (ByRef Control As IRibbonControl 
Dim rng As Range 
If GetRange Is Nothing Then Exit Sub 
For Each rng In GetRange 
If Len (rng) <> 0 Then 
rng.Value = UCase (Left (rng.Value, 1)) & LCase (Right (rng.Value, Len(rng. 


Value) - 1)) 
End If 
Next rng 
End Sub 


15.5.2 ”编写 定制 功能 区 的 RibbonX 代码 

在 记事 本 程序 中 编写 RibbonX 代码 容易 出 错 , 因此 并 不 建议 使 用 记事 本 编写 RibbonX 代码 ， 
这 里 主要 是 为 了 演示 将 编辑 好 的 RibbonX 代码 的 文件 添加 到 Excel 文件 内 部 的 方法 。 如 果 使 用 
Custom UI Editor 编写 RibbonX 代码 , 那么 该 工具 会 自动 创建 相关 文件 并 将 其 添加 到 Excel 文件 
内 部 ， 用 户 无 须 对 这 些 进行 手动 处 理 。 
启动 记事 本 程序 ， 按 Ctrl+S 组 合 键 打开 “另存 为 ”对 话 框 ， 将 保存 的 文件 名 设置 为 
customUI.xml， 然 后 选择 一 个 合适 的 保存 位 置 ， 如 图 15-44 所 示 。 单 击 “ 保 存 ” 按 钮 创建 
customUI.xml 文件 。 
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x 
< ~ 个 国 « 究 g 文 件 、 第 15 童 半 宗 第 15 章 Pp 
组 织 ” 。 新 建文 件 实 E> © 

Excel VBA 编 + ^ 


没有 与 搜索 条 件 匹 本 的 项 。 
全 OneDrive 


入 Windows 10 (Cv 


文件 名 (N): | customUlxml 





保存 类 型 (T): 文本 文档 ("bd) 





二 隐藏 文件 夫 篇 3(E): Unicode 


3 Wg 
图 15-44 创建 customUI.xml 文件 
提示 : 为 了 在 自 定 义 功能 区 中 使 用 中 文 ， 需 要 将 文本 文件 的 编码 格式 设置 为 Unicode。 
接 下 来 需要 在 customUI.xml 文件 中 编写 定制 功能 区 的 RibbonX 代码 。 本 例 将 创建 一 个 名 为 
“工具 箱 ” 的 选项 卡 ， 其 中 包含 3 个 组 ， 具 体 如 下 : 
口 第 一 个 组 及 其 包含 的 所 有 命令 直接 引用 Excel 内 置 的 “字体 ”组 。 


口 第 二 个 组 是 自 定义 组 ， 将 其 命名 为 “数据 分 析 ”， 但 是 该 组 包含 的 命令 是 Excel 内 置 的 
命令 ， 具 体 为 “排序 ”“ 筛 选 ” 和 “分 类 汇总 ”3 个 命令 。 

口 第 三 个 组 也 是 自 定义 组 ， 将 其 命名 为 “大 小 写 转换 ”， 其 中 包含 3 个 按钮 ， 分 别 命名 为 
“全 部 大 写 ”“ 全 部 小 写 ” 和 “ 首 字母 大 写 ”。 这 3 个 按钮 完全 由 用 户 自 定义 创建 ， 它 

们 所 实现 的 功能 对 应 于 上 一 节 在 VBA 中 创建 的 3 个 Sub 过 程 。 


下 面 将 本 例 所 需 的 RibbonX 代码 分 为 几 个 部 分 进行 讲解 。RibbonX 代码 严格 
























































区 分 大 小 写 ， 
此 应 该 确保 输入 了 正确 的 大 小 写 ， 否 则 定制 功能 区 的 操作 可 能 会 失败 。 
1. 创建 选项 卡 
首先 需要 在 customUI.xml 文件 中 输入 下 面 的 代码 。 该 代码 用 于 定义 功能 区 的 整体 框架 ， 并 
在 其 中 创建 了 一 个 名 为 “工具 箱 ” 的 选项 卡 。 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon> 
<tabs> 


<tab id="rxTabTools" label=" 工 具 箱 "> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 
下 面 对 这 段 代码 中 涉及 的 XML 语法 知识 进行 介绍 : 
口 <ribbon> 包 含 功 能 区 所 有 变化 的 容器 ，<tabs> 包 含 功能 区 中 所 有 内 置 和 自 定义 的 选项 卡 
的 所 有 变化 的 容器 。 在 <tabs> 和 </tabs> 之 间 定 义 了 一 个 新 的 选项 卡 。 
口 对 尖 括 号 包围 起 来 的 名 称 是 XML 文件 中 的 元 素 。 每 个 元 素 使 用 开始 标签 〈 如 
<ribbon>) 和 结束 标签 〈 如 </ribbon>) 定义 ， 在 这 两 个 标签 之 间 输 入 的 内 容 组 成 了 该 元 
素 的 数据 。 
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口 不 同 的 元 素 之 间 具 有 父子 层次 结构 ， 位 于 XML 文件 最 顶端 的 元 素 是 根 元 素 。 在 XML 
文件 中 必须 有 且 只 有 一 个 根 元 素 ， 根 元 素 作为 其 他 元 素 的 容器 。 例 如 ， 上 面 代码 中 的 
customUI 元 素 就 是 根 元 素 ， 位 于 其 下 一 层 的 ribbon 元 素 是 customUI 元 素 的 子 元 素 ， 而 
customUI 元 素 则 是 ribbon 元 素 的 父 元 素 。 其 他 元 素 也 同样 具有 类 似 的 父子 关系 。 

口 与 其 他 元 素 不 同 ， 上 面 代码 中 的 根 元 素 包 含 以 xmlns 开头 的 一 长 串 类 似 网 址 的 字符 ， 
xmlns 表示 XML 命名 空间 。 命 名 空间 的 目的 是 为 了 可 以 创建 唯一 的 字符 串 ， 而 不 会 发 

生 重复 ， 因 此 从 技术 上 讲 ， 作 为 命名 空间 的 字符 串 可 以 使 用 任何 有 效 的 内 容 。 命 名 空间 

通常 会 出 现在 单独 的 一 行 中 ， 而 在 上 面 代码 中 位 于 customUI 根 元 素 中 ， 说 明 该 命名 空 

间 会 自动 应 用 到 根 元 素 下 面 的 所 有 子 元 素 中 。 

口 上 面 代码 中 的 id 和 label 是 tab 元 素 的 两 个 属性 。 与 在 VBA 中 为 对 象 设置 属性 的 方法 类 
似 ， 在 XML 中 使 用 等 号 为 属性 赋值 ， 等 号 左 侧 是 属性 的 名 称 ， 等 号 右 侧 是 要 为 属性 设 
置 的 值 。 无 论 属性 的 值 是 文本 还 是 数字 ， 都 需要 使 用 双 引 号 括 起 。 

口 XML 中 的 代码 严格 区 分 大 小 写 ， 因 此 <Ribbon> 与 <ribbon> 表 示 的 是 不 同 的 内 容 。 

口 虽然 不 同 层次 的 元 素 可 以 使 用 完全 相同 的 缩 进 格式 , 但 是 为 它们 使 用 不 同 的 缩 进 可 以 让 
代码 的 结构 更 加 清晰 直观 。 

提示 : 如 果 和 希望 从 头 开始 创建 功能 区 并 隐藏 所 有 内 置 的 选项 卡 ， 则 可 以 在 <ribbon> 元 素 中 

添加 startFromScratch 属性 ， 并 将 其 设置 为 True， 如 下 所 示 : 


<ribbon startFromScratch="true" > 


2. 创建 组 

接 下 来 需要 在 选项 卡 中 创建 所 需 的 组 。 用 于 定义 组 的 相关 代码 需要 作为 tab 元 素 的 子 元 素 
以 放置 到 其 内 部 。 组 元 素 使 用 <group> 和 </group> 作 为 其 数据 范围 的 开始 标签 和 结束 标签 。 本 例 
中 一 共 创 建 3 个 组 ， 第 一 个 组 是 Excel 内 置 的 “字体 ”组 ， 其 内 置 名 称 是 GroupFont， 将 该 名 称 
赋值 给 idMso 属性 。 

第 二 个 组 虽然 包含 的 是 Excel 内 置 命令 ， 但 该 组 并 不 是 Excel 内 置 的 组 ， 因 此 需要 将 为 该 
组 设置 的 自 定义 名 称 赋值 给 group 元 素 的 id 属性 而 不 是 idMso 属性 。 第 三 个 组 完全 是 自 定 义 
的 组 ， 也 需要 将 自 定义 的 组 名 赋值 给 group 元 素 的 id 属性 。 创 建 本 例 中 的 3 个 组 的 RibbonX 
代码 如 下 : 


<group idMso="GroupFont" /> 
<group id="rxGroupData"” label=" 数 据 分 析 "” /> 
<group id="rxGroupUPPerLowerCase" label=" 大 小 写 转 换 "” /> 


日 于 稍 后 需要 在 第 二 个 组 和 第 三 个 组 中 添加 控件 , 因此 需要 将 上 面 的 代码 改 为 下 面 的 格式 ， 
使 用 </group> 作 为 第 二 个 组 和 第 三 个 组 的 结束 标签 ， 而 不 是 使 用 />。 


<group idMso="GroupFont" /> 

<group id="rxGroupData" label=" 数 据 分 析 "> 

</group> 

<group id="rxGroupUpperLowerCase"” label=" 大 小 写 转换 "> 

</group> 

3. 在 组 中 添加 控件 

于 第 一 个 组 引用 的 是 Excel 内 置 的 “字体 ”组 ， 因 此 其 内 部 已 经 包含 了 该 组 中 所 有 默认 
的 控件 ， 不 需要 手动 在 该 组 中 添加 额外 的 控件 。 后 两 个 组 都 是 自 定义 组 ， 因 此 需要 手动 向 这 两 
个 组 中 添加 控件 。 第 二 个 组 中 包含 的 控件 来 自 于 Excel 内 置 的 “排序 ”“ 第 选 ” 和 “分 类 汇总 ” 
3 个 命令 ， 它 们 的 名 称 依次 为 SortDialog、Filter 和 OutlineSubtotals， 其 中 的 SortDialog 和 
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OutlineSubtotals 是 button 类 型 的 控件 ，Filter 是 toggleButton 类 型 的 控件 。 可 以 使 用 与 命令 对 应 
的 特定 类 型 的 控件 ， 也 可 以 使 用 通用 的 control 控件 类 型 。 本 例 中 将 以 上 3 个 控件 的 尺寸 都 设置 
为 大 尺寸 。 创 建 第 二 个 组 中 的 3 个 命令 的 RibbonX 代码 如 下 : 




















<button idMso="SortDialog" size="large" /> 
<toggleButton idMso="Filter" size="large" /> 
<button idMso="OutlineSubtotals" size="large" /> 


第 三 个 组 包含 3 个 自 定义 控件 ， 它 们 都 是 button 类 型 的 控件 。 由 于 这 3 个 控件 不 是 Excel 

















内 置 控件 ， 因 此 需要 将 它们 的 自 定义 名 称 赋值 给 id 属性 而 不 是 idMso 属性 ， 而 且 还 需要 为 它们 
设置 label 属性 ， 以 指定 它们 在 组 中 显示 的 标题 。 为 了 让 这 3 个 控件 可 以 执行 具体 的 操作 ， 需 要 
为 这 3 个 控件 设置 OnAction 属性 , 并 将 前 面 编写 好 的 VBA 过 程 作为 OnAction 属性 的 回调 。 此 
外 ， 自 定义 控件 默认 不 包含 图 像 ， 因 此 需要 为 其 指定 显示 在 控件 上 的 图 像 。 可 以 将 内 置 控件 的 
名 称 赋值 给 imageMso 属性 , 从 而 将 内 置 控 件 的 图 像 指定 为 自 定义 控件 的 图 像 ,也 可 以 使 用 image 
属性 为 控件 添加 自 定义 图 像 。 创 建 第 三 个 组 中 的 3 个 命令 的 RibbonX 代码 如 下 : 





























<button id="rxButtonUCase" label=" 全 部 大 写 " size="large" imageMso="ChangeStylesMenu" 


onAction="AllUCase" /> 
<button id="rxButtonLCase" label=" 全 部 小 写 " size="large" imageMso="TextEffectTransformGallery" 


onAction="AllLCase" /> 
<button id="rxButtonFirstCase" label=" 首 字母 大 写 " size="large" imageMso="FormControlLabel" 


onAction="FirstUCase" /> 


现在 已 经 完成 了 本 例 所 需 编 写 的 全 部 RibbonX 代码 , 保存 并 关闭 customUI.xml 文件 。 本 例 


完整 的 RibbonX 代码 如 下 : 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon startFromScratch="false"> 
<tabs> 
<tab id="rxTabTools"” label=" 工 具 箱 "> 

<group idMso="GroupFont" /> 

<group id="rxGroupData"” label=" 数 据 分 析 "> 
<button idMso="SortDialog" size="large" /> 
<toggleButton idMso="Filter" size="large" /> 
<button idMso="OutlineSubtotals" size="large" /> 

</group> 

<group id="rxGroupUPPerLowerCase" label=" 转 换 大 小 写 "> 
<button id="rxButtonUCase" label=" 全 部 大 写 " size="large" imageMso= 
"ChangeStylesMenu" onAction="AllUCase" /> 
<button id="rxButtonLCase" label=" 全 部 小 写 " size="large" imageMso= 
"TextEffectTransformGallery" onAction="AllLCase" /> 
<button id="rxButtonFirstCase" label=" 首 字母 大 写 " size="large" 
imageMso="FormControlLabel" onAction="FirstUCase" /> 

</group> 

</tab> 
</tabs> 
</ribbon> 
</customUI> 


15.5.3 ”将 定制 功能 区 的 工作 短 更 改 为 压缩 文件 





完成 RibbonX 代码 的 编写 后 ， 接 下 来 需要 通过 特殊 的 方式 进入 Excel 工作 禾 的 文件 内 部 ， 








以 便 向 其 中 添加 文件 夹 和 文件 并 建立 RibbonX 代码 与 工作 敌 之 间 的 关联 。 要 进入 工作 德 的 文件 


内 部 ， 需 要 将 工作 矢 的 扩展 名 改 为 .zip， 使 其 成 为 ZIP 压缩 文件 。 如 图 15-45 所 示 为 进入 本 例 工 


























作 短 的 文件 内 部 所 显示 的 内 容 。 
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| 五 sg15-36zip - ZIP 让 文 件 解 @ 大 小 为 51.057 字 节 











大 小 夺 交 E 大 小 类 型 
文 # 夫 
文件 突 
文 4 闪 
文件 夹 
加 [Content_ Types]xml 413 XML 文档 1980/1/1 0:00 B1DF7FC6 








Eh} 总 计 3 文件 夹 和 1.503 字 节 (1 个 文件 ) 


图 15-45 ”Excel 工作 短 的 文件 内 部 结构 


15.5.4 在 压缩 文件 中 创建 customUl 文件 夹 


双击 修改 扩展 名 后 的 ZIP 压缩 文件 ， 在 打开 的 窗口 中 右 击 任 意 一 个 文件 或 文件 夹 ， 然 后 在 
弹出 的 菜单 中 选择 “创建 一 个 新 文件 夹 ”命令 。 将 新 建文 件 夹 的 名 称 设置 为 customUI， 然 后 按 
Enter 键 确 认命 名 ， 如 图 15-46 所 示 。 


国 导 宾 例 15-36.zip - ZIP 压缩 文件 , 解 包 大 小 为 52.787 字 节 

















名 称 大 小 。 压 缠 后 大 小 类 型 
S 文件 夹 
rels 文件 突 
Ee 文件 夫 EE 
docprops 文件 夹 
x 文件 夹 
习 [Content_Types]xml 413 XML 文档 1980/1/1 0:00 B1DF7FC6 





加 m 已 经 远 择 1 个 文件 夹 总 计 4 文件 严 和 1,503 字 匡 (1 个 文件 ) 


图 15-46 创建 customUI 文件 夹 


15.5.5 ”将 customUl.xml 文件 移入 customUl 文件 夹 

将 前 面 创建 的 包含 RibbonX 代码 的 customUI.xml 文件 放置 到 customUI 文件 夹 中 ， 具 体 方 
法 是 : 同时 打开 customUI.xml 文件 所 在 的 文件 夹 窗 口 ， 以 及 ZIP 压缩 文件 中 的 customUI 文件 
夹 窗口 ， 然 后 按 住 鼠 标 左 键 将 customUI.xml 文件 拖 动 到 customUI 文件 夹 中 ， 在 弹出 的 对 话 框 
中 单 击 “ 确 定 ” 按 钮 ， 将 customUIxml 文件 移入 customUI 文件 夹 ， 如 图 15-47 所 示 。 


围 | 只 妆 m15-36zipveustomul - ZIP 压 给 文 件 解 包 大 小 为 52.787 字 节 








名 称 大 小 。 压 纺 后 大 小 类 型 修改 时 间 CRC32 
加 文件 突 
四 customUlxml 1730 530 XML 文 档 2018/1/17 23... E8F94EFO 





总 计 1.730 字 节 (1 个 文件 ) 
图 15-47 将 customUIxml 文件 移入 customUI 文件 夹 

















15.5.6 ”建立 RibbonX 代码 与 工作 簿 之 间 的 关联 


最 后 一 个 非常 重要 的 步骤 是 修改 ZIP 压缩 文件 中 的 _rels 文件 夹 中 的 .rels.xml 文件 ， 以 便 建 
立 RibbonX 代码 与 工作 敌 之 间 的 关联 。 进 入 ZIP 压缩 文件 中 的 _rels 文件 夹 ， 将 其 中 的 .rels.xml 
文件 拖 动 到 ZIP 压缩 文件 以 外 的 任意 一 个 文件 夹 窗口 中 。 右 击 拖 出 的 .rels.xml 文件 并 选择 “ 编 
辑 ” 命 令 ， 在 记事 本 中 打开 该 文件 ， 在 最 后 一 个 </Relationships> 之 前 输入 下 面 的 内 容 ， 以 便 将 
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RibbonX 代码 与 工作 敌 进 行 关联 .确保 输入 的 代码 中 的 Id 属性 的 值 在 .rels.xml 文件 中 是 唯一 的 ， 








否则 会 出 错 。 





<Relationship Id="rxRibbonX"” Type="http://schemas.microsoft.com/office/2006/relationships/ 


ui/extensibility" Target="customUI/customUI.xml"/> 


在 .rels.xml 文件 中 的 最 后 一 个 </Relationships> 之 前 输入 好 上 面 的 内 容 后 , 将 会 得 到 类 似 于 如 











下 所 示 的 内 容 : 








<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 

<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"> 
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/ 
relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" 
Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core- 
properties" Target="docProps/core.xml"/><Relationship Id="rIdl" Type="http://schemas. 
openxmlformats.org/officeDocument/2006/relationships/officeDocument" 
Target="xl1/workbook.xml"/><Relationship Id="rxRibbonX" Type="http://schemas.microsoft. 
com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/> 


</Relationships> 


保存 并 关闭 .rels.xml 文件 , 然后 将 该 文件 拖 动 回 _rels 文件 夹 时 直接 覆盖 原始 文件 。 关闭 ZIP 
压缩 文件 窗口 ， 然 后 将 该 文件 的 后 级 名 改 为 原来 的 .xlsm， 使 其 恢复 为 Excel 工作 禾 。 


15.5.7 ”测试 定制 后 的 功能 区 








完成 上 述 操 作 后 ， 打 开 包 含 功 能 区 定制 的 工作 短 ， 如 果 一 切 工作 正常 ， 那 么 创建 的 自 定义 
选项 卡 及 其 中 包含 的 组 和 命令 都 会 正常 显示 在 功能 区 中 ， 如 图 15-48 所 示 ， 单 击 不 同 的 命令 可 


以 执行 相应 的 功能 。 


Ri 
开始 ”插入 ”页 面 布局 公式。 数据 


第 选 分 类 汇总 


数据 分 析 


图 15-48 ”定制 后 的 功能 区 
如 果 希 望 将 定制 的 功能 区 应 用 于 所 有 打 玫 





换 为 Excel 加 载 项 。 








窒 例 15-36.xlsm - Excel 


视图 开发 I 具 工具 箱 


AA ah Aa 

全 部 “全 部 “ 首 字 

大 号“4 写 母 大 写 
转 挽 大 小 写 





区 





F 的 工作 短 ， 则 需要 将 包含 功能 区 定制 的 工作 禾 转 








15.5.8 ”定制 功能 区 时 可 能 遇 到 的 问题 


在 定制 功能 区 的 过 程 中 可 能 会 遇 到 一 些 问 题 ， 这 些 问 题 通常 都 来 自 于 customUI.xml 文件 中 
包含 错误 的 拼写 或 其 他 问题 。 本 节 将 介绍 一 些 常见 问题 的 原因 及 解决 方法 。 





1. 不 符合 XML 语法 规则 的 内 容 

最 容易 出 现 的 错误 是 输入 的 代码 不 
符合 XML 语法 规则 。 例 如 ， 在 
customUI.xml 文件 中 编写 RibbonX 代码 
对 ，“<” 和 “> ”符号 本 应 该 成 对 出 现 ， 
但 是 却 少 输入 了 一 个 ， 此 时 就 会 显示 如 
图 15-49 所 示 的 错误 信息 ， 其 中 给 出 了 
出 错 的 行 、 列 位 置 ， 只 需 补 上 缺失 的 内 
容 即 可 修复 该 错误 。 





























窒 例 15-36-xsm 中 的 后 定义 UI 运行 时 错误 x 
在 'G:\ 罕 例 15-36xjsm "的 自 定义 UI XML 中 发 现 错误 : 

行 :16 

@ 天 


错误 代码 0xCO0CEE23 
要 求 > 


ea 
图 15-49 不 符合 XML 语法 规则 的 内 容 导致 的 错误 
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2. 在 DTD/ 架 构 中 未 找到 指定 属性 
在 编辑 customUI.xml 文件 中 的 RibbonX 代码 时 , 属性 名 必须 严格 区 分 大 小 写 。 比 如 将 idMso 


属性 写 为 IDMso， 将 会 显示 如 图 15-50 所 示 的 错误 信息 。 








案例 15-36.xlsm 中 的 自 定 义 UI 运行 时 错误 
在 'G:\ 宾 例 15-36.dsm 的 自 定 义 Ul XML 中 发 现 错误 : 


行 :5 
@ 列 : 31 
错误 代码 0x80004005 
未 在 DTD/ 积 构 中 定义 元 素 “(http://schema: 


En 
图 15-50 不 正确 的 属性 名 大 小 写 导致 的 错误 


oft.com/office/2006/01/customui}jgroup' 的 属性 IDMso'. 














3. 错乱 的 元 素 层次 结构 
在 编写 RibbonX 代码 时 ，customUI.xml 文件 中 的 结构 通常 具有 类 似 于 下 面 的 层次 结构 : 


<customUI> 
<ribbon> 
<tabs> 
<tab> 
<group> 
<button/> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 
如 果 元 素 的 层次 结构 错乱 ， 比 如 group 元 素 位 于 tab 元 素 上 方 ， 则 会 显示 如 图 15-51 所 示 的 


错误 信息 。 因 此 如 果 在 定制 功能 区 的 过 程 中 出 现 这 种 错误 ， 则 需要 检查 customULxml 文件 中 的 
元 素 结构 是 否 正确 并 进行 修正 。 


宾 例 15-36xlsm 中 的 自 定义 UI 运行 时 错误 




















在 'G} 窒 例 15-36.x4sm 的 自 定义 Ul XML 中 发 现 模 误 : 


行 4 
@ 列 : 30 
错误 代码 0x80004005 
根据 父 元 素 (httpy/ coryoffice/2006/01/customuiltabs 的 内 容 模型 , 元 素 http://schemas.microsoft.com/office/2006/01/customuilgroup' 为 意外 元 素 . 
fhice/2006/01/customuiytab. 






要 下 {httpy//sche 





Ce [en 
图 15-51 错乱 的 元 素 层次 结构 导致 的 错误 








4. 未 显示 预期 的 自 定义 功能 区 


如 果 在 测试 自 定义 功能 区 时 , 没有 出 
E.rels.xml 文件 中 没有 正确 建立 customUI.xml 文件 与 工人 





现任 何 错误 信息 , 但 却 没有 显示 自 定义 的 功能 区 控件 ， 
E 德 的 关联 。 





那么 问题 可 能 是 由 于 在 
5. 错误 的 参数 号 或 无 效 的 属性 值 
可 能 定制 的 功能 区 包含 正确 的 控件 和 一 切 期 望 的 外 观 显示 效果 ， 但 是 当 单 击 自 定义 控件 以 
执行 命令 时 ， 却 显示 如 图 15-52 所 示 的 错误 信息 , 该 信息 说 明 没 有 为 回调 的 VBA 过 程 指定 正确 
的 参数 ， 或 者 在 RibbonX 代码 中 没有 为 回调 的 属性 指定 正确 的 VBA 过 程 的 名 称 。 
根据 出 错 的 控件 在 RibbonX 代码 中 定义 的 控件 类 型 ， 需 要 在 编写 回调 的 VBA 过 程 时 指定 
相应 的 参数 ， 比 如 在 为 button 控件 创建 回调 的 VBA 过 程 时 需要 指定 如 下 参数 。 
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Sub 过 程 名 (ByRef Control Rs IRibbonControl) 


End Sub 





Microsoft Visual Basic for Applications = X 


用、 洁 的 台数 S 或 无 效 的 屋 性 至 值 


Ew=alEwa| 


图 15-52 ”VBA 过 程 缺少 控件 参数 时 的 错误 
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多 个 内 置 函 数 的 风 套 结构 的 公式 ， 对 于 很 多 用 户 来 说 这 堪 
算 任务 ，Excel 内 置 函 数 可 能 无 法 胜任 。 在 VBA 中 创建 用 


第 16 章 开发 用 户 自 定义 函数 


Excel 提供 了 上 百 个 内 置 函 数 ， 可 以 在 工作 表 公 式 中 使 用 这 些 函 数 执 行 不 同类 型 的 计算 任 
务 。 虽 然 用 户 五 


于 一 些 





决 以 上 
UDF) 。 本 章 首先 介绍 了 在 Function 过 程 可 以 使 用 的 参数 类 型 ， 然 后 介绍 了 创建 包含 不 同类 型 
参数 的 Function 过 程 的 方法 ， 最 后 介绍 了 使 用 VBA 开发 的 用 户 自 定义 函数 的 大 量 案例 。 


创建 的 Function 过 程 中 


块 中 。 


16.1.1 


使 用 





























竺 定 的 计 

















个 问题 ， 将 用 

















以 很 方便 地 使 用 这 些 内 置 函数 ， 但 在 面 对 一 些 复杂 问题 时 ， 仍 然 需要 构建 包含 
fF 不 是 一 项 简单 的 工作 。 另 一 方面 ， 对 

















16.1 用 户 自 定义 函数 基础 


本 节 将 介绍 创建 包含 不 同类 型 参数 的 用 户 自 定义 函数 的 方法 ， 其 中 的 案例 主要 用 于 说 明 在 








理解 Function 过 程 中 的 参数 
第 2 章 介绍 了 Function 过 程 的 语法 格式 和 创建 方法 ， 以 及 在 VBA 代码 中 和 工作 表 公 式 中 


Function 过 程 的 基本 方法 。 














Function 过 程 的 工作 方式 和 使 用 方式 ， 

及 其 语法 规则 ， 作 为 本 章 后 续 内 容 的 基础 。 
Function 过 程 中 的 参数 的 命名 规则 与 变量 的 命名 规则 相同 , 具体 请 参考 第 2 章 。 为 了 与 Excel 

内 置 函 数 的 英文 名 称 一 致 ， 用 户 创建 的 用 于 工作 表 公 式 的 Function 过 程 也 应 该 使 用 英文 名 称 。 


Function 过 程 











因此 本 节 主 要 介绍 Function 过 程 中 





户 自 定义 函数 可 以 解 


户 创建 的 Function 过 程 称 为 用 户 自 定义 函数 (User Defined Function， 











如 何 定义 和 使 用 不 同类 型 的 参数 ， 案 例 代 码 都 位 于 VBA 工程 的 标准 模 


由 于 参数 是 Function 过 程 的 重要 组 成 元 素 ， 会 直接 影响 到 














可 以 使 用 的 参数 类 型 











bh 的 参数 的 功能 和 用 法 与 变量 类 似 ， 而 且 参 数 是 一 个 不 需要 在 Function 过 程 中 声 





明 就 可 以 直接 使 用 的 变量 。 与 变量 类 似 ， 这 意味 着 参数 也 可 以 有 数据 类 型 。 可 以 创建 不 包含 任 
何 参数 的 Function 过 程 ， 也 可 以 创建 包含 一 个 或 多 个 参数 的 Function 过 程 ， 各 个 参数 之 间 以 去 
号 分 隔 。 参 数 的 个 数 可 以 是 固定 或 不 固定 的 。 也 可 以 像 Excel 内 置 函 数 和 VBA 内 置 函 数 那样 ， 
在 创建 的 Function 过 程 中 包含 必 选 参数 和 可 选 参数 。 
如 果 要 创建 包含 参数 的 Function 过 程 ， 则 需要 在 Function 过 程 名 称 右 侧 的 圆 括号 中 定义 参 


数 的 名 称 及 其 














数据 类 型 ， 参 数 的 语法 格式 如 下 : 





[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type] [= defaultvalue] 


口 Optional: 可 选 ， 使 用 Optional 关键 字 定义 的 参数 是 可 选 参数 ， 如 果 在 使 用 该 关键 字 定 





义 的 参数 之 后 还 有 其 他 参数 ， 则 这 些 参数 也 必须 是 可 选 的 ， 
Optional 关键 字 进 行 定义 。 在 使 用 Function 过 程 时 ， 可 以 省 略 由 














且 每 一 个 参数 都 需要 使 用 














参数 ， 这 样 将 会 自动 使 用 该 参数 的 默认 值 。 
口 ByVal 和 ByRef: 可 选 ， 参 数 是 按 值 传递 还 是 按 址 传递 ，ByRef 是 默认 的 传递 方式 。 


Optional 关键 字 定 义 的 
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口 ParamArray: 可 选 ， 使 用 该 关键 字 定义 的 参数 是 不 限 数量 的 可 选 参数 。 如 果 在 Function 
过 程 中 定义 了 多 个 参数 ， 则 使 用 ParamArray 关键 字 定 义 的 参数 必须 是 该 Function 过 程 
中 的 最 后 一 个 参数 。 
口 varname: 可 选 ， 参 数 的 名 称 。 
口 type: 可 选 ， 参 数 的 数据 类 型 。 可 为 变量 设置 的 数据 类 型 同样 适用 于 参数 ， 但 是 使 用 
ParamArray 关键 字 定义 参数 时 ， 该 参数 的 数据 类 型 只 能 是 Variant 类 型 的 数组 ， 参 数 名 
右 侧 必须 带 有 一 对 圆 括号 。 

口 defaultvalue: 可 选 ， 为 使 用 Optional 关键 字 定义 的 可 选 参数 提供 默认 值 。 

在 一 个 Function 过 程 中 ，Optional 关键 字 或 ParamArray 关键 字 不 能 同时 出 现 。 对 于 使 用 
Optional 关键 字 或 ParamArray 关键 字 定 义 的 可 选 参数 , 可 以 在 创建 的 Function 过 程 中 使 用 VBA 
为 置 的 IsMissing 函数 检查 是 否 省 略 了 可 选 参数 。 如 果 省 略 了 可 选 参数 ， 则 IsMissing 函数 将 返 
可 True， 和 否则 返回 False， 从 而 可 以 根据 是 否 省 略 了 可 选 参数 来 执行 不 同 的 计算 。 

另 一 个 与 函数 相关 的 内 容 是 函数 的 易 失 性 。 易 失 性 是 指 在 工作 表 的 任意 单元 格 中 进行 计算 
或 编辑 时 ， 易 失 性 函数 都 会 自动 重新 计算 。 可 以 使 用 Application 对 象 的 Volatile 方法 为 用 户 自 
定义 函数 设置 易 失 性 , 该 方法 有 一 个 参数 , 如 果 为 True 则 将 用 户 自 定义 函数 设置 为 易 失 性 函数 ， 
如 果 为 False 则 将 用 户 自 定 义 函数 设置 为 非 易 失 性 函数 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 True。 
看 的 代码 都 用 于 为 函数 设置 易 失 性 ,它们 的 功能 相同 ， 唯 一 区 别 在 于 是 否 省 略 了 作为 Volatile 
方法 的 参数 的 默认 值 True。 


Application.Volatile 
Application.Volatile True 


16.1.2 ”创建 不 包含 任何 参数 的 函数 


Excel 内 置 的 一 些 工 作 表 函数 不 包含 任何 参数 ， 比 如 NOW 和 TODAY 函数 。 在 VBA 中 也 
可 以 创建 类 似 的 不 包含 任何 参数 的 Function 过 程 ， 格 式 如 下 : 
Function 函数 名 () 



















































































本 














End Function 


案例 16-1 创建 返回 单元 格 所 在 工作 表 的 名 称 的 函数 

下 面 的 代码 创建 了 一 个 不 包含 任何 参数 的 GetWorksheetName 函数 ， 该 函数 返回 输入 该 函 
数 的 单元 格 所 在 的 工作 表 的 名 称 。Application 对 象 的 Caller 属性 返回 调用 函数 的 对 象 。 因 为 是 
在 工作 表单 元 格 中 输入 函数 ， 因 此 返回 的 是 函数 所 在 单元 格 的 Range 对 象 ， 然 后 使 用 Range 对 
象 的 Parent 属性 返回 其 上 一 级 的 Worksheet 对 象 , 最 后 使 用 Worksheet 对 象 的 Name 属性 返回 工 
作 表 的 名 称 。 


Function GetWorksheetName () 
GetWorksheetName = Application.Caller.Parent.Name 
End Function 


在 工作 表 公 式 中 输入 该 函数 时 ， 只 需 输 入 函数 的 名 称 和 一 对 圆 括号 ， 然 后 按 Enter 键 后 得 
到 计算 结果 ， 如 图 16-1 所 示 。 

当 修改 工作 表 的 名 称 时 ，GetWorksheetName 函数 的 计算 结果 不 会 自动 更 新 , 需要 进入 函数 
所 在 单元 格 的 编辑 状态 ， 然 后 按 Enter 键 才 能 使 函数 返回 修改 后 的 工作 表 名 称 ， 或 者 按 
Ctrl+Alt+F9 组 合 键 强制 重新 计算 工作 表 。 为 了 让 函数 具有 自动 更 新 功能 ， 可 以 在 Function 过 程 
中 加 入 下 面 的 语句 : 
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Application.Volatile 





Al 磊 =GetWorksheetName0 
A B C D 
工 lSheetl 
3 
4 
Sheet1 了 











图 16-1 在 工作 表 公式 中 使 用 不 包含 参数 的 函数 











案例 16-2 ”创建 可 自动 更 新 的 函数 
下 面 的 代码 创建 了 与 上 一 个 案例 相同 的 GetWorksheetName 函数 ， 区 别 在 于 本 例 使 用 了 


























Application 对 象 的 Volatile 方法 ， 使 函数 成 为 易 失 性 函数 ， 具 有 自动 更 新 功能 。 当 修改 函数 所 
在 的 工作 表 的 名 称 时 ， 函 数 的 计算 结果 会 立刻 显示 修改 后 的 工作 表 名 称 。 


中 
函 
则 


类 











Function GetWorksheetName () 

Application.Volatile 

GetWorksheetName = Application.Caller.Parent.Name 
End Function 


由 于 Function 过 程 具有 返回 值 , 因 为 可 以 在 创建 Funtion 过 程 时 指定 其 返回 值 的 数据 类 型 。 
的 代码 表示 创建 的 GetWorksheetName 函数 的 返回 值 的 数据 类 型 为 String。 如 果 不 指定 
数 的 返回 值 类 型 ， 则 默认 为 Variant 数据 类 型 ， 这 一 点 与 在 声明 变量 时 指定 数据 类 型 的 规 
相同 。 

Function GetWorksheetName () As String 

注意 : 如 果 创 建 Function 过 程 时 为 其 指定 的 数据 类 型 ， 与 其 在 实际 使 用 中 的 返回 值 的 数据 
型 不 一 致 ， 则 会 返回 错误 值 #VALUE!。 





























16.1.3 创建 包含 一 个 参数 的 函数 


不 包含 参数 的 函数 通常 用 于 返回 Excel 中 的 一 些 特定 信息 ， 比 如 Excel 用 户 名 、Excel 安装 








路 径 、 工 作 短路 径 、 工 作 短 或 工作 表 的 名 称 等 。 只 有 在 函数 中 包含 参数 ， 才 能 处 理 用 户 输入 的 
数据 ， 并 将 结果 返回 给 用 户 。 可 以 创建 包含 一 个 参数 的 Function 过 程 ， 格 式 如 下 : 


键 


中 




















Function 函数 名 (参数 名 Rs 数据 类 型 ) 

End Function 

如 果 不 指 定 参数 的 数据 类 型 ， 则 默认 为 Variant 数据 类 型 。 

案例 16-3 ”创建 计算 数字 平方 根 的 函数 

下 面 的 代码 创建 了 一 个 只 包含 一 个 参数 的 函数 ， 该 函数 的 功能 与 VBA 内 置 的 SQR 函数 相 
于 计算 给 定数 字 的 平方 根 。 给 定数 字 由 该 函数 的 参数 提供 ， 参 数 的 数据 类 型 为 Integer。 


Function Sqr (intNum As Integer) 
Sqr = intNum ^ (1 / 2) 
End Function 


在 工作 表 公 式 中 输入 该 函数 ， 并 使 用 一 个 数字 或 包含 数字 的 单元 格 作为 其 参数 ， 按 Enter 
后 将 计算 出 该 数字 的 平方 根 ， 如 图 16-2 所 示 。 

需要 注意 的 是 ， 由 于 本 例 创建 的 Function 过 程 与 VBA 内 置 的 Sqr 函数 同名 ， 因 此 在 代码 
使 用 VBA 内置 的 Sqr 函数 时 ， 需 要 在 函数 名 前 添加 类 型 库 的 限定 符 ， 即 VBA.Sqr。 
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Al £ =sqr(9) B1 党 五 =sqr(A1) 
A B 人 D A B © D 站 
1 al | qd al 
图 16-2 在 工作 表 公 式 中 使 用 只 包含 一 个 参数 的 函数 














16.1.4 创建 包含 两 个 参数 的 函数 





如 果 需 要 在 函数 中 处 理 两 个 输入 值 ， 则 可 以 创建 包含 两 个 参数 的 Function 过 程 ， 参 数 之 间 


以 逗号 分 隔 ， 格 式 如 下 : 
Function 函数 名 (参数 名 Rs 数据 类 型 ， 参 数 名 Rs 数据 类 型 ) 





End Function 


案例 16-4 ”创建 进行 四 则 运算 的 函数 





下 
行 连 加 、 
类 型 为 








而 的 代码 创建 了 一 个 包含 两 个 参数 的 SuperCal 函数 ， 用 于 计算 指定 区 域 中 
连 减 、 连 乘 或 连 除 。 第 一 个 参数 表示 一 个 单元 格 区 域 ， 第 二 个 参数 表示 一 个 运算 符 ， 


aa 


0、 减 、 乘 、 除 中 的 一 种 。 为 了 避免 初始 值 为 0 时 执行 运算 返回 错误 值 ， 


的 所 有 数字 进 





因此 使 用 一 个 


变量 判断 当前 处 理 的 是 否 是 第 一 个 单元 格 中 的 值 ， 如 果 是 则 将 第 一 个 值 赋 值 给 函数 名 本 身 ， 以 


初始 化 其 
如 果 在 函数 中 指定 了 加 、 减 、 乘 、 除 以 外 的 其 他 运算 符 ， 则 函数 将 返 


加 、 减 、 乘 、 除 中 的 一 个 运算 符 ， 按 Enter 键 后 将 计算 出 指定 单元 格 








值 。 如 果 当 前 处 理 的 不 是 第 一 个 值 ， 则 根据 在 函数 中 指定 的 运算 符 执 行 相应 的 运算 。 
回 “ 无 效 的 运算 符 ” 文 本 。 











Function SuperCal (rngs As Range, operator As String) 
Dim rng As Range, i As Integer 
For Each rng In rngs 
If IsNumeric(rng.Value) Then 
me 
IE i1= 1 Then 
SuperCal = rng.Value 
Else 
Select Case operator 


Case "+": SuperCal = SuperCal + rng.Value 


Case "-": SuperCal = SuperCal - rng.Value 
Case "*": SuperCal = SuperCal * rng.Value 
Case "/": SuperCal = SuperCal / rng.Value 
Case Else: SuperCal = "无 效 的 运算 符 " 
End Select 
End If 
End If 
Next rng 


End Function 
在 工作 表 公 式 中 输入 该 函数 ， 将 第 一 个 参数 设置 为 一 个 单元 格 区 域 ， 将 第 二 个 参数 设置 为 


区 域 的 连 加 、 连 减 、 连 乘 








或 连 除 ， 如 图 16-3 所 示 。 





Cl 友 =SuperCal(A1-A4."+ C2 ” 大 =SuperCal(A1A4 -) 
A B C D E A B C D 

1 2 连 加 14! 2 连 加 14 

2 3 连 减 -10 2 3 连 减 -10| 

3 4 连 乘 120 3 4 连 乘 120 

4 5 连 除 0.033333333 4 5 连 除 0.033333333 














包含 两 个 参数 的 函数 

















图 16-3 ”在 工作 表 公式 中 使 
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C3 4 到 =SuperCal(A1.A4."* C4 了 到 =SuperCal(A1:A4,/ 
A B C D E A B C D 

1 2 连 加 14 1 2 连 加 14 

2 3 连 减 -10 2 3 连 减 -10 

3 4 连 乘 120] 3 4 连 乘 120 

4 5 连 除 0033333333 4 5 连 除 0.033333333] 




















图 16-3 在 工作 表 公 式 中 使 用 包含 两 个 参数 的 函数 〈 续 ) 


16.1.5 创建 包含 可 选 参数 的 函数 


很 多 Excel 内 置 函 数 都 包含 可 选 参数 。 可 选 参数 意味 着 在 输入 函数 的 参数 时 可 以 将 其 省 略 。 
例如 ，Excel 内 置 的 工作 表 函 数 LEFT 用 于 从 字符 串 左 侧 开始 提取 指定 数量 的 字符 。 该 函数 包含 
两 个 参数 ， 第 一 个 参数 是 必 选 参数 ， 表 示 要 从 中 提取 字符 的 字符 串 ， 第 二 个 参数 是 可 选 参 数 ， 
表示 要 从 字符 串 中 提取 的 字符 数 。 如 果 在 输入 LEFT 函数 的 参数 时 省 略 了 第 二 个 参数 ， 即 只 输 
入 了 第 一 个 参数 ， 那 么 Excel 会 自动 将 第 二 个 参数 设置 为 1， 因 此 下 面 两 个 公式 是 等 效 的 。 


=LEFT (A1, 1) 
=LEFT (A1) 


创建 用 户 自 定义 函数 时 也 可 以 为 Function 过 程 定义 可 选 参数 。 为 此 需要 将 Optional 关键 字 
添加 到 希望 成 为 可 选 参数 的 参数 左 侧 ， 然 后 将 省 略 可 选 参数 时 为 其 指定 的 默认 值 通 过 等 号 赋值 
给 该 参数 ， 格 式 如 下 : 

Function 函数 名 (参数 名 ，OPtional 参数 名 = 默认 值 ) 






























































End Function 


案例 16-5 ”创建 包含 指定 默认 值 的 可 选 参数 的 函数 

下 面 的 代码 与 上 一 个 案例 中 创建 的 SuperCal 函数 类 似 ， 不 同 之 处 在 于 将 该 函数 的 第 二 个 参 
数 定义 为 可 选 参数 。 当 省 略 该 参数 时 ， 将 默认 使 用 “+” 运 算 符 对 单元 格 区 域 进行 求 和 ， 如 图 
16-4 所 示 。 


Function SuperCal (rngs As Range, Optional operator = "+") 
Dim rng As Range, i As Integer 
For Each rng In rngs 
If IsNumeric(rng.Value) Then 
FS 
IE i = 1 Then 
SuperCal = rng.Value 
Else 
Select Case operator 
Case "+": SuperCal = SuperCal + rng.Value 
Case "-": SuperCal = SuperCal - rng.Value 
Case "*":; SuperCal = SuperCal * rng.Value 
Case "/": SuperCal = SuperCal / rng.Value 
Case Else: SuperCal = "无 效 的 运算 符 " 
End Select 
End If 
End If 
Next rng 
End Function 


实际 上 也 可 以 在 定义 可 选 参数 时 不 为 其 指定 默认 值 ， 而 是 在 Function 过 程 内 部 使 用 VBA 
内 置 的 IsMissing 函数 检查 是 否 提供 了 可 选 参数 如果 该 函数 返回 True, 则 说 明 省 略 了 可 选 参数 ， 
此 时 可 以 为 可 选 参数 设置 一 个 值 。 使 用 这 种 方法 检查 是 否 省 略 了 可 选 参数 时 ， 必 须 在 定义 可 选 
参数 时 将 其 数据 类 型 设置 为 Variant。 
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B1 和 £ =SuperCal(A1A4 


: 2| 
2 3 
3 4 
4 和 














图 16-4 在 工作 表 公式 中 使 用 包含 可 选 参数 的 函数 


案例 16-6 ”创建 包含 未 指定 默认 值 的 可 选 参数 的 函数 

下 面 的 代码 与 上 一 个 案例 类 似 ， 区 别 在 于 在 定义 可 选 参数 时 没有 为 其 指定 默认 值 ， 而 且 没 
有 为 可 选 参数 设置 特定 的 数据 类 型 ， 因 此 其 数据 类 型 为 Variant。 然 后 在 Function 过 程 内 部 使 用 
IsMissing 函数 检查 是 否 省 略 了 可 选 参数 ， 如 果 省 略 了 该 参数 ， 则 将 “+” 运 算 符 赋值 给 该 参数 。 


Function SuperCal (rngs As Range, Optional operator 
Dim rng As Range, i As Integer 
If IsMissing(operator) Then operator = "+" 
For Each rng In rngs 
If IsNumeric(rng.Value) Then 
:人 
If i = 1 Then 
SuperCal = rng.Value 
Else 
Select Case operator 
Case "+": SuperCal = SuperCal + rng.Value 
Case "-": SuperCal = SuperCal - rng.Value 
Case "*": SuperCal = SuperCal * rng.Value 
Case "/": SuperCal = SuperCal / rng.Value 
Case Else: SuperCal = "无 效 的 运算 符 " 
End Select 
End If 
End If 
Next rng 
End Function 


16.1.6 ”创建 包含 不 定数 量 参数 的 函数 


一 些 Excel 内 置 的 工作 表 函 数 可 以 包含 不 定数 量 的 参数 ， 比 如 SUM 函数 。 用户 创 建 的 自 定 
义 函 数 也 可 以 包含 不 定数 量 的 参数 .为 此 需要 使 用 ParamArray 关键 字 将 参数 定义 为 一 个 Variant 


数据 类 型 的 数组 ， 并 且 该 参数 必须 是 Function 过 程 中 的 最 后 一 个 参数 ， 格 式 如 下 : 


Function 函数 名 (ParamArray 参数 名 () ) 




































































End Function 


5 使 用 Optional 关键 字 定义 可 选 参 数 类 似 ,使 用 ParamArray 关键 字 定义 的 参数 也 是 可 选 参 数 。 


案例 16-7 ”创建 计算 不 定数 量 的 参数 总 和 的 函数 

下 面 的 代码 创建 了 一 个 包含 不 定数 量 参数 的 函数 ， 用 于 计算 所 有 参数 中 的 数字 之 和 ， 这 些 
参数 的 形式 可 以 是 直接 输入 的 数字 、 单元 格 或 单元 格 区 域 , 如 图 16-5 所 示 。 虽然 在 创建 Function 
过 程 时 只 使 用 ParamArray 关键 字 定义 了 一 个 参数 , 但 在 实际 使 用 中 ,可 以 在 该 函数 中 添加 多 个 
参数 。 代 码 中 使 用 VBA 内 置 的 IsNumeric 函数 检查 参数 是 否 是 有 效 的 数字 ， 如 果 是 才 会 进行 指 
定 的 计算 。 


Function SuperSum(ParamRrray numbers () ) 
Dim rng As Variant, num As Variant 
For Each num In numbers 
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If Application.WorksheetFunction.CountA(num) > 1 Then 
For Each rng In num 
If IsNumeric(rng) Then 
SuperSum = SuperSum + rng 
End If 
Next rng 
Else 
If IsNumeric (num) Then 
SuperSum = SuperSum + num 
End If 
End If 
Next num 
End Function 





到 | =SuperSum(A1A2.B1.B3) 





























和 £ =SuperSum(A1A2! 
A B C D E E A B C D E 站 

和 1 1 1 一 个 区 域 之 和 3 1 1 1 1 一 个 区 域 之 和 3 

2 2 2 2 两 个 区 域 之 和 9 wl 2 2 2 两 个 区 域 之 和 引 

3 3 3 三 个 区 域 之 和 19| 3 3 3 三 个 区 域 之 和 19 

4 4 常量 与 区 域 之 和 25 4 4 常量 与 区 域 之 和 25 

5 5 

E3 加 到 =SuperSum(A1A2,81:B3.C1:C4 4 大 =SuperSum(1,2,3,A1:A2,B1:B3,C1:C4) 
A B C D E A B C D E 

1 1 1 1 一 个 区 域 之 和 3 1 1 1 一 个 区 域 之 和 3 

2 2 2 2 两 个 区 域 之 和 9 2 2 2 2 两 个 区 域 之 和 9 

引 3 3 三 个 区 域 之 和 19] 3 3 3 三 个 区 域 之 和 19 

4 4 常量 与 区 域 之 和 25 4 4 常量 与 区 域 之 和 [25] 

5 

















图 16-5 在 工作 表 公 式 中 使 用 包含 不 定数 量 参数 的 函数 








| 
nT 

















我 们 也 可 以 使 用 IsMissing 函数 检查 由 ParamArray 关键 字 定义 的 参数 是 否 被 省 略 了 。 旧 














使 用 ParamArray 关键 字 定 义 的 参数 是 一 个 数组 ， 因 此 需要 在 For Each 循环 结构 中 遍历 数组 
使 用 下 面 的 代码 检查 数组 中 的 每 个 元 素 是 否 被 省 略 了 。 如 果 没 被 省 略 ， 则 执行 相应 的 操作 。 


Function SuperSum(ParamRrray numbers()) 
Dim rng As Variant, num As Variant 
For Each num In numbers 

If Not IsMissing (num) Then 
要 执行 的 操作 
End If 
Next num 
End Function 


16.1.7 创建 返回 数组 的 函数 

















在 使 用 公式 处 理 很 多 复杂 计算 任务 时 ， 通 常 都 需要 借助 数组 公式 来 完成 。 按 Ctrl+Shift+Enter 
组 合 键 输入 的 公式 都 是 数组 公式 ， 这 也 是 与 普通 公式 在 输入 方法 上 最 显著 的 区 别 。 可 以 在 VBA 























中 创建 返回 数组 的 Function 过 程 ， 有 以 下 两 种 方法 : 
口 将 VBA 内 置 的 Array 函数 产生 的 Variant 数组 赋值 给 函数 名 。 








口 在 Function 过 程 内 部 创建 一 个 数组 ， 然 后 使 用 循环 结构 为 数组 赋值 ， 再 将 数组 赋值 给 函 








数 名 。 
下 面 通过 两 个 案例 说 明 使 用 这 两 种 方式 创建 返回 数组 的 函数 的 方法 。 


案例 16-8 使 用 Array 函数 创建 返回 数组 的 函数 


















































下 面 的 代码 创建 了 一 个 返回 数组 的 函数 , 用 于 在 一 行 或 一 列 的 连续 12 个 单元 格 中 输入 一 年 





12 个 月 的 名 称 。 该 函数 包含 了 一 个 可 选 参数 ， 用 于 确定 在 一 行 还 是 一 列 中 输入 ， 如 果 将 该 参数 
设置 为 h， 表 示 在 一 行 中 输入 ， 如 果 将 该 参数 设置 为 v， 表 示 在 一 列 中 输入 。 如 果 省 略 该 参数 ， 
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则 默认 按 列 输入 。 使 用 Array 函数 创建 的 是 水 平 数组 ， 为 了 获得 垂直 数组 ， 需 要 使 
数 Transpose 对 水 平 数 组 进行 转 置 。 


Function MonthNames (Optional orientation) 
Dim avarMonths As Variant 
VarMonthe sm Wray lv er 几 3 月 RPR 及 三 关 全 汪 RNGL 亲本 
人 
If IsMissing(orientation) Then orientation = 
Select Case orientation 
Case "h" 
MonthNames = 
Case "v" 


"7 月" 


ny" 


avarMonths 


工作 表 函 





"8 月"，"9 


MonthNames = Application.WorksheetFunction.Transpose (avarMonths) 


Case Else 
MonthNames 
End Select 
End Function 


"输入 了 无 效 的 参数 " 


在 工作 表 中 输入 该 函数 时 ， 需 要 在 一 行 或 一 列 中 选择 连续 的 12 个 单元 格 ， 然 后 输入 该 函数 
及 其 参数 ， 按 Ctrl+Shift+Enter 组 合 键 后 将 在 选区 中 输入 12 个 月 的 名 称 ， 如 图 16-6 所 示 。 如 果 


省 略 函 数 的 参数 ， 则 在 一 列 中 输入 12 个 月 的 名 称 。 









































Al > £ | {=MonthNames('V Al > £ | {=MonthNames0} 
B C D E F B C D E F 
1 
3 
4 
6 
8 
9 
10 
11 
12 
Al > ££ | {=MonthNames("h")} 
A B C D E E G 上 1 ] K EE M 
111 月 2 月 3 月 4 月 5 月 6 月 7 月 8 月 9 有 10 月 11 月 12 月 
图 16-6 在 工作 表 公 式 中 使 用 返回 数组 的 函数 




















案例 16-9 ”通过 循环 结构 为 数组 赋值 来 创建 返回 数组 的 函数 




















与 上 一 个 案例 相同 。 


Function MonthNames (Optional orientation) 

Dim avarMonths (1 To 12) As Variant, intIndex As Integer 
For intIndex = 1 To 12 
avarMonths (intIndex) = intIndex & "月 " 

Next intIndex 
If IsMissing(orientation) Then orientation = "v" 
Select Case orientation 
Case "h" 
MonthNames = 
Case "v” 


avarMonths 


下 面 的 代码 使 用 在 For Next 循环 结构 中 为 数组 赋值 的 方式 来 创建 并 赋值 数组 。 之 后 的 代码 


MonthNames = Application.WorksheetFunction.Transpose (avarMonths) 


Case Else 


本 
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MonthNames = "输入 了 无 效 的 参数 " 
End Select 
End Function 


16.1.8 创建 返回 错误 值 的 函数 
在 工作 表 公式 中 使 用 Excel 内 置 函数 时 ， 如 果 参 数 的 数据 类 型 不 正确 、 引 用 了 无 效 的 单元 
格 或 其 他 任何 无 法 被 函数 识别 的 内 容 , 函数 将 会 根据 错误 类 型 返回 相应 的 错误 值 , 比如 #VALUE! 
和 #N/A。 
可 以 在 用 户 创建 的 Function 过 程 中 使 用 VBA 内 置 的 CVErr 函数 来 实现 类 似 的 功能 。 该 函 
数 有 一 个 参数 ， 表 示 一 个 有 效 的 错误 号 。 如 果 希 望 CVErr 函数 可 以 返回 Excel 工作 表 公 式 中 的 
7 个 错误 值 之 一 ， 则 需要 使 用 XICVError 常量 作为 该 函数 的 参数 ， 表 16-1 列 出 了 该 常量 的 值 及 
其 对 应 的 Excel 工作 表 公 式 中 的 错误 值 。 


表 16-1 XICVError 常量 






























































名 称 说 了 明 
xlErrDiv0 对 应 于 错误 值 #DIV/0! 
xlErNA 对 应 于 错误 值 #N/A 
xlErrName 对 应 于 错误 值 #NAME? 
xlErrNull 对 应 于 错误 值 #NULL! 
xlErrNum 对 应 于 错误 值 #NUM! 
xlErrRef 对 应 于 错误 值 #REF! 
xlErrValue 对 应 于 错误 值 #VALUE! 


案例 16-10 ”创建 可 检查 错误 并 返回 错误 值 的 函数 

下 面 的 代码 与 前 面 案 例 中 创建 SuperCal 函数 的 代码 类 似 , 区 别 在 于 本 例 中 使 用 CVErr 函数 
在 用 户 输入 指定 范围 以 外 的 运算 符 时 返回 特定 的 错误 值 ， 如 图 16-7 所 示 ， 而 不 是 普通 文本 。 函 
数 返 回 的 错误 值 由 xlErrValue 常量 值 决 定 。 


Function SuperCal (rngs As Range, Optional operator 
Dim rng As Range, i As Integer 
If IsMissing(operator) Then operator = "+" 
For Each rng In rngs 
pe 
EE J Tin 
SuperCal = rng.Value 
Else 
Select Case operator 
Case "+": SuperCal = SuperCal + rng.Value 
Case "-": SuperCal = SuperCal - rng.Value 
Case "*": SuperCal = SuperCal * rng.Value 
Case "/": SuperCal = SuperCal / rng.Value 
Case Else: SuperCal = CVErr (xlErrValue) 
End Select 
End If 
Next rng 
End Function 
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B1 和 磊 
A B C 


=SuperCal(A1A4\) 


D E F 








图 16-7 在 工作 表 公式 中 使 用 返回 错误 值 的 函数 


16.1.9 为 用 户 自 定 义 函 数 添加 帮助 信息 
在 Excel 窗口 中 单 击 编辑 栏 左 侧 的 “插入 函数 





选择 类 别 ” 下 拉 列 表 中 选择 任意 一 个 内 置 函 数 类 别 ， 比 如 “数学 与 三 角 函 数 ”。 然 后 在 下 方 的 
列表 框 中 选择 一 个 内 置 函数 ， 比 如 SUM， 可 以 看 到 该 函数 的 语法 格式 和 功能 的 简要 说 明 ， 如 图 





16-8 所 示 。Excel 内 置 函数 都 自 带 这 种 帮助 信息 。 


用 户 在 VBA 中 创建 的 Function 过 程 默 认 位 于 “用 户 定义 ”类 别 中 ， 并 且 不 包含 任何 帮助 
信息 ， 如 图 16-9 所 示 。 如 果 将 用 户 自 定义 函数 共享 给 其 他 人 使 用 ， 没 有 帮助 信息 的 函数 很 难 让 




















”标记 友 ， 打 开 “ 插 入 函数 ”对 话 框 ， 在 “或 




















人 理解 其 功能 和 使 用 方法 。 

插入 函数 和 x 插入 函数 了 x 
搜索 函数 (S): 搜索 函数 (S): 

请 纺 入 一 冬 简短 说明 来 往 述 算 旭 伏 什 么 ， 然 后 单 去 - 转 到 ” | | 转 到 (G) 请 纶 入 一 科 简 汉 癌 明 来 拓 述 低下 做 什么 ， 然 后 单 去 - 转 到 ” | | 转 到 (G) 
或 渤 反 类 别 (C):| 数学 与 三 角 国 数 ~| 或 这 类别 (C): 用 户 定义 -| 

远 择 本 数 (N): 选择 函数 (N): 

SQRT | [GetWorkshectName | 
SQRTPI MonthNames 

SUBTOTAL Sqr 

SuperCal 

SUMIF |SuperSum 

SUMIFS 

SUMPRODUCT v| | 

SUM(numberl,number2,...) GetWorksheetName0 

计算 单元 格 区 域 中 所 有 数值 的 和 设 有 帮助 信息 

ea 本 le 画 

















图 16-8 Excel 内 置 函数 包含 帮助 信息 


图 16-9 用 户 自 定义 函数 默认 不 包含 帮助 信息 




















可 以 为 用 户 创 建 的 自 定义 函数 添加 类 似 于 Excel 内 置 函 数 的 帮助 信息 ， 还 可 以 将 用 户 自 定 
义 函 数 添 加 到 “用 户 定义 ”以 外 的 其 他 内 置 函数 类 别 或 新 建 的 类 别 中 。 使 用 Application 对 象 的 
MacroOptions 方法 可 以 实现 以 上 两 项 功能 ， 该 方法 的 语法 格式 如 下 : 


MacroOptions (Macro, Description, HasMenu 


, MenuText, HasShortcutKey, ShortcutKey, 


Category, StatusBar, HelpContextID, HelpFile, ArgumentDescriptions) 
MacroOptions 方法 包含 多 个 参数 ， 最 常用 的 是 以 下 3 个 参数 。 
口 Macro: 要 设置 帮助 信息 的 Function 过 程 的 名 称 。 


口 Description: 对 函数 功能 的 说 明 信 息 。 
口 Category: 要 将 Function 过 程 划分 到 的 函 


数 类 别 的 名 称 或 编号 ， 可 以 是 Excel 内 置 函 数 


类 别 ， 也 可 以 是 新 建 的 类 别 。 表 16-2 列 出 了 Excel 中 的 函数 类 别名 称 及 其 编号 ， 某 些 类 





别 不 会 显示 在 “插入 函数 ”对 话 框 中 。 
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口 ArgumentDescriptions: 对 函数 参数 的 说 明 信 息 。 该 参数 的 内 容 是 一 个 Variant 数据 类 型 
的 数组 ， 可 以 使 用 Array 函数 进行 设置 。Array 函数 中 表示 参数 说 明 信 息 的 每 一 个 参数 ， 
与 用 户 自 定义 函数 中 的 每 一 个 参数 一 一 对 应 。 


表 16-2 Excel 内 置 的 函数 类 别 






























































类 别名 称 类 别 编 号 
全 部 0 
财务 1 
日 期 与 时 间 2 
数字 与 三 角 函 数 3 
统计 4 
查找 与 引用 5 
数据 库 6 
文本 了 
逻辑 8 
信息 9 
命令 10 
自 定义 11 
宏 控 件 12 
DDE/ 外 部 13 
用 户 定义 14 
工程 15 
多 维 数据 集 16 
兼容 性 17 
Web 18 


案例 16-11 为 用 户 自 定义 函数 分 类 并 添加 帮助 信息 
而 的 代码 为 前 面 案例 中 创建 的 SuperCal 函数 添加 帮助 信息 ， 并 将 其 划分 到 “信息 ”类 别 
中 。 由 于 没有 设置 Category 参数 ， 因 此 该 函数 仍然 位 于 “用 户 定义 ”类 别 中 。 
Sub 为 用 户 自 定义 函数 添加 帮助 信息 () 

Dim strDes As String, avarArg As Variant 

strDes = "对 单元 格 区 域 中 的 所 有 数字 执行 连 加 、 连 减 、 连 乘 、 连 除 的 计算 " 

avarArg = Array ("要 进行 计算 的 单元 格 区 域 "，" 要 执行 的 计算 类 型 ") 

Application.MacroOptions macro:="SuperCal", Description:=strDes, ArgumentDescriptions:= 


avarArg 
End Sub 


只 需 运行 一 次 上 面 的 代码 ， 无 论 以 后 何 时 启动 Excel 并 打开 该 工作 短 ， 都 会 始终 在 包含 该 
函数 的 工作 敌 中 生效 。 在 “插入 函数 ”对 话 框 的 “用 户 定义 ”类 别 中 将 会 显示 该 函数 的 帮助 信 
息 ， 如 图 16-10 所 示 。 单 击 “ 确 定 ” 按 钮 ， 在 打开 的 “函数 参数 ”对 话 框 中 将 会 显示 该 函数 的 
参数 的 说 明 信 息 。 
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插入 函数 


搜索 函数 (S): 

请 给 入 一 冬 简 短 说 明 来 摘 述 您 想 做 什么 ， 然 后 单 去 " 转 到 ” 
同 
| 


或 选择 类 别 ( 〇 : 用 户 定义 
选择 函数 (N): 


开发 用 户 自 定义 函数 








GetWorksheetName 
MonthNames 


SuperSum 





Sqr 





SuperCal(rngs,operator) 
对 单元 格 区 域 中 的 所 有 数字 执行 连 加 、 连 减 、 连 冬 、 连 除 的 计算 








卫 数 名 数 
SuperCal 
Rngs | 


Operator 


| | | 对 章 元 格 区 域 中 的 所 有 数字 执行 连 加 、 连 减 、 连 乘 、 连 除 的 计算 


Rngs 要 进行 计算 的 单元 格 区 域 


计算 结果 = 
丰 关 这 基数 的 帮助 (H 





取消 








16-10 ”为 用 户 自 定义 函数 添加 帮助 信息 


提示 : 还 可 以 使 用 “ 宏 选 项 ”对 话 框 为 用 户 自 定义 函 数 添加 帮助 信息 ， 但 不 能 添加 参数 的 
说 明 信 息 。 按 AlttF8 组 合 键 打开 “ 宏 ” 对 话 框 ， 在 “ 宏 名 ”文本 框 中 输入 要 添加 帮助 信息 的 用 
户 自 定义 函数 的 名 称 。 单 击 “ 选 项 ”按钮 ， 打 开 “ 宏 选项 ”对 话 框 ， 在“ 说明” 文本 框 中 为 函 


数 添加 帮助 信息 ， 如 图 16-11 所 示 。 





宏 迁 项 


去 名 : 


说 明 (D): 





SuperCal 
快 建 键 (9: 


Ctrl+ 


对 单元 格 区 域 中 的 所 有 数字 执行 连 加 、 连 减 、 连 篆 、 连 除 的 | 
计算 











为 了 可 以 在 Excel 上 


户 自 定义 函数 的 工作 矢 转 换 为 Excel 加 载 项 , 然后 在 Excel 中 安装 该 加 载 项 。 在 任意 了 
用 加 载 项 中 的 用 户 自 定义 函数 时 ， 不 需要 在 函数 名 称 前 添 力 
载 项 的 具体 方法 请 参考 第 22 章 。 


装 Excel 略 


图 16-11 在 “ 宏 选 项 ”对 话 框 中 为 函数 添加 帮助 信息 


hb 新 建 或 打开 的 任意 一 个 工作 短 中 使 用 用 户 自 定义 函数 ， 可 以 将 包含 用 
C 作 簿 中 使 


对 加 载 项 工作 短 的 引用 。 创 建 与 安 











需要 注意 的 是 , 如 果 使 用 了 前 面 介绍 的 方法 在 加 载 项 中 为 用 户 自 定义 函数 添加 了 帮助 信息 ， 











则 需要 在 


载 项 工作 短 的 VBE 窗口 中 执行 一 次 用 于 为 用 户 

















程 。 只 需 执行 一 次 ， 即 可 在 以 后 始终 显示 函数 的 帮助 信息 。 


16.2 开发 用 户 自 定义 函数 


本 节 介 绍 了 一 些 使 用 VBA 开发 的 用 户 


定义 函数 添加 帮助 信息 的 Sub 过 






































定义 函数 案例 , 使 用 这 些 函 数 可 以 简化 


I 














Excel VBA 编程 实战 宝典 





















































案例 的 代码 都 位 于 VBA 工程 的 标准 模块 中 。 


16.2.1 ”从 文本 左 侧 提取 连续 的 数字 
案例 16-12 ”创建 从 文本 左 侧 提取 连续 数字 的 函数 























的 内 置 函 数 构造 的 复杂 公式 ， 还 可 以 实现 Excel 内 置 函数 无 法 完成 的 任务 。 此 外 ， 本 节 还 介绍 
了 一 些 专门 在 VBA 中 使 用 的 自 定义 函数 ， 这 些 函 数 不 会 出 现在 “插入 函数 ”对 话 框 中 ， 它 们 
于 在 编写 VBA 代码 时 执行 安全 性 检查 ， 以 免 执 行 无 效 的 操作 而 导致 程序 错误 。 本 节 中 所 有 


下 面 的 代码 所 创建 的 函数 用 于 从 文本 左 侧 开始 提取 连续 的 数字 ， 直 到 遇 到 下 一 个 不 是 数字 











VBA 内 置 的 








的 字符 停止 ， 如 图 16-12 所 示 。 该 函数 包含 一 个 参数 ， 表 示 要 提取 的 文本 。 使 








Mid 函数 从 指定 文本 中 逐个 提取 每 一 个 字符 ， 然 后 使 用 ISNumeric 判断 当前 提取 的 字符 是 否 是 
数字 。 如 果 是 数字 ， 则 使 用 intNumCount 变量 记录 当前 提取 出 的 数字 个 数 ， 然 后 将 该 数字 赋值 
给 函数 名 并 与 函数 中 之 前 存储 的 数字 合并 在 一 起 ,再 使 用 CLng 函数 将 结果 转换 为 数值 型 数据 。 




















Bl ~ 到 =GetLeftNumbers(Al 
B C D 
1 ee | 
2 |20Excel16 20 
3 |201Excel6 201 
4 |2016Excel 2016 
5 |E2x01c6el 2 
6 |Ex20c16el 20 
7 lExc201e6l 201 
8 |Exce2016| 2016 
9 |Excel 2016 2016 
10 2016 2016 
11 |Excel 
12 
图 16-12 从 文本 左 侧 提取 连续 的 数字 
如 果 不 是 数字 ， 则 执行 Else 子 句 中 的 在 语句， 判断 当前 是 否 已 经 提取 了 至 少 一 个 数字 。 如 
果 文 本 的 第 一 个 字符 是 非 数 字 字 符 ， 则 不 满足 该 条 件 。 如 果 文本 开头 是 连续 的 非 数字 字符 ， 也 


不 满足 该 条 件 。 只 有 当 提 取 了 至 少 一 个 数字 ， 并 在 下 次 再 次 遇 到 非 数 字 字 符 时 ， 
并 退出 Function 过 程 。 





才 满 足 该 条 件 


为 了 避免 在 文本 中 没有 数字 的 情况 下 函数 返回 0， 因 此 需要 检查 记录 数字 个 数 的 
intNumCount 变量 是 否 为 0, 如 果 为 0 则 说 明文 本 中 不 包含 数字 , 此 时 将 空 字符 串 赋值 给 函数 名 ， 











表示 函数 返回 空白 。 


Function GetLeftNumbers (str) 
Dim intIndex As Integer, strTemp Rs String 
Dim intNumCount As Integer 
Application.Volatile 
For intIndex = 1 To Len(str) 
strTemp = Midl(str, intIndex, 1) 
If IsSNumeric (strTemp) Then 
intNumCount = intNumCount + 1 
GetLeftNumbers = CLng (GetLeftNumbers & strTemp) 
Else 
If intNumCount > 0 Then 
Exit Function 
End If 
End If 
Next intIndex 
If intNumCount = 0 Then GetLeftNumbers = "" 
End Function 
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16.2.2 ”将 数字 中 的 每 一 位 输入 到 连续 的 多 个 单元 格 中 

案例 16-13 ”创建 将 数字 中 的 每 一 位 输入 到 连续 多 个 单元 格 中 的 函数 

如 果 要 将 一 个 单元 格 中 的 多 位 数字 中 的 每 一 位 数字 输入 到 连续 的 多 个 单元 格 中 ， 则 需要 构 Bi 
建 包含 多 个 函数 嵌 套 的 数组 公式 。 为 了 简化 数组 公式 的 复杂 性 ， 可 以 在 VBA 中 创建 实现 相同 
功能 的 Function 过 程 。 下 面 的 代码 所 创建 的 函数 用 于 将 数字 中 的 每 一 位 输入 到 连续 的 多 个 单元 
格 中 。 
首先 判断 参数 中 的 内 容 是 否 是 数字 ， 如 果 不 是 则 显示 预先 指定 的 提示 信息 ， 并 将 空 字符 串 
赋值 给 函数 名 后 退出 Function 过 程 。 如 果 是 数字 则 确定 数字 的 位 数 ， 然 后 使 用 该 位 数 作为 数组 
的 上 界 重 新 定义 数组 的 大 小 。 之 后 在 For Next 循环 结构 中 依次 提取 数字 的 每 一 位 并 保存 到 从 索 
引号 1 开始 依次 递增 的 每 一 个 数组 元 素 中 。 最 后 将 数组 元 素 中 的 所 有 内 容 赋 值 给 函数 名 。 


Function SplitNumbers (number) 
Dim aintNumbers() As Integer 
Dim intCount As Integer, intIndex As Integer 
Application.Volatile 
If Not IsNumeric (number) Then 
MsgBox "参数 不 是 数字 " 
SplitNumbers = "" 
Exit Function 
End If 
intCount = Len (number) 
ReDim aintNumbers (1 To intCount) Rs Integer 
For intIndex = 1 To intCount 
aintNumbers (intIndex) = CInt (Mid(number, intIndex, 1)) 
Next intIndex 
SplitNumbers = aintNumbers 
End Function 


在 一 行 中 选择 相应 数量 的 单元 格 , 输入 公式 后 按 Ctrl+Shift+Enter 组 合 键 以 数组 公式 的 形式 
输入 ， 会 将 数字 中 的 每 一 位 依次 输入 到 选区 中 的 每 一 个 单元 格 中 ， 如 图 16-13 所 示 。 也 可 以 选 
择 将 拆 分 后 的 每 一 个 数字 输入 到 一 列 中 的 多 个 单元 格 中 ， 为 此 需要 在 一 列 中 选择 多 个 单元 格 ， 
然后 使 用 TRANSPOSE 函数 将 水 平 数组 转换 为 垂直 数组 ， 类 似 于 下 面 的 公式 ， 同 样 需 要 按 
Ctrl+Shift+Enter 组 合 键 以 数组 公式 的 形式 输入 。 


=TRANSPOSE (SplitNumbers (A1)) 
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12345 
1234 
4 123 
5 12 











B1 = 五 | {=TRANSPOSE(SplitNumbers(A1)} 
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图 16-13 将 数字 中 的 每 一 位 输入 到 连续 的 多 个 单元 格 中 
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16.2.3 ”返回 区 域 中 第 一 个 非 空 单元 格 的 地 址 


案例 16-14 ”创建 返回 区 域 中 第 一 个 非 空 单元 格 地 址 的 函数 

i 下 面 的 代码 所 创建 的 函数 用 于 返回 指定 区 域 中 第 一 个 非 空 单元 格 的 地 址 。 该 函数 有 一 个 参 
数 ， 表 示 要 检查 的 单元 格 区 域 。 在 工作 表 中 输入 公式 时 ， 为 该 函数 指定 一 个 单元 格 区 域 ， 可 以 
将 整 行 或 整 列 作为 函数 的 参数 。 输 入 公式 后 按 Enter 键 将 会 返回 指定 区 域 中 第 一 个 包含 数据 的 

单元 格 的 地 址 ， 如 图 16-14 所 示 。 


Function GetFirstValueCell (rng As Range) 
Dim rngCell As Range 
Application.Volatile 
For Each rngCell In rng 
If rngCell.Value <> "" Then 
GetFirstValueCell = rngCell.Address (0, 0) 
Exit Function 
End If 
Next rngCell 
GetFirstValueCell = "指定 区 域 中 没有 任何 内 容 " 


End Function 


如 果 某 个 单元 格 中 包含 下 面 的 公式 ， 即 使 单元 格 显示 为 空白 ， 但 其 内 部 包含 了 一 个 长 度 为 
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0 的 字符 串 。 上 面 创建 函数 不 会 认为 这 样 的 单元 格 是 包含 内 容 的 ， 如 图 16-15 所 示 。 
Cl 机 ££ =GetFirstValueCell(A1:AS. 
A 立 D 
1 A3 ! 
3 1 
4 2 
5 3 
6 6 
图 16-14 返回 区 域 中 第 一 个 非 空 图 16-15 包含 空 字符 串 的 单元 格 不 被 认为 是 
单元 格 的 地 址 非 空 单元 格 


























为 了 解决 这 个 问题 ， 需 要 将 上 面 的 代码 中 的 下 判断 条 件 改 为 下 面 的 形式 ， 使 用 Empty 函 
数 检查 单元 格 是 否 为 空 ， 如 图 16-16 所 示 。 

If rngCell.Value <> "" Then 

改 为 


If Not IsEmpty(rngCell.Value) Then 











案例 16-15 ”创建 返回 区 域 中 最 后 一 个 非 空 单 元 格 地 址 的 函数 
下 面 的 代码 所 创建 的 函数 用 于 返回 指定 区 域 中 最 后 一 个 非 空 单元 格 的 地 址 ， 如 图 16-17 所 









































"380。 


第 16 章 ”开发 用 户 自 定义 函数 














示 。 由 于 要 返回 的 是 区 域 中 最 后 一 个 非 空 单元 格 的 地 址 ， 因 此 需要 从 区 域 中 的 最 后 一 个 单元 格 
开始 区 域 的 开头 查找 包含 数据 的 单元 格 。Range 对 象 的 Count 属性 可 以 返回 区 域 中 的 单元 格 总 
数 ， 在 Range 对 象 的 Cells 属性 中 使 用 一 个 索引 号 可 以 引用 区 域 中 的 特定 单元 格 ， 本 例 正 是 使 
这 种 方式 在 For Next 循环 结构 中 根据 区 域 中 的 单元 格 总 数 来 遍历 其 中 的 每 一 个 单元 格 。 使 
IsEmpty 函数 检查 单元 格 是 否 为 空 ,如 果 不 是 则 将 单元 格 的 地 址 赋值 给 函数 名 ， 并 退出 Function 
Function GetLastValueCell (rng As Range) 
Dim lngIndex As Long 
Application.Volatile 
For lngIndex = rng.Count To 1 Step -1 
If Not IsEmpty (rng.Cells (lngIndex) .Value) Then 
GetLastValueCell = rng.Cells (lngIndex) .Address (0, 0) 
Exit Function 
End If 
Next lngIndex 
GetLastValueCell = "指定 区 域 中 没有 任何 内 容 " 


End Function 





























































































































Cl 大 | =GetLastValueCell(A1:B10 
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图 16-17 返回 区 域 中 最 后 一 个 非 空 单元 格 的 地 址 


16.2.5 返回 包含 特定 内 容 的 所 有 单元 格 的 地 址 


案例 16-16 ”创建 返回 包含 特定 内 容 的 所 有 单元 格 地 址 的 函数 

下 面 的 代码 所 创建 的 函数 用 于 返回 区 域 中 包含 特定 内 容 的 所 有 单元 格 的 地 址 。 该 函数 包含 两 
个 参数 ,mg 参数 表示 要 在 其 中 查找 特定 内 容 的 单元 格 区 域 ，find 表示 要 查找 的 文本 。 如 果 找到 多 
个 符合 要 求 的 单元 格 ， 则 会 显示 所 有 这 些 单元 格 地 址 ， 并 使 用 逗号 分 隔 它们 ， 如 图 16-18 所 示 。 















































C2 - £ || =GetValueOfCells(A1:B6,F 
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1 A F 包含 宇 母 F 的 单元 格 是 
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图 16-18 返回 包含 特定 内 容 的 所 有 单元 格 的 地 址 



































使 用 For Each 循环 结构 遍历 由 mg 参数 表示 的 指定 区 域 中 的 每 一 个 单元 格 , 然后 使 用 VBA 
内 置 的 InStr 函数 判断 单元 格 中 的 内 容 是 否 包含 要 查找 的 内 容 ， 如 果 找到 则 InStr 函数 将 会 返回 
一 个 大 于 0 的 值 。 此 时 判断 用 于 存储 符合 条 件 的 单元 格 地 址 的 变量 是 否 为 空 ， 如 果 为 空 则 说 明 
其 中 还 不 包含 任何 单元 格 地 址 ， 这 时 就 将 当前 找到 的 单元 格 地 址 赋值 给 该 变量 ， 如 果 不 为 空 ， 
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则 将 找到 的 单元 格 地 址 与 该 变量 中 的 已 有 地 址 连接 在 一 起 并 以 逗号 分 隔 。 
完成 对 所 有 单元 格 的 查找 后 ， 判 断 包含 单元 格 地 址 的 变量 是 否 为 空 ， 如 果 为 空 则 将 指定 的 
文本 信息 赋值 给 函数 名 ， 否 则 将 包含 符合 条 件 的 单元 格 地址 赋值 给 函数 名 。 
Function GetValueOfCells(rng Rs Range, find Rs String) 
Dim strAddress As String, rngCell As Range 
Application.Volatile 


For Each rngCell In rng 
If Instr(rngCell.Text, find) > 0 Then 














IE strAddress = "" Then 
strAddress = rngCell.Address (0, 0) 
Else 
strAddress = strAddress & "," & rngCell.Address (0, 0) 
End If 
End If 


Next rngCell 
IE strAddress = "" Then 
GetValueOfCells = "未 找到 合适 的 单元 格 " 
Else 
GetValueOfCells = strAddress 
End If 
End Function 


16.2.6 ”统计 区 域 中 不 重复 值 的 数量 


案例 16-17 ”创建 统计 区 域 中 不 重复 值 数量 的 函数 
下 面 的 代码 所 创建 的 函数 用 于 统计 指定 区 域 中 不 重复 值 的 数量 , 如 图 16-19 所 示 。 代码 中 
声明 了 一 个 集合 对 象 colUniqueValues， 用 于 存储 不 重复 的 值 。 在 For Each 循环 结构 中 遍历 指 
定 区 域 中 的 每 一 个 单元 格 ， 然 后 使 用 集合 对 象 的 Add 方法 将 单元 格 中 的 值 ， 以 及 值 的 字符 串 
形式 添加 到 集合 中 。 由 于 集合 对 象 的 Add 方法 要 求 其 第 二 参数 必须 为 String 数据 类 型 ， 因 此 
需要 使 用 CStr 函数 将 单元 格 中 的 值 强制 转换 为 String 数据 类 型 。 最 后 使 用 集合 对 象 的 Count 
属性 统计 集合 中 不 重复 值 的 数量 ， 并 将 其 赋值 给 函数 名 。 为 了 避免 在 向 集合 中 添加 重复 值 时 
出 现 运 行 时 错误 ， 需 要 在 执行 集合 对 象 的 Add 方法 之 前 使 用 On Error Resume Next 语句 忽略 
所 有 错误 。 
Function CountUniqueValues (rng As Range) 
Dim colUniqueValues As Collection, rngCell As Range 
Application.Volatile 
Set colUniqueValues = New Collection 
On Error Resume Next 
For Each rngCell In rng 
colUniqueValues.Add rngCell.Value, CStr(rngCell.Value) 
Next rngCell 
On Error GoTo 0 


CountUniqueValues = colUniqueValues.Count 
End Function 
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图 16-19 统计 区 域 中 不 重复 值 的 数量 
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16.2.7 ”逆序 排列 单元 格 中 的 内 容 


案例 16-18 ”创建 逆序 排列 单元 格 中 内 容 的 函数 

下 面 的 代码 所 创建 的 函数 用 于 将 指定 单元 格 中 的 内 容 逆序 排列 ， 如 图 16-20 所 示 。 该 函数 
包含 一 个 参数 ， 表 示 要 逆序 排列 其 内 容 的 单元 格 。 首 先 使 用 VBA 内 置 的 Trim 函数 删除 单元 格 
中 所 有 额外 的 空格 ， 然 后 将 单元 格 中 的 内 容 赋值 给 strOld 变量 。 接 下 来 使 用 VBA 内 置 的 Mid 
函数 从 strOld 变量 中 的 第 一 个 位 置 开始 依次 提取 每 一 个 字符 , 并 将 其 与 strNew 变量 中 的 文本 连 
接 ， 这 样 就 得 到 了 经 过 逆序 排列 后 的 内 容 。 为 了 使 逆序 排列 后 的 内 容 的 数据 类 型 与 原始 内 容 一 
致 ， 需 要 使 用 ISNumeric 函数 判断 原始 内 容 是 否 是 数字 ， 如 果 是 则 使 用 CDbl 将 逆序 排列 后 的 内 
容 转换 为 数值 型 ， 如 果 不 是 则 保持 原来 的 数据 类 型 。 


Function Reverse (rng As Range) 
Dim strOld As String, strNew As String 
Dim intIndex As Integer 
Application.Volatile 
strold = Trim(rng.Value) 
For intIndex = 1 To Len(strOld) 
strNew = Mid(strOld, intIndex, 1) & strNew 
Next intIndex 
If IsNumeric(rng.Value) Then 
Reverse = CDbl (strNew) 
Else 
Reverse = strNew 
End If 
End Function 
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图 16-20 逆序 排列 单元 格 中 的 内 容 


16.2.8” 按 单元 格 背 景色 对 单元 格 中 的 数据 求 和 

案例 16-19 ”创建 按 单元 格 背景 色 对 单元 格 中 的 数据 求 和 的 函数 

下 面 的 代码 所 创建 的 函数 用 于 对 单元 格 区域 中 具有 与 指定 单元 格 背 景色 相同 的 单元 格 进行 
求 和 ， 如 图 16-21 所 示 。 该 函数 包含 两 个 参数 ，rgColor 参数 表示 作为 背景 色 参 照 基准 的 单元 
格 ，rngSum 参数 表示 要 求 和 的 单元 格 区 域 。 
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图 16-21 按 单元 格 背 景色 对 单元 格 中 的 数据 求 和 
使 用 For Each 循环 结构 遍历 要 求 和 的 单元 格 区 域 中 的 每 一 个 单元 格 ， 然 后 在 下 语句 中 判断 
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单元 格 的 背景 色 是 否 与 第 一 参数 指定 的 单元 格 的 背景 色相 同 ， 如 果 是 则 将 单元 格 中 的 值 累 加 到 
函数 名 表示 的 变量 中 ， 并 将 结果 赋值 给 函数 名 。Range 对 象 的 Interior 属性 返回 Interior 对 象 ， 
该 对 象 的 Color 属性 用 于 设置 单元 格 的 背景 色 。 


Function SumBYColor (rngColor Rs Range, rngSum Rs Range) 
Dim rngCell As Range 
Application.Volatile 
For Each rngCell In rngSum 
If rngCell.Interior.Color = rngColor.Interior.Color Then 
SumByColor = SumByColor + rngCell.Value 
End If 
Next rngCell 
End Function 


16.2.9 执行 多 种 类 型 的 计算 

案例 16-20 ”创建 执行 多 种 类 型 计算 的 函数 

下 面 的 代码 所 创建 的 函数 用 于 执行 5 种 类 型 的 计算 ， 实 现 了 SUM、COUNT、AVERAGE、 
MAX 和 MIN 工作 表 函 数 的 基本 功能 ， 如 图 16-22 所 示 。 该 函数 包含 两 个 参数 ，rmg 参数 表示 要 
进行 计算 的 单元 格 区域 ，operator 参数 表示 计算 的 类 型 ， 包 括 以 下 5 种 : 求 和 、 计 数 、 平 均值 、 
最 大 值 、 最 小 值 ， 通 过 输入 任 一 文本 可 对 指定 的 单元 格 区 域 执行 相应 的 计算 。 


到 | =MultiCal(A1A10" 求 和 


















































2 1 天 ss] . 


2 计数 10 
3 平均 值 55 
4 最 大 值 10 
5 景 小 值 1 








16-22 ”执行 多 种 类 型 的 计算 


实现 本 例 多 种 计算 类 型 功能 的 关键 在 于 使 用 WorksheetFunction 对 象 的 方法 调用 相应 的 工 
作 表 函数 ， 通 过 在 Select Case 判断 结构 中 检查 operator 参数 的 值 来 调用 不 同 的 工作 表 函 数 执行 
相应 的 计算 。 


Function MultiCal (rng As Range, operator As String) 
With Application.WorksheetFunction 
Select Case operator 















































Case " 求 和 " 

MultiCal = .Sum(rng) 
Case "计数 " 

MultiCal = .Count (rng) 
Case "平均 值 " 

MultiCal = .Average (rng) 
Case "最 大 值 " 

MultiCal = .Max(rng) 
Case "最 小 值 " 

MultiCal = .Min(rng) 


Case Else 
MultiCal = CVErr (xlErrNA) 
End Select 
End With 
End Function 
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16.2.10 ”返回 所 有 工作 表 指 定 区 域 中 的 最 大 值 


案例 16-21 创建 返回 所 有 工作 表 指 定 区 域 中 最 大 值 的 函数 上 才 

下 面 的 代码 所 创建 的 函数 用 于 返回 所 有 工作 表 指定 区 域 中 的 最 大 值 ， 如 图 16-23 所 示 。 该 
函数 包含 一 个 参数 ， 表 示 要 返回 最 大 值 的 单元 格 区 域 。 在 为 函数 指定 一 个 单元 格 区 域 后 ， 该 函 
数 返回 的 是 公式 所 在 工作 矢 中 所 有 工作 表 中 该 单元 格 区 域 的 最 大 值 。 
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图 16-23 返回 所 有 工作 表 指 定 区 域 中 的 最 大 值 


首先 将 Excel 中 可 以 接受 的 最 小 值 赋值 给 一 个 dblMax 变量 。 然 后 在 For Each 循环 结构 中 遍 
历 公式 所 在 的 工作 短 中 的 每 一 个 工作 表 。 通 过 WorksheetFunction 对 象 使 用 工作 表 函 数 Max 统 
计 工 作 表 指定 区 域 中 的 最 大 值 ， 并 将 其 赋值 给 dblMaxTemp 变量 。 然 后 比较 dblMax 和 
dblMaxTemp 变量 的 大 小 ， 如 果 dblMaxTemp 变量 的 值 大 于 dblMax 变量 ， 则 将 统计 出 的 最 大 值 
赋值 给 dblMax 变量 。 之 后 遍历 每 个 工作 表 时 重复 进行 以 上 操作 ， 最 终 dbIMax 变量 中 存储 的 就 
是 所 有 工作 表 指 定 区 域 中 的 最 大 值 。 如 果 所 有 工作 表 中 指定 区 域 中 的 值 都 不 大 于 Excel 所 能 接 
受 的 最 小 值 ， 那 么 将 dblMax 变量 设置 为 0。 最 后 将 dbIMax 变量 的 值 赋值 给 函数 名 。 

Application.Caller 返回 包含 使 用 本 例 自 定义 函数 的 公式 所 在 单元 格 的 Range 对 象 。 
Application.Caller.Parent Parent 相当 于 返回 公式 所 在 单元 格 的 Range 对 象 的 上 两 级 对 象 ， 即 
Workbook 对 象 ， 然 后 再 使 用 该 对 象 的 Worksheets 属性 返回 公式 所 在 工作 短 的 工作 表 和 集合 。 


Function MaxInAllSheets (rng As Range) 
Dim wks As Worksheet, rngCell As Range 
Dim dblMax As Double, dblMaxTemp As Double 
Application.Volatile 
dblMax = -9E+307 
For Each wks In Application.Caller.Parent.Parent.Worksheets 
dblMaxTemp = Application.WorksheetFunction.Max (wks.Range (rng.Address)) 
If dblMaxTemp > dblMax Then dblMax = dblMaxTemp 
Next wks 
If dblMax = -9E+307 Then dblMax = 0 
MaxInAllSheets = dblMax 
End Function 


16.2.11 判断 文件 是 否 存在 

从 本 节 开 始 将 介绍 一 些 在 VBA 中 使 用 的 自 定义 函数 ,它们 可 以 对 代码 中 要 进行 的 操作 执行 
安全 性 检查 。 

案例 16-22 ”创建 判断 文件 是 否 存在 的 函数 

在 VBA 中 对 文件 执行 打开 、 删 除 等 操作 之 前 ， 应 该 先 检查 文件 是 否 存 在 ， 从 而 避免 出 现 
运行 时 错误 。 下 面 的 代码 所 创建 的 函数 用 于 检查 指定 的 文件 是 否 存 在 ， 如 果 文 件 存在 则 返 
True， 和 否则 返回 False。 将 该 函数 声明 为 Boolean 数据 类 型 ， 因 此 函数 返回 的 是 逻辑 值 True 或 
False。 该 函数 包含 一 个 String 数据 类 型 的 参数 ， 表 示 文 件 的 完整 路 径 。 使 用 VBA 内 置 的 Dir 
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函数 检查 指定 的 文件 路 径 ， 如 果 该 函数 返回 的 不 是 空 字符 串 ， 则 说 明文 件 存在 ， 否 则 说 明文 
件 不 存在 。 


Function IsFileExists (filename Rs String) As Boolean 











If Dir(filename) <> "" Then 
IsFileExists = True 
Else 
IsFileExists = False 


End If 
End Function 


于 Dir(filename)<>"" 本 身 返 回 的 就 是 逻辑 值 ， 因 此 本 例 代码 还 可 以 简化 为 以 下 形式 : 
Function IsFileExists (filename As String) As Boolean 

IsFileExists = (Dir(filename) <> "") 
End Function 


16.2.12 ”判断 工作 簿 是 否 已 被 打开 


案例 16-23 ”创建 判断 工作 簿 是 否 已 打开 的 函数 

当前 打开 的 每 一 个 工作 短 都 被 添加 Workbooks 集合 中 。 如 果 要 操作 某 个 工作 夭 ， 则 需要 先 
确定 其 是 否 已 被 打开 ， 操 作 未 被 打开 的 工作 簿 将 会 出 现 运 行 时 错误 。 下 面 的 代码 所 创建 的 函数 
于 检查 指定 的 工作 敌 是 否 已 被 打开 ， 如果 已 打开 则 返回 True， 和 否则 返回 False。 该 函数 包含 一 
个 参数 ， 表 示 工 作 敌 的 名 称 。 通 过 将 特定 名 称 的 工作 短 的 引用 赋值 给 Workbook 类 型 的 变量 ， 
然后 判断 该 变量 是 否 为 Nothing 来 判断 当前 是 否 打开 了 特定 名 称 的 工作 夭 。 在 使 用 Set 语句 赋值 
和 必须 使 用 On Error Resume Next， 以 避免 工作 短 未 被 打开 时 出 现 的 运行 时 错误 。 


Function IsWorkbookOpen (name As String) As Boolean 
Dim wkb As Workbook 
On Error Resume Next 
Set wkb = Workbooks (name) 
If wkb Is Nothing Then 
IsWorkbookOpen = False 
Else 
IsWorkbookOpen = True 
End If 
End Function 


16.2.13 ”判断 工作 表 是 否 存在 


案例 16-24 ”创建 判断 工作 表 是 否 存在 的 函数 

操作 不 存在 的 工作 表 时 也 会 出 现 运行 时 错误 ， 因 此 在 操作 前 必须 先 确定 特定 的 工作 表 是 否 
存在 。 下 面 的 代码 所 创建 的 函数 用 于 判断 指定 的 工作 表 是 否 存 在 ， 如 果 存 在 则 返回 True， 和 否则 
返回 False。 判 断 方 法 与 上 一 个 案例 类 似 。 


Function IsWorksheetExists (name As String) As Boolean 
Dim wks As Worksheet 
On Error Resume Next 




































































































































































Set wks = Worksheets (name) 
If wks Is Nothing Then 
IsWorksheetExists = False 
Else 
IsWorksheetExists = True 
End If 
End Function 
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16.2.14 判断 名 称 是 否 存在 
案例 16-25 ”创建 判断 名 称 是 否 存在 的 函数 





下 面 的 代码 所 创建 的 函数 用 























于 判断 指定 的 名 称 是 否 存 在 ， 如 果 存 在 则 返回 True， 和 否则 返回 





False。 本 例 代 码 与 上 一 个 案例 类 似 ， 区 别 在 于 本 例 没 有 检查 通过 名 称 赋值 后 的 Range 对 象 是 否 
为 Nothing， 而 是 检查 Err 对 象 的 Number 属性 的 值 是 否 为 0， 如 果 为 0 则 说 明 没 出 现 运行 时 错 


误 ， 说 明 





指定 的 名 称 存在 ， 如 果 不 为 0 则 说 明 出 现 了 运行 时 错误 ， 说 明 指 定 的 名 称 不 存在 。 








Function IsNameExists (name As String) Rs Boolean 


Dim rng As Range 
On Error Resume Next 
Set rng = Range (name) 


If Err.number = 0 Then 
IsNameExists = True 


Else 


IsNameExists = False 


End If 


End Function 


16.2.15 ”从 文件 的 完整 路 径 中 提取 文件 名 


案例 16-26 ”创建 从 文件 的 完整 路 径 中 提取 文件 名 的 函数 
和 于 从 文件 的 完整 路 径 中 提取 文件 名 。 该 函数 包含 一 个 参数 ， 表 加 


下 
示 文 件 
始 依次 























面 的 代码 所 创建 的 函数 
的 完整 路 径 。 在 For Next 














向 开头 搜索 第 一 个 遇 到 的 





循环 结构 中 使 用 一 个 计数 器 变量 从 文件 路 径 的 最 后 一 个 字符 开 
路 径 分 隔 符 “\”， 如 果 找 到 则 退出 For Next 循环 结构 ， 此 时 的 





计数 器 变量 中 的 值 就 是 路 径 分 隔 符 所 在 的 字符 位 置 。 如 果 在 完成 For Next 循环 时 一 直 没 找到 路 
径 分 隔 符 ， 则 计数 器 变量 的 值 为 0， 会 超过 终止 值 。 最 后 使 用 VBA 内 置 的 Right 函数 从 文件 路 
径 中 最 后 一 个 分 隔 符 的 右 侧 提 取 文 件 名 。 


Function GetFileName (fullname As String) As String 
Dim intIndex As Integer 
For intIndex = Len(fullname) To 1 Step -1 
If Mid(fullname，intIndex，1) = "\" Then Exit For 





Next intIndex 


GetFileName = Right (fullname, Len(fullname) - intIndex) 
End Function 
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文件 和 文件 夹 的 处 理 是 VBA 编程 中 必 不 可 少 的 操作 。 虽然 Excel 对 象 模型 中 包括 用 于 处 理 
Excel 文件 的 对 象 , 但 是 如 果 想 要 对 计算 机 中 的 任何 文件 和 文件 夹 进行 各 种 相关 操作 ， 比 如 获取 
驱动 器 和 文件 信息 ， 对 文件 进行 复制 、 删 除 、 重 命名 ， 以 及 处 理 文本 文件 等 ， 则 需要 借助 VBA 
的 内 置 语句 和 函数 或 使 用 FSO 对 象 模型 中 的 对 象 。 用 于 处 理 文件 和 文件 夹 的 VBA 内 置 语句 和 
函数 是 相对 传统 的 方法 ， 而 使 用 FSO 对 象 模型 来 处 理 文 件 和 文件 夹 则 更 简单 也 更 高 效 。 本 章 将 
以 使 用 FSO 对 象 模型 处 理 文件 和 文件 夹 为 主 进行 介绍 ， 但 是 在 一 些 操作 中 也 会 同时 介绍 使 
VBA 内 置 语句 和 函数 完成 相同 功能 的 方法 。 





















































17.1 VBA 内 置 功 能 与 FSO 对 象 模型 简介 


在 VBA 中 可 以 使 用 两 种 方法 处 理 文件 和 文件 夹 , 一 种 方法 是 使 用 VBA 内 置 的 语句 和 函数 ， 
另 一 种 方法 是 使 用 Scripting 类 型 库 中 的 FSO 对 象 模型 中 的 对 象 及 其 属性 和 方法 。 本 节 将 介绍 这 
两 种 方法 的 一 些 基础 知识 。 它 们 在 文件 和 文件 夹 方面 的 具体 应 用 将 在 本 章 后 面 的 内 容 中 进行 详 
细 介 绍 。 


17.1.1 处 理 文件 和 文件 夹 的 VBA 内 置 语句 和 函数 


VBA 提供 了 用 于 处 理 文件 和 文件 夹 的 内 置 语句 和 函数 ， 见 表 17-1。 这 些 语句 和 函数 可 以 分 
为 以 下 两 类 : 一 类 用 于 返回 文件 和 文件 夹 的 信息 ， 另 一 类 用 于 对 文件 和 文件 夹 执行 特定 操作 。 


表 17-1 处 理 文件 和 文件 夹 的 VBA 内 置 语句 和 函数 









































































































































语句 和 函数 说 明 
ChDir 语句 改变 当前 目录 
ChDrive 语句 改变 当前 驱动 器 
CurDir 函数 返回 当前 目录 
Dir 函数 返回 与 指定 格式 或 文件 属性 相 匹配 的 文件 名 或 目录 
EOF 函数 判断 是 否 到 达 文件 的 结尾 
FileAttr 函数 返回 使 用 Open 语句 打开 文件 的 方式 
FileCopy 语句 复制 文件 
FileDateTime 函数 返回 最 后 一 次 修改 文件 的 日 期 和 时 间 
FileLen 函数 返回 文件 的 大 小 ， 以 字 节 为 单位 
FreeFile 函数 返回 下 一 个 可 供 Open 语句 使 用 的 文件 号 
GetAttr 函数 返回 文件 的 属性 
Input 语句 从 打开 的 顺序 文件 中 读 出 数据 并 将 其 指定 给 变量 
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续 表 
语句 和 函数 说 明 
Input 函数 返回 从 打开 的 文件 中 读 取 的 指定 数量 的 字符 
Line Input 语句 从 打开 的 顺序 文件 中 读 取 一 行 数据 并 将 其 指定 给 变量 
LOF 函数 返回 使 用 Open 语句 打开 文件 的 大 小 ， 以 字 节 为 单位 
Kill 语句 删除 文件 
MkDir 语句 创建 一 个 新 的 文件 夹 
Name 语句 重 命名 文件 或 文件 夹 
Open 语句 打开 文件 
了 Print 语句 将 格式 化 显示 的 数据 写 入 顺序 文件 
RmDir 语句 删除 空 文件 夹 
SetAttr 语句 设置 文件 的 属性 








Tab 函数 


与 Print 语句 一 起 使 用 ， 用 于 指定 写 入 数据 的 位 置 





17.1.2 ”FSO 对 象 模型 简介 


FSO 是 FileSystemObject 的 简称 ， 即 文件 系统 对 象 模型 。 与 Excel 对 象 模型 类 似 ，FSO 对 象 
模型 提供 了 一 系列 用 于 处 理 文件 和 文件 夹 的 对 象 ， 可 以 对 文件 和 文件 夹 进行 各 种 处 理 ， 包 括 创 





建 、 重 命名 、 移 动 、 











复制 、 删 除 、 显 示 相关 信息 等 。 与 VBA 内 置 的 语句 和 函数 相 比 ， 使 用 FSO 


对 象 模型 处 理 文件 和 文件 夹 更 系统 也 更 方便 。 
FSO 对 象 模型 包含 在 Scripting 类 型 库 〈Scrrun.Dll 文件 ) 中 ， 该 对 象 模型 中 包含 与 文件 和 





文件 夹 操 作 相关 的 


Folders、Files 三 个 


FileSystemObject、Drive、Folder、File 和 TextStream 五 个 对 象 以 及 Drives、 
集合 。 各 对 象 的 作用 如 下 : 


口 FileSystemObject 对 象 : FSO 对 象 模型 中 的 核心 对 象 ， 包 含 对 驱动 器 、 文 件 夹 和 文件 的 


各 种 操作 。 








FileSystemObject 对 象 包括 其 他 4 个 对 象 所 能 实现 的 大 多 数 功 能 ， 因 此 本 章 





将 以 FileSystemObject 对 象 的 属性 和 方法 为 主 介 绍 如 何 处 理 文件 和 文件 夹 。 
FileSystemObject 对 象 只 有 一 个 Drivers 属性 ， 用 于 返回 所 有 驱动 器 的 集合 ， 通 过 该 集合 

















可 以 返回 指定 的 驱动 器 (Drive 对 象 ) ， 然 后 由 驱动 器 再 继续 向 下 返回 文件 夹 〈Folder 





对 象 ) 和 文 
表 17-2 列 册 

















件 (File 对 象 ) 。 在 到 达 每 一 级 对 象 时 ， 都 可 以 使 用 当前 对 象 的 属性 和 方法 。 
了 FileSystemObject 对 象 的 所 有 方法 。 


口 Drive 对 象 和 Drives 集合 : 处 理 驱 动 器 (磁盘 分 区 ) 的 相关 操作 ，Drives 表示 多 个 驱动 


器 的 集合 。 





表 17-3 列 出 了 Drive 对 象 的 属性 。 


口 Folder 对 象 和 Folders 集合 : 处 理 文件 夹 的 相关 操作 ，Folders 表示 多 个 文件 夹 的 集合 。 


表 17-4 列 H 
口 File 对 象 和 


了 File 对 象 的 属性 。 


口 TextStream 





了 Folder 对 象 的 属性 。 
Files 集合 : 处 理 文件 的 相关 操作 ，Files 表示 多 个 文件 的 集合 。 表 17-5 列 出 





对 象 : 处 理 文本 文件 的 读 、 写 操作 。 


Drive 对 象 没 有 方法 ，Folder 对 象 和 File 对 象 各 包含 3 个 类 似 的 方法 ， 分 别 是 Move、Copy 
和 Delete, 用 于 对 文件 夹 和 文件 执行 移动 、 复 制 和 删除 操作 。Folder 对 象 包含 一 个 CreateTextFile 





























方法 ， 用 于 在 指定 的 文件 夹 中 创建 文本 文件 。File 对 象 包含 一 个 OpenAsTextStream 方法 ， 用 于 
打开 指定 的 文本 文件 。 
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表 17-2 FileSystemObject 对 象 的 方法 























































































































方 ”法 说 明 
BuildPath 将 名 称 添加 到 已 存在 的 路 径 中 
CopyFile 复制 文件 
CopyFolder 复制 文件 夹 
CreateFolder 创建 文件 夹 
CreateTextFile 创建 文本 文件 
DeleteFile 删除 文件 
DeleteFolder 删除 文件 夹 
DriveExists 确定 指定 的 驱动 器 是 否 存 在 
FileExists 确定 指定 的 文件 是 否 存在 
FolderExists 确定 指定 的 文件 夹 是 否 存 在 
GetAbsolutePathName 返回 绝对 路 径 
GetBaseName 返回 路 径 中 最 后 部 分 的 名 称 ， 不 包括 文件 扩展 名 
GetDrive 返回 表示 指定 路 径 中 的 驱动 器 的 Drive 对 象 
GetDriveName 返回 指定 路 径 中 的 驱动 器 的 名 称 
GetExtensionName 返回 路 径 中 最 后 部 件 扩展 名 的 字符 串 
GetFile 返回 表示 指定 路 径 中 的 文件 的 File 对 象 
GetFileName 返回 指定 路 径 中 的 最 后 名 称 
GetFolder 返回 表示 指定 路 径 中 的 文件 夹 的 Folder 对 象 
GetParentFolderName 返回 指定 路 径 的 父 文件 夹 的 名 称 
GetSpecialFolder 返回 表示 指定 的 特殊 文件 夹 的 Folder 对 象 
GetTempName 返回 随机 产生 的 临时 文件 或 文件 夹 的 名 称 
MoveFile 移动 文件 
MoveFolder 移动 文件 夹 
OpenTextFile 打开 文本 文件 

表 17-3 Drive 对 象 的 属性 

属 性 说 明 
AvailableSpace 返回 驱动 器 的 可 用 空间 
DriveLetter 返回 驱动 器 的 字母 
DriveType 返回 驱动 器 的 类 型 
FileSyttem 返回 驱动 器 的 文件 系统 类 型 
FreeSpace 返回 驱动 器 的 剩余 容量 ， 通 常 与 AvailableSpace 的 值 相同 
IsReady 确定 驱动 器 是 否 已 准备 好 
Path 返回 驱动 器 的 路 径 
RootFolder 返回 驱动 器 的 根 目录 
SerialNumber 返回 驱动 器 的 卷 标 序列 号 














“390% 


第 17 章 ”处 理 文件 



















































































续 表 
属 性 说 了 明 
ShareName 返回 驱动 器 的 网 络 共享 名 
TotalSize 返回 驱动 器 的 总 容量 
VolumeName 返回 驱动 器 的 卷 标 名 
表 17-4 ”Folder 对 象 的 属性 
属 性 说 了 明 
Attributes 返回 或 设置 文件 夹 的 属性 
DateCreated 返回 文件 夹 的 创建 日 期 和 时 间 
DateLastAccessed 返回 最 后 一 次 访问 文件 夹 的 日 期 和 时 间 
DateLastModified 返回 最 后 一 次 修改 文件 夹 的 日 期 和 时 间 
Drive 返回 文件 夹 所 在 的 驱动 器 号 
Files 返回 包含 指定 文件 夹 中 的 所 有 文件 的 Files 集合 
IsRootFolder 确定 文件 夹 是 否 是 根 目录 
Name 返回 或 设置 文件 夹 的 名 称 
ParentFolder 返回 表示 指定 文件 夹 的 父 文件 夹 的 Folder 对 象 
Path 返回 文件 夹 的 路 径 
ShortName 返回 需要 较 早 的 8.3 命名 规则 "约定 的 程序 所 使 用 的 短 名 称 
ShortPath 返回 需要 较 早 的 8.3 命名 规则 约定 的 程序 所 使 用 的 短路 径 
Size 返回 以 字 节 为 单位 的 包含 在 文件 夹 中 所 有 文件 和 子 文件 夹 的 大 小 
SubFolders 返回 包含 指定 文件 夹 中 的 所 有 子 文件 夹 的 Folders 集合 
Type 返回 文件 夹 类 型 的 相关 信息 


注 : (D8.3 命名 规则 是 指 ， 使 有 





最 多 8 个 字符 的 主 文件 名 和 3 个 字符 的 文件 扩展 名 。 


表 17-5 File 对 象 的 属性 

















































































































属 性 说 明 
Attributes 返回 或 设置 文件 的 属性 
DateCreated 返回 文件 的 创建 日 期 和 时 间 
DateLastAccessed 返回 最 后 一 次 访问 文件 的 日 期 和 时 间 
DateLastModified 返回 最 后 一 次 修改 文件 的 日 期 和 时 间 
Drive 返回 文件 所 在 的 驱动 器 号 
Name 返回 或 设置 文件 的 名 称 
了 ParentFolder 返回 表示 指定 文件 所 在 文件 夹 的 父 文件 夹 的 Folder 对 象 
Path 返回 指定 文件 的 路 径 
ShortName 返回 需要 较 早 的 8.3 命名 规则 约定 的 程序 所 使 用 的 短 名 称 
ShortPath 返回 需要 较 早 的 8.3 命名 规则 约定 的 程序 所 使 用 的 短路 径 
Size 返回 文件 的 大 小 ， 以 字 节 为 单位 
Type 返回 文件 类 型 的 相关 信息 





-301 


Excel VBA 编程 实战 宝典 


油 17.1.3 ”使 用 FSO 对 象 模型 前 的 准备 工作 


于 FSO 对 象 模型 包含 在 Scripting 类 型 库 〈Scrrun.dll) 中 ， 因 此 在 使 用 该 对 象 模型 之 前 需 
要 做 一 些 额 外 的 工作 , 主要 是 在 VBA 中 建立 对 Scripting 类 型 库 的 引用 , 以 便 可 以 识别 Scripting 

类 型 库 中 的 FSO 对 象 模型 。 可 以 通过 前 期 绑 定 或 后 期 绑 定 使 用 Scripting 类 型 库 中 的 FSO 对 象 

模型 。 这 里 只 介绍 前 期 绑 定 和 后 期 绑 定 的 操作 方法 ,第 18 章 将 对 前 期 绑 定 和 后 期 绑 定 进行 详 


介绍 。 本 章 中 的 所 有 案例 使 用 的 是 前 期 绑 定 ， 在 运行 这 些 案例 中 的 代码 前 ， 需 要 先 在 VBA 工 
程 中 添加 对 Scripting 类 型 库 的 引用 。 

1. 前 期 绑 定 
前 期 绑 定 需要 在 编写 代码 前 ， 添 加 对 Scripting 类 型 库 的 引用 。 在 Excel 中 打开 VBE 窗口 ， 
然后 单 击 菜单 栏 中 的 “工具 ”|“ 引 用 ”命令 ， 打 开 “ 引 用 ”对 话 框 。 在 “可 使 用 的 引用 ”列表 
框 中 选中 Microsoft Scripting Runtime 复 选 框 ， 如 图 17-1 所 示 ， 最 后 单 击 “ 确 定 ” 按 钮 。 
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引用 - VBAProject 


X 
取消 


浏览 (B) 





帮助 00 





Microsoft Scripting Runtime 


定位 C: WindowsVSysW0W64\scrrun dll 
语言 标准 











图 17-1 添加 对 Scripting 类 型 库 的 引用 


添加 对 Scripting 类 型 库 的 引用 后 ， 需 要 在 代码 中 声明 一 个 FileSystemObject 类 型 的 对 象 变 
然后 将 FileSystemObject 对 象 的 引用 赋值 给 该 变量 ， 有 以 下 两 种 方法 : 
方法 1: 使 用 New 关键 字 : 


Dim fso As FileSystemObject 
Set fso = New FileSystemObject 


方法 2: 使 用 VBA 内 置 的 CreateObject 函数 : 


Dim fso As FileSystemObject 
Set fso = CreateObject ("Scripting.FileSystemObject") 


如 果 想 要 查看 FSO 对 象 模型 中 包含 的 对 象 及 其 属性 和 方法 ， 则 可 以 按 F2 键 打开 对 象 浏览 
器 ， 在 上 方 的 “工程 / 库 ” 下 拉 列 表 中 选择 Scripting， 然 后 在 下 方 的 “类 ”列表 中 选择 要 查看 的 
对 象 ， 比 如 FileSystemObject， 在 右 侧 列表 中 就 会 显示 所 选 对 象 包含 的 所 有 属性 和 方法 ， 如 图 
17-2 所 示 。 

2. 后 期 绑 定 

后 期 绑 定 不 需要 在 VBA 中 添加 对 Scripting 类 型 库 的 引用 ， 只 需 在 代码 中 将 变量 声明 为 
Object 数据 类 型 ， 然 后 使 用 CreateObject 函数 将 对 象 引用 赋值 给 声明 的 变量 ， 代 码 如 下 所 示 : 


Dim fso As Object 
Set fso = CreateObject ("Scripting.FileSystemObject") 
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Seripting 的 
FileSysten 对 象 








图 17-2 在 对 象 浏览 器 中 查看 FSO 对 象 模型 中 的 对 象 


17.2 获取 驱动 器 和 文件 信息 


本 节 将 介绍 使 用 FSO 对象 模 型 中 的 FileSystemObject 对 象 以 及 VBA 内 置 语句 和 函数 处 理 文 
件 和 文件 夹 的 方法 。 


17.2.1 获取 驱动 器 的 相关 信息 


使 用 FileSystemObject 对 象 的 GetDrive 方法 可 以 返回 一 个 表示 指定 驱动 器 的 Drive 对 象 ， 
然后 使 用 Drive 对 象 的 属性 获取 驱动 器 的 相关 信息 。Drive 对 象 的 GetDrive 方法 只 有 一 个 参数 ， 
表示 指定 的 驱动 器 。 可 以 是 一 个 表示 驱动 器 的 字母 ， 如 “C”。 也 可 以 是 一 个 驱动 器 字母 加 一 
个 冒号 , 如“C:”。 还 可 以 是 一 个 驱动 器 字母 加 一 个 冒号 ,并 在 结尾 加 上 路 径 分 隔 符 ， 如 “C:\”。 
或 者 可 以 是 任何 网 络 共享 的 路 径 。 

下 面 的 3 行 代码 都 返回 一 个 引用 驱动 器 C 的 Drive 对 象 ， 其 中 的 fso 变量 已 被 声明 并 赋值 
为 FileSystemObject 对 象 。 


fso.GetDrive ("C") 
fso.GetDrive ("C:") 
fso.GetDrive ("C:\") 


案例 17-1 ”获取 驱动 器 的 属性 信息 
下 面 的 代码 在 一 个 对 话 框 中 显示 由 用 户 指定 的 驱动 器 的 文件 系统 类 型 (FileSystem 属性 ) 、 
磁盘 的 总 容量 (TotalSize 属性 ) 以 及 磁盘 可 用 空间 (AvailableSpace 属性 ) 等 信息 ， 如 图 17-3 
所 示 。 为 了 获得 以 “ 兆 字 节 ” (MB) 为 单位 的 容量 ， 需 要 使 用 FormatNumber 函数 设置 数字 格 
式 。 由 于 AvailableSpace 属性 和 TotalSize 属性 的 返回 值 以 字 节 (Byte) 为 单位 ， 因 此 需要 将 返 
可 值 除 以 两 次 1024 才能 将 “ 字 节 ”转换 为 “ 兆 字 节 ”。 为 了 避免 用 户 指定 无 效 的 驱动 器 而 导致 
运行 时 错误 ， 因 此 加 入 了 防 错 代码 。 
Sub 获取 驱动 器 的 相关 信息 () 
Dim fso As FileSystemObject, drv Rs Drive 
Dim strDriveName As String, strMsg Rs String 
Set fso = New FileSystemObject 
strDriveName = InputBox (" 请 输入 驱动 器 号 : ") 
On Error Resume Next 
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Set drv = fso.GetDrive (strDriveName) 
If Err.Number <> 0 Then 
MsgBox "输入 的 驱动 器 号 无 效 ! " 
Exit Sub 
End If 
strMsg = "驱动器" & UCase (strDriveName) & "的 相关 信息 如 下 : " & vbCrLf 
strMsg = strMsg & "文件 系统 : " & drv.FileSystem & vbCrLf 
strMsg = strMsg & "总 容量 : " & FormatNumber (drv.TotalSize / 1024 / 1024, 0) & "MB" 
& VbCrLf 
strMsg = strMsg & "可 用 空间 : " & FormatNumber (drv.AvailableSpace / 1024 / 1024, 0) 
& "MB" & vbCrLf 
MsgBox strMsg，vbInformation，" 了 驱动 器 信息 " 


ll 


Il 





End Sub 
驱动 器 信息 X 
驱动 器 C 的 相关 信息 如 下 : 
Microsoft Excel x LP 文件 系统 : NTFS 
总 容量 
请 维和 驱动 器 号 : [ 柄 | 可 用 空 




















图 17-3 ”获取 指定 驱动 器 的 相关 信息 


17.2.2 ”获取 文件 夹 的 相关 信息 


获取 指定 文件 夹 的 相关 信息 的 方法 与 上 一 节 介 绍 的 获取 驱动 器 信息 的 方法 类 似 ， 可 以 使 
FileSystemObject 对 象 的 GetFolder 方 法 返回 一 个 表示 指定 文件 夹 的 Folder 对 象 , 然后 使 用 Folder 
对 象 的 属性 获取 文件 夹 的 相关 信息 。 


案例 17-2 ”获取 文件 夹 的 属性 信息 
下 面 的 代码 在 对 话 框 中 显示 用 户 选择 的 文件 夹 的 相关 信息 ， 如 图 17-4 所 示 。 为 了 可 以 让 用 
户 自由 选择 任意 的 文件 来， 本 例 使 用 FileDialog 对 象 提供 选择 文件 夹 的 对 话 框 。 


Sub 获取 文件 夹 的 相关 信息 () 
Dim fso As FileSystemObject, fdr Rs Folder 
Dim fdl As FileDialog, strMsg As String 
Set fso = New FileSystemObject 
Set fdl = Application.FileDialog (msoFileDialogFolderPicker) 
With fdl 
If .Show = 0 Then Exit Sub 
.AllowMultiSelect = False 
Set fdr = fso.GetFolder(.SelectedItems (1)) 
End With 
strMsg = "“"m & fdr.Name & "” 文 件 夹 的 统计 信息 : " & vbCrLf 
strMsg = strMsg & "大 小 : " & FormatNumber (fdr.Size / 1024 / 1024, 0) & "MB" & vbCrLf 
strMsg = strMsg & "创建 日 期 : " & fdr.DateCreated & vbCrLf 
strMsg = strMsg & "最 近 访 问 的 日 期 : " & fdr.DateLastAccessed & vbCrLf 
& 
& 






































strMsg = strMsg "最 近 修改 的 日 期 : " & fdr.DateLastModified & vbCrLf 
strMsg = strMsg "路 径 : " & fdr.Path 
MsgBox strMsg 


End Sub 
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Microsoft Excel x 


“音乐 文件 夫 的 统计 信息 : 

大 小 : 37.048MB 

创建 日 期 : 2016/5/18 2:36:38 

最 近 访 问 的 日 期 : 2017/12/28 20:08:17 
最 近 修改 的 日 期 : 2017/12/28 20:08:17 
路 径 : GA 音乐 


Le | 


图 17-4 ”获取 文件 夹 的 相关 信息 


17.2.3 ”获取 文件 的 相关 信息 


与 前 面 介绍 的 获取 驱动 器 和 文件 夹 的 相关 信息 的 方法 类 似 , 我 们 可 以 使 用 FileSystemObject 
对 象 的 GetFile 方法 返回 一 个 表示 指定 文件 的 File 对 象 ， 然 后 使 用 File 对 象 的 属性 获取 文件 的 
相关 信息 。 

案例 17-3 ”获取 文件 的 属性 信息 

下 面 的 代码 在 对 话 框 中 显示 用 户 选 择 的 文件 的 相关 信息 ， 如 图 17-5 所 示 。 为 了 可 以 让 用 户 
自由 选择 任意 的 文件 ， 本 例 使 用 FileDialog 对 象 提供 选择 文件 的 对 话 框 。 


Sub 获取 文件 的 相关 信息 () 
Dim fso As FileSystemObject, fil As File 
Dim fdl As FileDialog, strMsg As String 











Set fso = New FileSystemObject 
Set fdl = Application.FileDialog (msoFileDialogFilePicker) 
With fdl 


If .Show = 0 Then Exit Sub 
:AllowMultiSelect = False 
Set fil = fso.GetFile(.SelectedItems (1)) 
End With 
strMsg = "“" & fil.Name & "” 文 件 的 统计 信息 : " & vbCrLf 
strMsg = strMsg & "大 小 : " & FormatNumber (fil.Size / 1024, 0) & "KB" & vbCrLf 
strMsg = strMsg "创建 日 期 : " & fil.DateCreated & vbCrLf 
strMsg = strMsg & "最 近 访问 的 日 期 : " & fil.DateLastAccessed & vbCrLf 
"最 近 修 改 的 日 期 : " & fil.DateLastModified & vbCrLf 
"路 径 : " & fil.Path 


strMsg = strMsg 
strMsg = strMsg 


MsgBox strMsg 
End Sub 


& 
& 
区 
& 





Microsoft Excel x 


“Everyday.mp3" 文 件 的 统计 信息 : 
大 小 : 3,964KB 

创建 日 期 : 2016/5/18 11:55:19 

最 近 沪 问 的 日 期 : 2016/5/20 13:41:09 
最 近 修改 的 日 期 : 2011/11/26 21:00:31 
路 径 : G:\ 音 乐 \Everyday.mp3 


Lm= | 
图 17-5 获取 文件 的 相关 信息 


17.2.4 ”获取 文件 夹 中 的 所 有 子 文件 夹 的 名 称 
我 们 有 时 可 能 想 要 了 解 某 个 文件 夹 中 包含 的 所 有 子 文件 夹 的 名 称 ， 此 时 可 以 使 用 SubFolders 
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集合 。 在 For Each 循环 结构 中 遍历 SubFolders 集合 中 的 每 一 个 子 文件 夹 ， 并 使 用 Folder 集合 的 
Name 属性 可 以 获取 文件 夹 的 名 称 。 使 用 Folder 对 象 的 SubFolders 属性 可 以 返回 指定 文件 夹 中 
包含 的 所 有 子 文件 夹 的 SubFolders 集合 。 
































案例 17-4 ”获取 文件 夹 中 的 所 有 子 文件 夹 的 数量 和 名 称 








下 


曾 的 代码 在 对 话 框 中 显示 用 户 选择 的 文件 夹 中 包含 的 所 有 子 文件 夹 的 总 数 ， 以 及 每 个 子 











文件 夹 





的 名 称 ， 如 图 17-6 所 示 。 





Sub 获取 文件 夹 中 的 所 有 子 文件 夹 的 名 称 () 


Dim fso As FileSystemObject, fdl As FileDialog 
Dim fdr As Folder, fdrSub As Folder 
Dim strMsg As String, intCount As Integer 
Set fso = New FileSystemObject 
Set fdl = Application.FileDialog (msoFileDialogFolderPicker) 
With fdl 
If .Show = 0 Then Exit Sub 
:AllowMultiSelect = False 
Set fdr = fso.GetFolder(.SelectedItems (1)) 
End With 
For Each fdrSub In fdr.SubFolders 
intCount = intCount + 1 
strMsg = strMsg & fdrSub.Name & vbCrLf 
Next fdrSub 


























MsgBox "“" & fdr & "” 文 件 夹 中 包含 " & intCount & "个 子 文件 夹 ， 名 称 如 下 : " & vbCrLf & strMsg 

End Sub 
Microsoft Excel x 
“DA 文件 夹 中 包含 11 个 子 文 件 夹 ， 名称 如 下 : 
SRECYCLE.BIN 
En 
NS 
program Files 
Program Files (x86) 
Recovery 
RECYCLER 
System Volume Information 
WINDOWS 

图 17-6 获取 文件 夹 中 的 所 有 子 文件 夹 的 名 称 
17.2.5 ”获取 文件 夹 中 的 所 有 文件 的 名 称 和 类 型 
使 用 FSO 对 象 模型 中 的 File 对 象 的 属性 可 以 获取 文件 的 相关 信息 ， 比 如 使 用 Name 属性 可 


以 获取 文件 的 名 称 ， 使 用 Type 属性 可 以 获取 文件 的 类 型 。File 对 象 的 更 多 属性 请 参考 表 17-5。 
案例 17-5 ”获取 文件 夹 中 的 所 有 文件 的 文件 名 和 文件 类 型 








下 








而 的 代码 将 用 户 选择 的 文件 夹 中 包含 的 所 有 文件 的 名 称 显示 在 活动 工作 短 的 Sheetl 工作 




















表 中 的 A、B 两 列 ， 如 图 17-7 所 示 ， 这 两 列 的 标题 为 “文件 名 ”和 “文件 类 型 ”。 
Sub 获取 文件 夹 中 的 所 有 文件 的 名 称 和 类 型 () 


"396。 


Dim fso As FileSystemObject, fdl As FileDialog 
Dim fdr As Folder, fil Rs File 
Dim wks As Worksheet, intRow As Integer 
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Set wks 
Set fso 


Worksheets ("Sheet1") 
New FileSystemObject 


处 理 文件 


Set fdl = Application.FileDialog (msoFileDialogFolderPicker) 


With fdl 
If .Show = 0 Then Exit Sub 
:AllowMultiSelect = False 


Set fdr = fso.GetFolder(.SelectedItems (1) 


End With 
wks.Cells.Clear 
intRow = 1 


wks.Cells (intRow，1) .Resize(1，2) .Value = Rrray(" 文 件 名 "，" 文 件 类 型 ") 


For Each fil In fdr.Files 
intRow = intRow + 1 
Cells (intRow，1) .Value = fil.Name 
Cel1ls (intRow，2) .Value = fil.Type 





B 


文件 类 型 


Next fil 
wks .Range ("Al1") .Resize(1，2) .EntireColumn.AutoFit 
End Sub 
A 
1 | 文件 名 
2 |$WINRE_BACKUP_PARTITION.MARKER 


3 |AUTOEXECBAT 
4 jbootini 

5 |Bootinisaved 
6 |bootfont.bin 

7 lbootmgr 

8 |BOOTNXT 

9 |BOOTSECT.BAK 
10 |CONFIG.SYS 
11 |IOSYS 

12 |MSDOS.SYS 

13 INTDETECT.COM 
14 ntldr 

15 |zchzr 

16 jzchzrmbr 

17 |zchzr.pbr 








17-7 ”获取 文件 夹 中 的 所 有 文件 的 名 称 和 类 型 


MARKER 文件 
Windows 批 处 理 文件 
配置 设置 


SAVED 文件 


17.3 文件 的 基本 操作 


文件 的 基本 操作 主要 包括 复制 、 移 动 、 重 命名 、 删 除 等 ， 还 可 以 在 指定 位 置 创 建文 件 夹 。 
因此 本 节 主 要 介绍 使 用 FSO 对 象 模型 中 的 
FileSystemObject 对 象 ， 以 及 VBA 内置 语句 和 函数 处 理 文件 的 基本 方法 。 





由 于 文件 和 文件 夹 的 很 多 操作 都 是 类 似 的 ， 














17.3.1 复制 和 移动 文件 


使 用 FileSystemObject 对 象 的 CopyFile 方法 可 以 将 文件 














复制 到 指定 的 位 置 。 当 目标 位 置 存 


在 同名 文件 时 , 可 以 在 CopyFile 方法 中 指定 是 否 覆 盖 同 名 文件 。CopyFile 方法 的 语法 格式 如 下 : 
FileSystemObject.CopyFile source, destination[, overwrite] 


口 source: 必 选 ， 要 复制 的 一 个 或 多 个 文件 ， 可 以 使 用 通配符 表示 多 个 文件 。 


口 destination: 必 选 ， 要 将 文件 复制 到 的 目 





标 文件 夹 ， 不 能 使 




















用 


通配符 。 如 果 路 径 中 不 包 





含 结尾 的 分 隔 符 ， 则 将 使 用 路 径 中 最 后 一 个 部 分 的 名 称 创建 一 个 没有 扩展 名 的 文件 。 
口 overwrite: 可 选 ， 是 否 覆 盖 同 名 文件 。 如 果 为 True 则 表示 覆盖 同名 文件 ， 如 果 为 False 
则 表示 不 覆盖 同名 文件 。 如 果 省 略 该 参数 ， 则 其 值 默 认为 True。 
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案例 17-6 ”使 用 CopyFile 方法 复制 文件 














而 的 代码 将 C 盘 根 目录 中 名 为 “工作 总 结 .docx” 的 文件 复制 到 G 盘 名 为 “公司 文件 ”的 








文件 夹 中 。 
Sub 使 用 CopyFile 方法 复制 文件 () 


Dim fso Rs FileSystemObject 

Dim strSource As String, strDestination As String 
Set fso = New FileSystemObject 

strSource = "C:\ 工 作 总 结 .docx" 

strDestination = "G:\ 公 司 文件 \" 

fso.CopyFile strSource, strDestination, True 















































End Sub 

上 面 的 代码 虽然 可 以 将 指定 的 文件 复制 到 目标 位 置 ， 但 是 如 果 指 定 的 文件 或 目标 文件 夹 不 
存在 ， 则 会 出 现 运 行 时 错误 ， 因 此 应 该 加 入 防 错 代码 。 一 种 方法 是 使 用 On Error Resume Next 
语句 忽略 所 有 错误 。 另 一 种 方法 是 使 用 FileSystemObject 对 象 的 FolderExists 方法 检查 指定 的 文 
件 和 文件 夹 是 否 存 在 ， 如 果 不 存在 则 向 用 户 发 出 提示 信息 。 

案例 17-7 使 用 CopyFile 方法 复制 文件 

下 面 的 代码 与 上 一 个 案例 的 功能 相同 ， 但 是 加 入 了 防 错 代 码 ， 当 复制 的 文件 或 目标 文件 夹 
不 存在 时 ， 将 会 显示 预先 指定 的 提示 信息 。 











Sub 使 用 CopyFile 方法 复制 文件 () 


Dim fso As FileSystemObject 

Dim strSource As String, strDestination As String 

Set fso = New FileSystemObject 

strSource = "C:N\ 工 作 总 结 .docx" 

strDestination = "G:\ 公 司 文件 \" 

If fso.FileExists(strSource) And fso.FolderExists(strDestination) Then 
fso.CopyFile strSource, strDestination, True 

Else 
MsgBox "指定 的 文件 或 文件 夹 不 存在 ! " 

End If 


End Sub 

使 用 VBA 内 置 的 FileCopy 语句 也 可 以 完成 复制 文件 的 操作 ， 该 语句 包含 两 个 参数 ， 第 一 
个 参数 表示 要 复制 的 文件 及 其 路 径 ， 第 二 个 参数 表示 要 复制 到 的 目标 路 径 与 文件 名 。 如 果 在 第 
二 个 参数 中 指定 与 复制 的 文件 不 同 的 名 称 ， 则 可 以 在 复制 文件 的 同时 对 其 进行 重 命名 。 如 果 复 
制 一 个 打开 的 文件 ， 则 会 出 现 运 行 时 错误 。 

案例 17-8 使 用 FileCopy 语句 复制 文件 





























下 面 的 代码 将 C 盘 根 目录 中 名 为 “工作 总 结 .docx” 的 文件 复制 到 G 盘 名 为 “公司 文件 ”的 
文件 夹 中 。 





Sub 使 用 FileCopy 语句 复制 文件 () 


Dim strSource As String, strDestination As String 
strSource = "C:\ 工 作 总 结 .docx" 


strDestination = "G:\ 公 司 文件 \ 工 作 总 结 .docx" 
FileCopy strSource, strDestination 


End Sub 


案例 17-9 使 用 FileCopy 语句 复制 并 重 命名 文件 





下 











面 的 代码 与 上 一 个 案例 的 功能 类 似 ， 但 是 在 复制 文件 后 将 其 名 称 改 为 “第 一 季度 工作 总 








结 .docx 
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CopyFile 方法 类 似 ， 但 只 包含 两 个 参数 ， 分 别 指定 要 移动 的 文件 以 及 移动 到 的 目标 文件 夹 。 
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Sub 使 用 FileCopy 语句 复制 并 重 命名 文件 () 
Dim strSource As String, strDestination As String 
strSource = "C:\ 工 作 总 结 .docx" 
strDestination = "G:\ 公 司 文件 \ 第 一 季度 工作 总 结 .docx" 
FileCopy strSource, strDestination 

End Sub 


如 果 想 要 移动 文件 夹 ， 则 可 以 使 用 FileSystemObject 对 象 的 MoveFile 方法 。 该 方法 与 








案例 17-10 ”使 用 MoveFile 方法 移动 文件 


硬 的 代码 将 C 盘 根 目录 中 名 为 “工作 总 结 .docx” 的 文件 移动 到 G 盘 名 为 “公司 文件 ”的 




















文件 夹 中 。 当 移动 的 文件 或 目标 文件 夹 不 存在 时 ， 将 会 显示 预先 指定 的 提示 信息 。 


Sub 使 用 MoveFile 方法 移动 文件 () 
Dim fso As FileSystemObject 
Dim strSource As String, strDestination As String 
Set fso = New FileSystemObject 
strSource = "C:\ 工 作 总 结 .docx" 
strDestination = "G:\ 公 司 文件 \" 
If fso.FileExists(strSource) And fso.FolderExists(strDestination) Then 
fso.MoveFile strSource, strDestination 
Else 
MsgBox "指定 的 文件 或 文件 夹 不 存在 ! " 
End If 
End Sub 


17.3.2 重 命名 文件 

















FileSystemObject 对 象 没有 提供 用 于 修改 文件 名 称 的 方法 ， 如 果 需 要 重 命名 指定 的 文件 ， 则 

















可 以 使 用 FSO 对 象 模型 中 的 File 对 象 的 Name 属性 。 使 用 该 属性 既 可 以 为 文件 设置 名 称 ， 也 可 


以 返回 文件 的 名 称 。 


度 ] 


案例 17-11 使 用 File 对 象 的 Name 属性 重 命名 文件 
下 面 的 代码 将 G 盘 “ 公 司 文件 ”文件 夹 中 名 为 “工作 总 结 .docx” 的 文件 重 命名 为 “第 一 季 


























[ 作 总 结 .docx”。 为 了 和 中 免 文件 不 存在 而 出 现 运行 时 错误 ， 在 重 命名 前 先 检查 文件 是 否 存在 。 
Sub 使 用 File 对 象 的 Name 属性 重 命名 文件 () 
Dim fso As FileSystemObject, fil As File 
Dim strFileName Rs String 
Set fso = New FileSystemObject 
strFileName = "G:\ 公 司 文件 \ 工 作 总 结 .docx" 
If fso.FileExists(strFileName) Then 
Set fil = fso.GetFile(strFileName) 
fil.Name = "第 一 季度 工作 总 结 .docx" 
Else 
MsgBox "指定 的 文件 不 存在 ! " 
End If 
End Sub 


使 用 VBA 内置 的 Name 语句 也 可 以 完成 重 命名 文件 的 操作 ， 语 法 格式 如 下 : 
Name oldpathname As newpathname 

口 oldpathname: 必 选 ， 重 命名 前 的 文件 及 其 路 径 。 

口 newpathname: 必 选 ， 重 命名 后 的 文件 及 其 路 径 。 
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案例 17-12 ”使 用 Name 语句 重 命名 文件 

下 面 的 代码 与 上 一 个 案例 的 功能 类 似 , 将 G 盘 “ 公 司 文件 ”文件 夹 中 名 为 “工作 总 结 .docx” 
的 文件 重 命名 为 “第 一 季度 工作 总 结 .docx”。 

Sub 使 用 Name 语句 重 命名 文件 () 


Dim strOldName As String, strNewName As String 
strOldName = "G:\ 公 司 文件 \ 工 作 总结 .docx" 
strNewName = "G:\ 公 司 文件 \ 第 一 季度 工作 总 结 .docx" 
Name strOldName Rs strNewName 

End Sub 


案例 17-13 ”使 用 Name 语句 重 命名 并 移动 文件 

下 面 的 代码 将 G 盘 “ 公 司 文 件 ” 文 件 夹 中 名 为 “工作 总 结 .docx” 的 文件 重 命名 为 “第 一 季 
度 工作 总 结 .docx”， 并 将 其 移动 到 G 盘 根 目 录 中 。 

Sub 使 用 Name 语句 重 命名 文件 () 


Dim strOldName As String, strNewName Rs String 
strO1dName = "G:\ 公 司 文件 \ 工 作 总 结 .docx" 
strNewName = "G:\ 第 一 季度 工作 总 结 .docx" 
Name strOldName As strNewName 

End Sub 


17.3.3 ”删除 文件 


对 于 不 再 有 用 的 文件 ， 可 以 使 用 FileSystemObject 对 象 的 DeleteFile 方法 将 其 删除 。 使 用 该 
方法 删除 的 文件 不 会 进入 回收 站 ， 这 意味 着 删除 文件 后 无 法 通过 回收 站 进行 恢复 。 如 果 删 除 不 
存在 的 文件 ， 则 会 出 现 运行 时 错误 。DeleteFile 方法 的 语法 格式 如 下 : 

FileSystemObject.DeleteFile filespec[, force] 

口 filespec: 必 选 ， 要 删除 的 文件 及 其 路 径 。 

口 force: 可 选 ， 是 否 强制 删除 具有 只 读 属 性 的 文件 。 如 果 为 True 则 表示 强制 删除 具有 只 

读 属性 的 文件 ， 如 果 为 False 则 表示 不 删除 具有 只 读 属性 的 文件 。 如 果 省 略 该 参数 ， 则 
其 值 默认 为 False。 


案例 17-14 “使 用 DeleteFile 方法 删除 文件 
下 面 的 代码 删除 G 盘 “ 公 司 文件 ”文件 夹 中 名 为 “工作 总 结 .docx” 的 文件 ， 即 使 该 文件 具 
有 只 读 属性 ， 也 将 其 删除 。 如 果 删 除 不 存在 的 文件 ， 则 会 显示 预先 指定 的 提示 信息 。 
Sub 使 用 DeleteFile 方法 删除 文件 () 
Dim fso As FileSystemObject, strFileName As String 
Set fso = New FileSystemObject 
strFileName = "G:\ 公 司 文件 \ 工 作 总 结 .docx" 
IE fso.FileExists(strFileName) Then 
fso.DeleteFile strFileName, True 
Else 
MsgBox "要 删除 的 文件 不 存在 ! " 


End If 
End Sub 


使 用 VBA 内 置 的 Kill 语句 也 可 以 完成 删除 文件 的 操作 ， 删 除 的 文件 也 不 会 进入 
此 无 法 进行 恢复 。 

案例 17-15 ”使 用 Kill 语句 删除 文件 

下 面 的 代码 与 上 一 个 案例 的 功能 类 似 , 删除 G 盘 “ 公 司 文件 ”文件 夹 中 名 为 “工作 总 结 .docx” 
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的 文件 。 
Sub 使 用 Kill 语句 删除 文件 () 


Dim strFileName As String 
strFileName = "G:\ 公 司 文件 \ 工 作 总 结 .docx" 
On Error Resume Next 
Kill strFileName 
End Sub 


17.3.4 创建 文件 夹 


使 用 FileSystemObject 对 象 的 CreateFolder 方法 可 以 在 指定 位 置 创 建文 件 夹 。 如 果 指 定位 置 
存在 同名 的 文件 夹 ， 则 会 出 现 运行 时 错误 。CreateFolder 方法 只 有 一 个 参数 ， 用 于 指定 要 创建 的 
文件 夹 的 名 称 和 路 径 。 

案例 17-16 ”使 用 CreateFolder 方法 创建 文件 夹 

下 面 的 代码 在 G 盘 根 目录 中 创建 一 个 名 为 “公司 文件 ”的 文件 夹 。 如 果 该 位 置 已 经 存在 同 
名 的 文件 夹 ， 则 会 显示 预先 指定 的 提示 信息 。 

Sub 使 用 CreateFolder 方法 创建 文件 夹 () 


Dim fso As FileSystemObject, strFolderName Rs String 
Set fso = New FileSystemObject 
strFolderName = "G:\ 公 司 文件 \" 
If fso.FolderExists (strFolderName) Then 
MsgBox "已 存在 同名 文件 来 ， 不 能 重复 创建 ! " 
Exit Sub 
Else 
fso.CreateFolder strFolderName 
End If 
End Sub 


使 用 VBA 内 置 的 MkDir 语句 也 可 以 完成 创建 文件 夹 的 操作 ， 该 语句 只 有 一 个 参数 ， 用 于 
首 定 要 创建 的 文件 夹 的 路 径 和 名 称 。 

案例 17-17 使 用 MkDir 语句 创建 文件 夹 

下 面 的 代码 与 上 一 个 案例 的 功能 类 似 ， 在 G 盘 根 目录 中 创建 一 个 名 为 “公司 文件 ”的 文件 
夹 。 如 果 该 位 置 已 经 存在 同名 的 文件 夹 ， 则 会 显示 预先 指定 的 提示 信息 。 

Sub 使 用 MkDir 语句 创建 文件 夹 () 


Dim strFolderName As String 
strFolderName = "G:\ 公 司 文件 \" 
On Error Resume Next 
MkDir strFolderName 
If Err.Number <> 0 Then 
MsgBox "已 存在 同名 文件 夹 ， 不 能 重复 创建 ! " 
End If 
End Sub 






































17.4 处理 文 本 文件 


文本 文件 提供 了 一 种 在 不 同类 型 的 计算 机 之 间 交 换 信 息 的 方法 。 虽 然 Excel 提供 了 导入 和 
导出 文本 文件 的 功能 ,但 是 并 不 具备 太 多 的 灵活 性 .使 用 VBA 则 能 以 任意 指定 的 格式 基于 Excel 
数据 创建 文本 文件 ， 或 从 包含 任意 格式 的 文本 文件 中 读 取 数据 。 可 以 使 用 三 种 方式 访问 文件 ， 
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本 节 主 要 介绍 顺序 方式 访问 文件 。 可 以 使 用 VBA 内 置 的 语句 和 函数 创建 、 打 开 文 本 文件 以 及 
读 、 写 其 中 的 内 容 。FSO 对 象 模型 中 的 TextStream 对 象 则 被 设计 为 专门 用 于 处 理 与 文本 文件 相 
关 的 一 系列 操作 。 本 节 将 介绍 使 用 这 两 种 方法 处 理 文本 文件 。 


17.4.1 打开 和 关闭 文本 文件 


在 读 、 写 文本 文件 之 前 ， 需 要 先 使 用 VBA 内 置 的 Open 语句 打开 文本 文件 。Open 语句 的 
语法 格式 如 下 : 
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 
口 pathname: 必 选 ， 要 打开 的 文本 文件 的 路 径 和 名 称 。 
口 mode: 必 选 ， 打 开 文 件 的 方式 ， 包 括 Append (顺序 访问 ， 读 取 文 件 或 将 数据 追加 到 文 
件 末尾 ) 、Binary〈 随 机 访问 ， 以 字 节 的 方式 写 入 文件 ) 、Input( 顺 序 访问 ， 只 允许 读 
取 文 件 ) .Output (顺序 访问 , 允许 读 取 和 写 入 文件 ) 或 Random( 随 机 访问 , 使 用 reclength 
参数 确定 读 写 的 单位 ) 几 种 ， 默 认 以 Random 方式 打开 文件 。 
口 access: 可 选 ， 打 开 文 件 后 可 进行 的 操作 ， 包 括 读 取 、 写 入 ， 或 读 取 和 写 入 。 
口 lock: 可 选 ， 限 制 其 他 进程 打开 文件 的 操作 ， 有 Shared、Lock Read、Lock Write 和 Lock 
Read Write 操作 。 
口 filenumber: 必 选 ， 一 个 未 被 使 用 的 文件 号 ， 范 围 为 1 一 511。 使 用 FreeFile 函数 可 以 自 
动 获取 下 一 个 可 用 的 文件 号 。 
口 reclength: 可 选 ， 小 于 等 于 32767 字 节 的 一 个 数 。 对 于 使 用 随机 访问 方式 打开 的 文件 ， 
该 值 用 于 记录 长 度 ， 对 于 使 用 顺序 访问 方式 打开 的 文件 ， 该 值 表 示 缓 冲 字符 数 。 
如 果 在 Open 语句 中 指定 的 文件 不 存在 ， 则 会 创建 该 文件 。 打 开 一 个 文本 文件 并 完成 所 需 
的 读 取 或 写 入 操作 后 ， 应 该 使 用 Close 语句 将 该 文件 关闭 ， 和 否则 该 文件 将 一 直 处 于 打开 状态 并 
可 能 造成 数据 损坏 。 
案例 17-18 ”使 用 Open 语句 打开 文本 文件 
下 面 的 代码 以 Input 方式 打开 G 盘 根 目录 中 的 “公司 文件 ”文件 夹 中 名 为 “销售 数据 .txt” 
的 文本 文件 ， 为 了 避免 文件 不 存在 时 导致 的 运行 时 错误 ， 在 打开 文件 前 使 用 VBA 内 置 的 Dir 
函数 检查 文件 是 否 存在 ， 如 果 该 函数 返回 空 字符 串 ， 则 表示 指定 的 文件 不 存在 。 
Sub 使 用 Open 语句 打开 文本 文件 () 
Dim intFileNumber As Integer, strFileName As String 
intFileNumber = FreeFile 
strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 
If Dir(strFileName) <> "" Then 
Open strFileName For Input As #intFileNumber 
上 "未 找到 指定 的 文本 文件 ! " 
End If 


Close #intFileNumber 
End Sub 


17.4.2 使 用 Write 语句 将 数据 写 入 文本 文件 

可 以 使 用 Write 语句 或 Print 语句 将 数据 写 入 文本 文件 。Write 语句 将 指定 的 数据 以 逗号 分 
隔 的 形式 写 入 文本 文件 。 换 名 话说， 文本 文件 中 的 各 个 数据 项 之 间 的 逗号 是 由 Write 语句 自动 
添加 的 。 对 于 不 同类 型 的 数据 ，Write 语句 会 使 用 不 同 的 格式 : 使 用 井 号 包围 日 期 ， 使 用 双 引 号 
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包围 字符 串 ， 数 值 数 据 则 按 原样 输入 。 

提示 : 本 节 中 的 案例 假设 在 G 盘 根 目录 中 存在 “公司 文件 ”文件 夹 ， 并 在 该 文件 夹 中 存在 
名 为 “销售 数据 .txt” 的 文本 文件 ， 否 则 运行 代码 会 出 现 运行 时 错误 ， 可 以 使 用 上 一 节 人 案例 中 介 
绍 的 方法 检查 指定 的 文件 是 否 存 在 。 为 了 避免 重复 的 代码 浪费 篇 幅 ， 因 此 本 节 和 接 下 来 的 几 节 
中 的 案例 都 不 会 包含 检查 文件 是 否 存在 的 代码 。 

Write 语句 的 语法 格式 如 下 : 


Write #filenumber, [outputlist] 


口 flenumber: 必 选 ， 要 向 文本 文件 中 写 入 数据 的 有 效 文件 号 。 














口 


案例 17-19 ”使 用 Write 语句 向 文本 文件 中 写 入 数据 
本 的 代码 从 活动 工作 矢 Sheetl 工作 表 中 读 取 每 一 行 数据 ， 并 将 其 写 入 到 G 盘 根 目录 的 “ 公 


下 





outputlist， 可 选 ， 要 向 文本 文件 中 写 入 的 数据 列表 ， 列 表 中 各 个 数据 之 间 以 逗号 分 隔 ， 
通常 会 使 用 包含 不 同 数据 的 多 个 变量 作为 该 参数 的 值 。Write 语句 在 将 outputlist 参数 中 
的 最 后 一 个 数据 写 入 文本 文件 后 , 将 会 自动 插入 一 个 换行 符 , 以 便 可 以 在 下 次 使 用 Write 
语句 写 入 数据 时 ， 将 新 数据 放置 到 新 的 一 行 。 




















让: 
BY F 

















公 回 骨 








司 文件 ”文件 夹 中 名 为 “销售 数据 .txt” 的 文本 文件 中 ， 如 图 17-8 所 示 。 代 码 中 声明 了 一 系列 


变量 ， 

















前 两 行 中 的 4 个 变量 用 于 存储 Excel 工作 表 中 每 一 行 各 个 列 中 的 数据 。 第 3 行 中 的 两 个 


变量 存储 打开 的 文件 号 以 及 文本 文件 的 路 径 和 名 称 。 使 用 Open 语句 以 Output 模式 打开 指定 路 
径 和 名 称 中 的 文本 文件 ， 如 果 这 个 文件 不 存在 ， 则 会 创建 该 文件 。 

















A B 人 D 
日 期 商品 销售 额 销售 员 呈 

2017/10/10 冰箱 201600 江 荣 有 销售 歼 所 -记事 本 

2017/11/24 电脑 115900 吴 力 文件 (D) 编 强 (E) XO) 前 看 (V) 帮助 (H) 
2017/10/5 电视 495900 夏 时 -10-10#, “冰箱 ”, 201600， 2 
2017/12/8 洗衣 机 547200 胡 芳 -11-24#,” 
2017/11/2 洗衣 机 155800 魏 辉 

2017/10/22 洗衣 机 121000 姚 薇 

2017/11/14 电脑 154000 梁 宏 

2017/11/14 电视 287000 康 易 

2017/11/14 冰箱 133000 王 甫 

2017/11/12 空调 178600 林 飞 

2017/10/24 电脑 524400 孔 兰 

2017/12/10 洗衣 机 186200 贾 佳 
2017/10/6 电脑 140600 葵 辉 -10-06 护 “ 
2017/11/1 电脑 484500 贾 伶 -11-01#, ”| ,464500’ | 入 
2017/12/6 电视 182000 席 玲 #2017-12-06#, 




















图 17-8 Excel 中 的 原始 数据 与 写 入 文本 文件 后 的 数据 





由 于 工作 表 中 的 第 一 行 是 标题 行 , 因此 实际 的 数据 从 第 2 行 开始 ,因此 将 表示 行 号 的 变 





























量 的 初始 值 设置 为 2。 进 入 Do Loop 循环 结构 后 ， 将 工作 表 中 的 A~D 列 中 的 值 分 别 赋值 给 


之 前 声明 的 4 个 变量 , 要 注意 数据 类 型 应 该 与 变量 一 一 对 应 。 然 后 使 用 Write 语句 将 这 4 个 
变量 中 的 数据 写 入 到 文本 文件 中 。 之 后 将 行 号 加 1， 并 重复 前 面 的 赋值 与 写 入 操作 。 当 工 


























作 表 中 第 1 列 的 单元 格 为 空 时 退出 Do Loop 循环 结构 ， 最 后 使 用 Close 语句 关闭 打开 的 文 
本 文件 。 
Sub 使 用 Write 语句 将 数据 写 入 文本 文件 () 


Dim datDate As Date, strProduct As String 

Dim dblTotal As Double, strName As String 

Dim intFileNumber As Integer, strFileName As String 
Dim lngRow As Long, wks As Worksheet 
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strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 
intFileNumber = FreeFile 

Set wks = Worksheets ("Sheet1") 

Open strFileName For Output As #intFileNumber 


lngRow = 2 
Do 
With wks 
datDate = .Cells(lngRow, 1) .Value 
strProduct = .Cells (lngRow, 2) .Value 


dblTotal = .Cells (lngRow, 3) .Value 
strName = .Cells (lngRow, 4) .Value 
End With 
Write #intFileNumber, datDate, strProduct, dblTotal, strName 
lngRow = lngRow + 1 
Loop Until IsEmpty(wks.Cells (lngRow, 1) .Value) 
Close #intFileNumber 
End Sub 


我 们 可 能 希望 使 用 空 行 分 隔 数据 行 ， 可 以 使 用 下 面 的 代码 在 文本 文件 中 插入 空 行 ， 将 该 行 
代码 添加 到 上 面 案 例 中 的 Write 语句 之 后 ， 得 到 的 文本 文件 如 图 17-9 所 示 。 


Write #intFileNumber, 








司 销售 数据 - 记事 本 - 0O x 
文件 (有 妨 缉 (E) 格式 (0) 间 看 (V) 帮助 (H) 


#2017-10-10#,“ 订 箱 ”, 201600,“ 江 荣 ” 
#2017-11-24#, “电脑 “, 115900,“ 吴 力 ” 
#2017-10-05# “电视 “, 495900, “ 夏 刁 ” 
#2017-12-08#, “洗衣 机 “, 547200, “ 胡 芳 ” 
#2017-11-02#, “洗衣 机 “, 155800,“ 魏 辉 ” 
#2017-10-22#, “洗衣 机 “, 121000, “ 姚 茂 ” 
#2017-11-14#, “电脑 “, 154000,“ 梁 宏 ” 
#2017-11-14#, “电视 “, 287000, “ 康 昂 ” 
#2017-11-14#,“ 订 箱 ”, 133000, “ 王 甫 ” 
#2017-11-12#, “空调 “, 178600,“ 林 飞 ” 
#2017-10-24#, “电脑 “, 524400, “ 孔 兰 ” 
#2017-12-10#, “洗衣 机 ”, 186200, “页 佳 ” 
#2017-10-06#, “电脑 “, 140600,“ 葵 辉 ” 
#2017-11-01#, “电脑 “, 484500, “页 伶 ” 
#2017-12-06#, “电视 ”, 182000,“ 语 玲 ” 











图 17-9 在 数据 行 之 间 插 入 空 行 


17.4.3 使 用 Print 语句 将 数据 写 入 文本 文件 
除了 使 用 Write 语句 ， 还 可 以 使 用 Print 语句 将 数据 写 入 文本 文件 ， 写 入 后 的 各 个 数据 项 之 
间 默 认 以 空格 分 隔 。 将 上 一 个 案例 中 的 Write 改 为 Print 后 得 到 如 图 17-10 所 示 的 文本 文件 。 
Print 语句 的 语法 格式 如 下 : 


Print #filenumber, [outputlist] 
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司 销 告 数 丘 - 记事 本 - OO x 
文件 (站 编 加 (EF) 想 式 (O) 查看 (V) 帮助 (H) 

2017/10/10 3 201600 江 荣 
2017/11/24 115900 呈 力 
2017/10/5 495900 呈 
2017/12/8 547200 

2017/11/2 洗衣 155800 
2017/10/22 。 洗衣 121000 
2017/11/14 154000 关 
2017/11/14 ”电视 287000 多 
2017/11/14 133000 于 十 
2017/11/12 。 衬 178600 林 
2017/10/24 524400 扎 兰 
2017/12/10 ”洗衣 机 186200 页 住 
2017/10/6 脑 140600 3 
2017/11/1 484500 园 作 
2017/12/6 182000 愿 玲 





图 17-10 使 用 Print 语句 将 数据 写 入 文本 文件 





Print 语句 包含 的 两 个 参数 的 含义 与 Write 语句 类 似 ， 但 是 Print 语句 中 的 outputlist 参数 可 
以 进行 更 多 的 设置 ， 具 体 如 下 : 
[{Spc(n) | Tab[(n)]}] [expression] [charpos] 
口 Spc(n): 在 写 入 到 文本 文件 中 的 数据 项 之 间 插入 指定 数量 的 空格 ，n 表示 空格 数 。 
口 Tab(n): 将 放置 数据 项 的 插入 点 定位 到 指定 的 列 号 ，n 表示 列 号 。 如 果 省 略 n， 则 将 插 
入 点 定位 到 下 一 个 打印 区 的 起 始 位 置 。 
口 expression: 要 写 入 到 文本 文件 中 的 数据 ， 可 以 使 用 VBA 内 置 的 Format 函数 自 定义 设 
置 数据 的 格式 。 
口 charpos: 写 入 下 一 个 数据 项 的 插入 点 。 使 用 分 号 将 插入 点 定位 到 上 一 个 数据 项 之 后 ,使 
时 Tab(n) 将 插入 点 定位 到 指定 的 列 号 或 下 一 个 打印 区 的 起 始 位 置 。 如 果 省 略 charpos 参 
数 ， 则 将 下 一 个 数据 项 写 入 到 下 一 行 。 
案例 17-20 ”使 用 Print 语句 自 定义 数据 项 的 格式 以 及 分 隔 符 
下 面 的 代码 从 活动 工作 敌 Sheetl 工作 表 中 读 取 每 一 行 数 据 , 并 将 其 写 入 到 G 盘 根 目录 的 “ 公 ””“ 
司 文件 ”文件 夹 中 名 为 “销售 数据 .txt” 的 文本 文件 中 ， 如 图 17-11 所 示 。 本 例 代 码 与 上 一 个 案 
例 类 似 ， 不 同 之 处 在 于 使 用 strDataLine 变量 组 合 工作 中 每 一 行 各 列 中 的 数据 ， 使 用 分 号 作为 写 
入 后 的 各 个 数据 项 之 间 的 分 隔 符 ， 并 使 用 Format 函数 自 定义 设置 数据 项 的 格式 , 将 日 期 格式 化 
为 “年 月 日 ”的 形式 ， 为 销售 额 添加 两 位 小 数 。 
Sub 使 用 Print 语句 自 定义 数据 项 的 格式 以 及 分 隔 符 () 


Dim strFileName As String, strDataLine Rs String 
Dim intFileNumber As Integer, lngRow As Long 
Dim wks As Worksheet 
strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 
intFileNumber = FreeFile 
Set wks = Worksheets ("Sheet1") 
Open strFileName For Output As #intFileNumber 
lngRow = 2 
Do Until IsEmpty (wks.Cells (lngRow, 1) .Value) 
With wks 
strDataLine = Format(.Cells(lngRow, 1).Value, "yyyy 年 mm 月 dd BH") & ";" 
strDataLine = strDataLine & .Cells(lngRow, 2) .Value & ";" 
strDataLine = StrDataLine & Format(.Cells(lngRow, 3) .Value, "0.00") & "i;" 
strDataLine = strDataLine & .Cells(lngRow, 4) .Value 
End With 
Print #intFileNumber, strDataLine 
lngRow = lngRow + 1 
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Loop 
Close #intFileNumber 
End Sub 
提示 : 如 果 使 用 Write 替换 上 面 代码 中 的 Print， 则 会 使 用 一 对 双 引 号 包围 每 一 行 数据 ， 如 
图 17-12 所 示 。 

加 销 告 数据 - 记事 本 一 口 x 图 销售 数据 - 记事 本 一 口 x 
文件 (篇 弓 (E) 格 z0(O) 查看 (V) 帮助 (H) 文件 (F)。 编 回 (E) 格式 (O) 查看 (V) 帮助 (H) 
2017 年 10 月 10 写 箱 ，201600. 00; 江 荣 “2017 年 10 月 10 日 ， 灾 箱 ，201600. 00; 江 荣 
2017 年 11 月 24 目 ， 电 脑 ，115900. 00， 吴 力 ”2017 年 11 月 24| 铂 ， 115900. 00; 
2017 年 10 月 05 日 ， 1 495900. 00; “2017 年 10 月 05 目 ; a 495900. 0 
2017 年 12 月 08 日 ; 光 ; 547200. 00; 胡 芳 2017 年 12 月 08 日 ; 547200， 希 关 “ 
2017 年 11 名 洗 ; ; 155800.00; 关 “2017 年 11 月 02 日 ， 洗衣 ; 155800. be ; 
2017 年 10 月 22 日 ， 洗 农机 ，121000. 00; 姚 9 “2017 年 10 月 22 日 ， 洗衣 机 ，121000. 00; 
2017 年 11 月 14 日 ， 电 脑 ，154000. 00; 3 <] 全 1 月] 外， 入 ， 154000. 00; 
2017 年 11 月 14 上 日 ， 电 视 ，287000. 00; “2017 年 11 月 14 日 网，287000. 00， 康 旬 
2017 年 11 月 14 上 日， 冰箱 ; 133000. 00; 壬 南 2017 年 11 月 1 和 ; 133000. 00; 
2017 年 11 月 12 卓 ， 罕 调 ，178600. 00; 林 飞 2 ; 178600. 00; 
2017 年 10 月 24 目 ， 电 脑 ! 524400. 00， 扎 兰 “2017 年 10 下 524400. oo: je 
2017 年 12 月 10 日 ， 洗 衣 机 ，186200. 00; 页 佳 “2017 年 12 月 30 衣 机 ，186200. oo 佳 ” 
2017 年 10 月 06 日 ， 电 脑 ，140600. 00; 性 “2017 征 10 且 06 目 : 浊 140600. 00; 
2017 年 11 月 01 日 ， 1 484500. 00; 旺 和 1 01 484500. oo 
2017 年 12 月 06 秽 ，182000. 00， 庆 "征明 06 ; 182000. 0 最 

图 17-11 使 用 Print 语句 自 定义 数据 项 图 17-12 使 用 Write 蔡 换 Print 后 的 结果 





























17.4.4 使 用 Input 语句 读 取 文 本 文件 中 的 数据 


使 用 Input 语 句 或 Line Input 语 句 可 以 读 取 文 本 文件 中 的 数据 .Input 语 句 适合 读 取 使 用 Write 
语句 写 入 到 文本 文件 中 的 数据 , 可 以 将 Input 语句 读 取 数 据 的 过 程 看 作 是 Write 语句 写 入 数据 的 
逆 操 作 。Inpnut 语句 的 语法 格式 如 下 : 


Input #filenumber, varlist 
必 选 ， 要 从 文本 文件 中 读 取 数据 的 有 效 文件 号 。 
必 选 ， 存 储 从 文本 文件 中 读 取 到 的 各 个 数据 项 的 变量 列表 。 

使 用 Input 语句 从 文本 文件 中 读 取 数据 

下 面 的 代码 从 前 面 案例 中 使 用 Write 语句 写 入 数据 的 “销售 数据 .txt” 文 本 文件 中 读 取 数据 ， 
fF 将 读 取 到 的 数据 写 入 到 活动 工作 敌 的 Sheetl 工作 表 中 。 使 用 Input 语句 读 取 文本 文件 中 每 一 
行 的 4 个 数据 项 ， 并 将 它们 分 别 存储 到 4 个 变量 中 。 然 后 将 每 个 变量 的 值 输入 到 从 工作 表 第 二 
行 开始 的 每 一 列 中 。 重 复 此 操作 ， 直 到 达到 文本 文件 的 结尾 。 最 后 在 工作 表 的 第 一 行 输入 各 列 
的 标题 ， 将 标题 在 单元 格 居中 对 齐 ， 并 根据 每 列 数据 的 多 少 自动 调整 列 宽 。 

Sub 使 用 Input 语句 读 取 文 本 文件 中 的 数据 () 


datDate As Date, strProduct As String 

dblTotal As Double, strName As String 
intFileNumber As Integer, strFileName As String 
Dim lngRow As Long, wks As Worksheet 

strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 
intFileNumber = FreeFile 

Set wks = Worksheets ("Sheet1") 

Open strFileName For Input As #intFileNumber 
wks.Cells.Clear 

lngRow = 2 

Do Until EOF (intFileNumber) 

Input #intFileNumber, datDate, strProduct, dblTotal, strName 
With wks 














口 filenumber: 
口 varlist: 


案例 17-21 












































Dim 
Dim 
Dim 


.Cel1ls (lngRow, 
:Cells (lngRow, 
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1) .Value 
2) .Value 


datDate 
strProduct 
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.Cells (lngRow, 3) .Value = dblTotal 
.Cells (lngRow, 4) .Value = strName 
End With 
lngRow = lngRow + 1 
Loop 


Close #intFileNumber 
With wks.Range ("Al") .Resize(1, 4) 
.Value = Array ("日 期 "， "商品 "，" 销 售 额 "，" 销 售 员 ") 
.HorizontalAlignment = xlCenter 
EntireColumn.AutoFit 
End With 
End Sub 


17.4.5 ”使 用 Line Input 语句 读 取 文 本 文件 中 的 数据 


Line Input 语句 适合 读 取 使 用 Print 语句 写 入 到 文本 文件 中 的 数据 。 使 用 Line Input 语句 可 以 
从 文本 文件 中 每 次 读 取 一 整 行 数据 ， 然 后 通过 各 个 数据 项 之 间 的 分 隔 符 来 将 整 行 数据 解析 为 各 
自 独立 的 部 分 ， 之 后 对 每 个 数据 项 进行 所 需 的 处 理 。Line Input 语句 的 语法 格式 如 下 : 

Line Input #filenumber, varname 


口 filenumber: 必 选 ， 要 从 文本 文件 中 读 取 数 据 的 有 效 文件 号 。 
口 varname: 必 选 ， 存 储 从 文本 文件 中 读 取 到 的 整 行 数据 项 的 变量 。 


案例 17-22 ”使 用 Line Input 语句 从 文本 文件 中 读 取 数 据 
下 面 的 代码 从 前 面 案例 中 使 用 Print 语句 写 入 数据 的 “销售 数据 .txt” 文 本 文件 中 读 取 数 据 , 久 史 2 
并 将 读 取 到 的 数据 写 入 到 活动 工作 竹 的 Sheetl 工作 表 中 。 本 例 中 的 大 部 分 代码 与 上 一 个 案例 相 
同 , 不 同 之 处 在 于 使 用 Split 函数 将 读 取 到 的 整 行 数据 解析 为 包含 各 个 数据 项 的 数组 ,然后 对 数 
组 中 的 元 素 进行 操作 ， 从 而 将 每 个 数据 项 写 入 到 工作 表 的 指定 单元 格 中 。 

Sub 使 用 LineInput 语句 读 取 文 本 文件 中 的 数据 () 


Dim strFileName Rs String, strDataLine Rs String 
Dim intFileNumber As Integer, varData Rs Variant 
Dim wks As Worksheet, lngIndex As Long 
Dim lngRow As Long, lngCol As Long 
strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 
intFileNumber = FreeFile 
Set wks = Worksheets ("Sheet1") 
Open strFileName For Input As #intFileNumber 
wks.Cells.Clear 
lngRow = 2 
Do Until EOF (intFileNumber 
Line Input #intFileNumber, strDataLine 
varData = Split (strDataLine, ";") 
lngCcol = 1 
For lngIndex = LBound (varData) To UBound (varData) 
wks.Cells (lngRow, lngCol) .Value = varData(lngIndex) 
lngCol = lngCol + 1 
Next lngIndex 
lngRow = lngRow + 1 
Loop 
Close #intFileNumber 
With wks.Range ("Al") .Resize (1, 4) 
.Value = Array ("日 期 "， "商品 "，" 销 售 额 "，" 销 售 员 ") 
.HorizontalAlignment = xlCenter 
.EntireColumn.AutoFit 
End With 
End Sub 
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17.4.6 ”使 用 TextStream 对 象 读 写 文 本 文件 


FSO 对 象 模型 中 的 TextStream 对 象 专门 用 于 读 取 和 写 入 文本 文件 中 的 数据 。 使 用 FSO 对 象 
模型 中 的 以 下 几 个 对 象 及 其 方法 都 将 返回 一 个 TextStream 对 象 : 

口 FileSystemObject 对 象 的 OpenTextFile 方法 和 CreateTextFile 方法 。 

口 Folder 对 象 的 CreateTextFile 方法 。 

口 File 对 象 的 OpenAsTextStream 方法 。 

获得 一 个 TextStream 对 象 后 ， 可 以 使 用 该 对 象 的 属性 和 方法 读 、 写 文本 文件 。 表 17-6 和 
表 17-7 列 出 了 TextStream 对 象 的 属性 和 方法 。 


表 17-6 TextStream 对 象 的 属性 










































属 性 说 了 明 
Line 返回 文本 文件 中 的 当前 行 号 
AtEndOfStream 确定 是 否 达 到 文本 文件 的 结尾 
AtEndOfLine 确定 是 否 达到 文本 文件 中 指定 行 的 结尾 




















返回 文本 文件 中 当前 字符 位 置 的 列 号 





表 17-7 TextStream 对 象 的 方法 











方 >= 尖 说 阴 
ReadAll 读 取 并 返回 文本 文件 的 所 有 内 容 
WriteLine 将 指定 内 容 和 换行 符 写 入 文本 文件 
读 取 并 返回 文本 文件 中 指定 数量 的 字符 
关闭 已 打开 的 文本 文件 
WriteBlankLines 将 指定 数量 的 换行 符 写 入 文本 文件 
Skip 在 读 取 文 本 文件 时 跳 过 指定 数量 的 字符 
ReadLine 读 取 并 返回 文本 文件 中 的 一 整 行内 容 
SkipLine 读 取 文本 文件 时 跳 过 下 一 行 
Write 将 指定 内 容 写 入 文本 文件 





使 用 FileSystemObject 对 象 的 OpenTextFile 方法 可 以 打开 一 个 指定 的 文本 文件 ， 该 方法 的 
语法 格式 如 下 : 

FileSystemObject .OpenTextFile (filename[, iomode[, create[, format]]]) 

口 filename: 必 选 ， 要 打开 的 文本 文件 的 路 径 和 名 称 。 

口 iomode: 可 选 , 打开 文件 的 方式 , 包括 ForAppending、ForReading 和 ForWriting 三 个 值 。 
该 参数 的 含义 类 似 于 Open 语句 中 的 mode 参数 。 

口 create: 可 选 , 如 果 要 打开 的 文件 不 存在 , 是 否 以 该 文件 名 创建 一 个 新 文件 。 如 果 为 True 
则 创建 新 文件 ， 如 果 为 False 则 不 创建 新 文件 。 如 果 省 略 该 参数 ， 则 其 值 默认 为 False。 

口 format: 可 选 ， 打 开 文 件 的 格式 。 如 果 为 TristateTrue 则 以 Unicode 格式 打开 文件 ， 如 果 为 
TristateFalse 则 以 ASCII 格式 打开 文件 。 如 果 省 略 该 参数 , 则 使 用 系统 默认 的 格式 打开 文件 。 


案例 17-23 ”打开 文本 文件 并 显示 其 中 的 所 有 内 容 
下 面 的 代码 打开 G 盘 根 目录 中 的 “公司 文件 ”文件 夹 中 名 为 “销售 数据 .txt” 的 文本 文件 ， 
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并 显示 其 中 包含 的 所 有 内 容 ， 如 图 17-13 所 示 。 将 对 该 文本 文件 的 引用 赋值 给 tts 对 象 变量 ， 然 
后 使 用 TextStream 对 象 的 ReadAll 方法 读 取 文 件 中 的 所 有 内 容 并 显示 在 对 话 框 中 。 运 行 本 例 代 
码 前 ， 需 要 在 VBA 工程 中 添加 对 Scripting 类 型 库 的 引用 ， 方 法 请 参考 17.1.3 节 。 

Sub 打开 文本 文件 并 显示 其 中 的 所 有 内 容 () 


Dim fso As FileSystemObject, tts Rs TextStream 
Dim strFileName As String, varData Rs Variant 
Set fso = New FileSystemObject 
strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 
Set tts = fso.OpenTextFile(strFileName, ForReading) 
MsgBox tts.ReadAll 
End Sub 








be 






































Microsoft Excel x 





2017 年 10 月 10 日 
2017 年 11 月 24 日 ; 电脑 ; 115900.00 ; 吴 力 

2017 年 10 月 05 日 ; 电视 ; 495900.00 ; 夏 里 

2017 年 12 月 08 日 ; 洗衣 机 ; 547200.00 ; 胡 芳 
2017 年 11 月 02 日 ; ; 
2017 年 10 月 22 日 ; ; 
2017 年 11 月 14 日 ; 
2017 年 11 月 14 日 ; 
2017 年 11 月 14 日 ; > 
2017 年 11 月 12 日 ; 
2017 年 10 月 24 日 ; 
2017 年 12 月 10 日 ; ; 
2017 年 10 月 06 日 ; 
2017 年 11 月 01 日 ; ; ;要 伶 
2017 年 12 月 06 日 ; 电视 ; 182000.00 ; 雇 玲 


图 17-13 显示 文本 文件 中 的 所 有 内 容 


如 果 要 向 文本 文件 中 写 入 数据 , 则 可 以 使 用 TextStream 对 象 的 Write 方 法 或 WriteLine 方 法 。 
它们 之 间 的 主要 区 别 是 WriteLine 方法 可 以 在 写 入 的 一 行 数据 结尾 添加 一 个 换行 符 , 以 便 下 次 写 
入 的 数据 可 以 自动 放置 到 下 一 行 。 

案例 17-24 ”使 用 WriteLine 方法 将 数据 写 入 文本 文件 
下 面 的 代码 与 17.4.3 节 中 的 案例 具有 类 似 的 功能 ， 将 活动 工作 簿 的 Sheetl 工作 表 中 的 数据 
写 入 到 G 盘 根 目录 的 “公司 文件 ”文件 夹 中 名 为 “销售 数据 .txt” 的 文本 文件 中 。 如 果 该 文件 不 
存在 ， 则 会 自动 创建 该 文件 并 写 入 数据 。 


Sub 使 用 WriteLine 方法 将 数据 写 入 文本 文件 () 

Dim fso As FileSystemObject, tts Rs TextStream 

Dim strFileName Rs String, strDataLine Rs String 

Dim wks As Worksheet, lngRow As Long 

Set fso = New FileSystemObject 

strFileName = "G:\ 公 司 文件 \ 销 售 数据 .txt" 

Set tts fso.OpenTextFile(strFileName, ForWriting, True) 

Set wks = Worksheets ("Sheet1") 

lngRow = 2 

Do Until IsEmpty(wks.Cells (lngRow, 1) .Value) 

With wks 

strDataLine = Format (.Cells (lngRow, 1) .Value, "yyyy 年 mm 月 dd H") & "i" 
strDataLine = strDataLine & .Cells(lngRow, 2) .Value & ";" 
strDataLine = strDataLine & Format(.Cells (lngRow, 3) .Value, "0.00") & "7 
strDataLine = strDataLine & .Cells(lngRow, 4) .Value 
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End With 
tts.WriteLine strDataLine 
lngRow = lngRow + 1 
Loop 
tts.Close 
End Sub 


如 果 想 要 读 取 文 本 文件 中 的 数据 ， 则 可 以 使 用 TextStream 对 象 的 Read 方法 、ReadLine 方 
法 和 ReadAll 方法 .ReadAll 方法 在 前 面 的 案例 中 使 用 过 , 可 以 读 取 文 本 文件 中 的 所 有 内 容 。Read 
方法 用 于 读 取 指 定数 量 的 字符 ，ReadLine 方法 用 于 读 取 一 整 行 数据 。 
案例 17-25 ”使 用 ReadLine 方法 读 取 文本 文件 中 的 数据 
下 面 的 代码 与 17.4.5 节 中 的 案例 具有 类 似 的 功能 , 从 上 一 个 案例 中 使 用 WriteLine 方法 写 入 
数据 的 “销售 数据 .txt” 文 本 文件 中 读 取 数据 ， 并 将 读 取 到 的 数据 写 入 到 活动 工作 短 的 Sheetl 
工作 表 中 。 

Sub 使 用 ReadLine 方法 读 取 文 本 文件 中 的 数据 () 


Dim fso As FileSystemObject, tts Rs TextStream 
Dim strFileName As String, wks As Worksheet 
Dim varData As Variant, lngIndex As Long 
Dim lngRow As Long, lngCol As Long 
Set fso = New FileSystemObject 
strFileName = "G:;\ 公 司 文件 \ 销 售 数据 .txt" 
Set tts = fso.OpenTextFile(strFileName, ForReading) 
Set wks = Worksheets ("Sheet1") 
wks.Cells.Clear 
lngRow = 2 
Do Until tts.AtEndOfStream 
varData = Split(tts.ReadLine, ";") 
lngCol = 1 
For lngIndex = LBound(varData) To UBound (varData) 
wks.Cells (lngRow, lngCol) .Value = varData(lngIndex) 
lngCol = lngCol + 1 
Next lngIndex 
lngRow = lngRow + 1 
Loop 
tts.Close 
With wks.Range ("Al") .Resize(1，4) 
.Value = Array ("日 期 "， "商品 "，" 销 售 额 "，" 销 售 员 ") 
.HorizontalAlignment = xlCenter 
EntireColumn.AutoFit 
End With 
End Sub 
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除了 使 用 VBA 自动 完成 Excel 内 部 的 任务 之 外 ， 有 时 可 能 还 需要 执行 跨 程序 任务 ， 比 如 将 
Excel 中 制作 好 的 表格 添加 到 Word 文档 中 ， 或 者 读 取 Word 表格 中 的 数据 并 写 入 到 Excel 中 。 
VBA 允许 用 户 编程 处 理 在 不 同 Office 应 用 程序 之 间 进 行 交互 , 以 便 协同 完成 各 种 简单 到 复杂 的 
工作 。 本 章 将 详细 介绍 在 Excel 中 使 用 VBA 控制 其 他 Office 应 用 程序 涉及 的 基本 概念 、 通 用 方 
法 以 及 具体 应 用 。 虽 然 所 有 的 代码 都 是 在 Excel 中 编写 的 ， 但 是 也 可 以 很 容易 地 对 它们 进行 修 
改 并 应 用 于 其 他 Office 应 用 程序 。 








18.1 与 外 部 应 用 程序 交互 的 基本 概念 与 通用 方法 


本 节 将 介绍 在 VBA 中 与 外 部 应 用 程序 进行 交互 的 基本 概念 ,还 介绍 了 使 用 前 期 绑 定 和 后 期 
绑 定 两 种 技术 建立 到 外 部 应 用 程序 的 连接 的 方法 。 


18.1.1 在 VBA 中 与 外 部 应 用 程序 交互 的 方式 


与 外 部 应 用 程序 交互 是 指 在 一 个 应 用 程序 中 控制 另 一 个 应 用 程序 ， 就 像 正在 另 一 个 应 用 程 
序 中 操作 一 样 ， 这 种 技术 称 为 OLE (Object Linking and Embedding， 对 象 链接 与 嵌入 ) 自动 化 ， 
在 后 来 演变 为 其 他 一 些 形 式 的 技术 ， 比 如 COM (Component Object Model， 组 件 对 象 模 型 ) 。 
在 自动 化 技术 中 ， 将 在 其 内 部 控制 其 他 应 用 程序 的 程序 称 为 “自动 化 客户 端 ”， 将 被 控制 
的 应 用 程序 称 为 “自动 化 服务 器 ”。 例 如 ， 本 章 后 面 内 容 中 将 要 介绍 的 在 Excel 中 操作 Word 
和 PowerPoint 的 方法 ， 其 中 的 Excel 就 是 自动 化 客户 端 ， 而 Word 和 PowerPoint 则 是 自动 化 服 
务 器 。Office 应 用 程序 都 可 用 作 自 动 化 服务 器 。 
VBA 是 Office 应 用 程序 的 通用 编程 语言 ， 一 旦 在 某 个 Office 应 用 程序 中 掌握 了 VBA 语法 
和 使 用 方法 ， 就 可 以 将 其 应 用 于 其 他 Office 应 用 程序 。 所 有 Office 应 用 程序 的 主要 区 别 在 于 其 
对 象 模型 。 在 VBA 中 实现 OLE 自动 化 的 关键 在 于 建立 对 外 部 应 用 程序 的 连接 ， 之 后 就 可 以 使 
有 VBA 访问 已 连接 的 外 部 应 用 程序 的 对 象 模型 中 的 对 象 及 其 属性 和 方法 。 例 如 ， 如 果 想 要 在 
Excel 中 控制 Word， 则 需要 先 建立 对 Word 的 连接 ， 然 后 就 能 像 在 Word 中 一 样 访问 Word 对 象 
模型 中 的 对 象 ， 并 使 用 对 象 的 属性 和 方法 。 
要 建立 对 外 部 应 用 程序 的 连接 ， 需 要 使 用 前 期 绑 定 和 后 期 绑 定 两 种 技术 中 的 其 中 一 种 ， 同 
村 还 要 了 解 外 部 应 用 程序 中 的 哪些 对 象 是 外 部 可 创建 对 象 ， 通 过 声明 对 象 变量 来 引用 外 部 应 用 
程序 中 的 外 部 可 创建 对 象 ， 之 后 就 可 以 使 用 对 象 变量 对 外 部 应 用 程序 进行 编程 控制 。 


18.1.2 ”外 部 可 创建 对 象 


可 以 将 外 部 可 创建 对 象 看 作 是 从 某 个 Office 应 用 程序 控制 其 他 Office 应 用 程序 的 入 口 。 外 
部 可 创建 对 象 通常 是 位 于 Office 应 用 程序 的 对 象 模型 顶层 的 Application 对 象 。 一 些 Office 应 用 
程序 可 能 还 提供 其 他 一 些 外 部 可 创建 对 象 , 比如 Excel 中 的 Workbook 对 象 , Word 中 的 Document 































































































































































































对 象 。 表 18-1 一 表 18-3 列 上 
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上 了 Excel、Word 和 PowerPoint 提供 的 主要 的 外 部 可 创建 对 象 。 























表 18-1 Excel 中 的 外 部 可 创建 对 象 
外 部 可 创建 的 对 象 编程 标识 符 说 明 
Application Excel.Application 创建 对 Excel 中 的 Application 对 象 的 引用 
Chart Excel.Chart 创建 对 Excel 中 的 Chart 对 象 的 引用 
Workbook Excel.Workbook 创建 对 Excel 中 的 Workbook 对 象 的 引用 
Worksheet Excel.Worksheet 创建 对 Excel 中 的 Worksheet 对 象 的 引 月 




















外 部 可 创建 的 对 象 编程 标识 符 
Application Word.Application 创建 对 Word 中 的 
Document Word.Document 创建 对 Word 中 的 


外 部 可 创建 的 对 象 











说 明 
Application 对 象 的 引用 
Document 对 象 的 引用 





Application 


建 对 其 他 Office 应 
对 象 模型 中 位 于 其 他 




















18.1.3 理解 前 期 绑 定 和 后 期 绑 定 
要 从 一 个 应 用 程序 控制 另 一 个 


立 到 外 部 应 用 程 


立 到 外 部 应 用 程序 的 连接 ， 从 而 可 
是 指 在 代码 运行 后 才 建 立 到 外 部 应 





上 程序 中 的 外 部 可 创建 对 象 的 引用 ， 然 后 通过 该 对 象 来 引用 外 部 应 

















型 库 及 其 
前 期 





中 包含 的 对 象 。 
绑 定 主要 有 以 下 一 些 优点 
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代码 编写 更 容易 。 


口 

















入 外 部 应 用 程 





程序 中 的 特定 对 象 类 型 。 
象 浏 览 器 中 查看 外 部 应 用 程序 的 类 型 库 中 包含 的 所 有 对 象 及 其 属性 和 方法 。 
外 部 应 用 程序 提供 
序 的 对 象 后 ， 将 会 自动 显示 包含 该 对 象 的 属性 和 方法 的 





的 内 置 常量 和 命名 参数 。 











于 在 代码 编写 阶 





段 已 经 3 











定 更 快 。 
绑 定 的 最 大 优点 是 无 须 事先 在 VBA 中 添加 对 外 部 应 用 程序 类 型 库 的 引 
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| 用 


度 运行 。 另 一 个 优点 是 可 以 通过 编写 代码 检测 
， 并 根据 检测 结果 连接 到 外 部 应 用 
于 后 期 绑 定 不 需要 事先 添加 对 外 部 应 














程序 的 不 同 版 本 。 




















问 外 部 应 用 程序 的 类 型 库 ， 


应 用 程序 ， 需 要 建立 到 另 一 个 应 用 
序 连接 的 方法 有 两 种 : 前 期 绑 定 和 后 期 绑 定 。 前 期 纪 
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因此 代码 的 运行 速度 比 后 
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方法 ， 在 声明 变量 时 





建 对 PowerPoint 中 的 Application 对 象 的 引用 
如 果 希 望 在 某 个 Office 应 用 程序 中 通过 VBA 来 控制 其 他 Office 应 用 程序 ， 那 么 必须 先 创 


程序 的 
层 的 对 象 ， 从 而 使 用 外 部 应 用 程序 中 的 不 同 对 象 来 完成 所 需 的 任务 。 


中 建 
就 建 


以 访问 外 部 应 用 程序 的 类 型 库 及 其 中 包含 的 对 象 。 后 期 绑 定 
程序 的 连接 ， 在 代码 编写 阶段 无 法 访问 


的 类 


和 此 可 以 将 对 象 变量 声明 为 外 部 


成 员 列 表 , 使 


期 绑 


以 让 
定 的 
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将 其 声明 为 Object 一 般 对 象 类 型 ,在 输入 对 象 后 不 会 显示 该 对 象 包含 的 属性 和 方法 的 成 员 列 表 ， 
也 不 能 使 用 外 部 应 用 程序 中 的 内 置 常量 和 命名 参数 ， 而 只 能 利用 数值 代 蔡 内 置 常量 ， 或 在 代码 
中 声明 自 定义 的 常量 ， 代 码 的 运行 速度 比 前 期 绑 定 更 慢 。 


18.1.4 使 用 前 期 绑 定 创建 对 象 引 用 


使 用 前 期 绑 定 的 一 般 步骤 如 下 : 

(1) 在 VBA 工程 中 添加 对 外 部 应 用 程序 的 类 型 库 的 引用 。 

(2) 在 代码 中 声明 特定 对 象 类 型 的 变量 ， 对 象 的 类 型 是 外 部 应 用 程序 中 的 外 部 可 创建 对 象 
的 类 型 。 

(3) 在 Set 语句 中 使 用 New 关键 字 、CreateObject 函数 或 GetObject 函数 将 外 部 可 创建 对 象 
的 引用 赋值 给 对 象 变量 。 

下 面 以 在 Excel 中 建立 到 Word 的 连接 为 例 ， 介 绍 前 期 绑 定 的 具体 操作 过 程 。 

案例 18-1 使 用 前 期 绑 定 创建 对 Word 对 象 引 用 

在 Excel 中 打开 VBE 窗口 ， 单 击 菜单 栏 中 的 “工具 ” |“ 引用 ”命令 ， 打 开 “ 引 用 ”对 话 框 ， 
在 “可 使 用 的 引用 ”列表 框 中 选择 要 建立 连接 的 外 部 应 用 程序 的 类 型 库 ， 如 图 18-1 所 示 。 本 例 
连接 到 的 是 Word 2016， 因 此 选中 Microsoft Word 16.0 Object Library 复 选 框 ， 其 中 的 数字 表示 
的 是 Word 版 本 号 ，Word 16 表示 Word 2016。 

提示 : 如 果 没 有 安装 Word， 则 不 会 在 “引用 ”对 话 框 中 显示 Word 类 型 库 。 
单 击 “ 确 定 ” 按 钮 关闭 “引用 ”对 话 框 ， 将 Word 应 用 程序 的 类 型 库 添 加 到 当前 VBA 工程 
中 。 此 时 按 F2 键 打开 对 象 浏览 器 ， 在 “工程 / 库 ” 下 拉 列 表 中 选择 Word， 在 下 方 的 “类 ”列表 
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中 将 会 显示 Word 对 象 模型 包含 的 所 有 对 象 ， 如 图 18-2 所 示 。 
引用 - VBAProject x 条 es) 
可 使 用 的 引用 (A) pe 
取消 
类 
浏览 (8) PEs 
二 
四 
Eh i 
帮助 (00) 可 总 
ET 
ET 
Ee 
ET 
ET 
Fe 
Microsoft Word 16.0 Object Library Ee 总 
十 Ep Files (x86) licrosoft Office\Root\OEfic fe Ra 
证。 村 en 
图 18-1 选择 要 建立 连接 的 外 部 应 用 图 18-2 ”在 对 象 浏 览 器 中 查看 Word 
程序 的 类 型 库 对 象 模型 包含 的 所 有 对 象 








接 下 来 就 可 以 在 代码 窗口 中 声明 一 个 用 于 引用 Word 对 象 模型 顶层 的 Application 对 象 ， 该 
对 象 是 Word 中 的 外 部 可 创建 对 象 。 
Dim wrdApp As Word.Application 
然后 在 Set 语句 中 使 用 New 关键 字 将 一 个 Word 应 用 程序 实例 赋值 给 声明 的 对 象 变量 。 也 
可 以 使 用 CreateObject 函数 或 GetObject 函数 完成 相同 操作 , 这 两 个 函数 将 在 后 面 的 内 容 中 进行 
介绍 。 


Set wrdApp = New Word.Application 
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使 用 的 是 前 期 绑 定 , 因此 在 声明 语句 中 输入 As 关键 字 并 按 空 格 键 后 , 以 及 在 赋值 语句 
中 输入 New 关键 字 并 按 空 格 键 后 ， 都 会 出 现 自动 成 员 列表 。 输 入 作为 类 型 库 名 的 “Word” 以 
及 一 个 句点 ， 将 会 自动 弹出 Word 对 象 库 中 包含 的 所 有 对 象 ， 在 其 中 选择 Application。 此 时 已 
完成 对 Word 对 象 模型 中 的 Application 对 象 的 引用 ， 在 之 后 的 代码 中 就 可 以 使 用 对 象 变量 来 操 
作 Word 的 Application， 并 使 用 该 对 象 的 属性 和 方法 来 完成 所 需 任务 。 

不 同 的 类 型 库 可 能 包含 相同 名 称 的 对 象 , 比如 Excel 和 Word 的 类 型 库 中 都 包含 Application 
对 象 。 在 这 种 情况 下 ， 为 了 明确 区 分 同名 对 象 所 属 的 类 型 库 ， 应 该 在 代码 中 显 式 指明 类 型 库 的 
名 称 ， 就 像 上 面 案例 中 那样 。 另 一 种 方法 是 在 “引用 ”对 话 框 中 使 用 优先 级 按钮 _ 人 + | 和 _* 侍 
整 类 型 库 的 排列 顺序 ，VBA 会 优先 在 列表 框 中 位 于 较 高 位 置 的 类 型 库 中 搜索 对 象 。 建 议 使 用 第 
一 种 方法 ， 因 为 它 可 以 明确 限定 对 象 的 类 型 库 ， 而 不 会 导致 不 必要 的 混乱 。 


18.1.5 使 用 后 期 绑 定 创建 对 象 引用 


使 用 后 期 绑 定 的 一 般 步 又 如 下 : 

(1) 在 代码 中 声明 Object 数据 类 型 的 对 象 变量 。 

(2) 在 Set 语句 中 使 用 CreateObject 函数 或 GetObject 函数 将 指定 类 型 的 对 象 引 用 赋值 给 对 
象 变量 。 

CreateObject 函数 用 于 创建 并 返回 一 个 指定 类 型 的 对 象 ， 语 法 格式 如 下 : 

CreateObject (class, [servername]) 

口 class: 必 选 ， 要 创建 对 象 引用 的 应 用 程序 的 名 称 和 类 ， 该 参数 使 用 表 18-1 一 表 18-3 中 

列 出 的 编程 标识 名 

口 servername: 可 选 ， 要 在 其 上 创建 对 象 引用 的 网 络 服务 器 的 名 称 。 

下 面 以 在 Excel 中 建立 到 Word 的 连接 为 例 ， 介 绍 后 期 绑 定 的 具体 操作 过 程 。 


案例 18-2 ”使 用 后 期 绑 定 创建 对 Word 对 象 的 引用 
于 没有 添加 对 Word 类 型 库 的 引用 ,因此 需要 将 对 象 声 明 为 Object 数据 类 型 ， 如 下 所 示 : 
Dim wrdApp As Object 
声明 对 象 变量 后 ， 使 用 CreateObject 函数 将 对 象 引用 赋值 给 对 象 变量 ， 如 下 所 示 : 
Set wrdApp = CreateObject ("Word.Application") 
如 果 计 算 机 中 安装 了 Word 的 不 同 版 本 ， 则 可 以 在 Word.Application 的 结尾 添加 表示 Word 
版 本 号 的 数字 ， 比 如 Word.Application.16 表示 Word 2016 。 


18.1.6 引用 一 个 已 存在 的 应 用 程序 实例 


和 面 介 绍 的 前 期 绑 定 和 后 期 绑 定 都 用 于 创建 应 用 程序 的 一 个 新 实例 ， 同 时 介绍 了 在 Set 语 
句 中 使 用 New 关键 字 和 CreateObject 函数 将 对 象 引 用 赋值 给 对 象 变 量 的 方法 。 有 时 可 能 已 经 启 
动 了 目标 应 用 程序 ， 并 希望 使 用 对 象 变量 引用 和 控制 这 个 已 启动 的 应 用 程序 。 在 这 种 情况 下 需 
要 使 用 GetObject 函数 ， 语 法 格式 如 下 : 
GetObject ([pathname] [,class]) 
口 pathname: 可 选 ， 要 在 应 用 程序 中 打开 的 文件 的 路 径 和 名 称 。 如 果 省 略 class 参数 ， 则 
使 用 与 该 文件 相关 联 的 应 用 程序 打开 文件 ， 也 可 以 在 class 参数 中 指定 用 于 打开 文件 的 
特定 程序 。 如 果 省 略 该 参数 ， 则 必须 设置 class 参数 ， 此 时 表示 引用 一 个 已 存在 的 应 用 
程序 的 实例 ; 如 果 将 该 参数 设置 为 空 字符 串 , 则 表示 创建 并 引用 一 个 应 用 程序 的 新 实例 。 
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口 class: 可 选 ， 要 创建 对 象 引用 的 应 用 程序 的 名 称 和 类 ， 该 参数 使 用 表 18-1 一 表 18-3 中 
列 出 的 编程 标识 符 。 
案例 18-3 ”在 Excel 中 控制 Word 打开 一 个 文档 
下 面 的 代码 在 Word 中 打开 C 盘 根 目录 中 名 为 “工作 总 结 ” 
定 。 如 果 该 文档 不 存在 ， 则 会 显示 预先 指定 的 提示 信息 。 代 码 中 声明 了 一 个 wrdDoc 变量 以 表 
示 Word 对 象 模型 中 的 Document 对 象 ， 然 后 使 用 GetObject 函数 并 设置 其 第 一 参数 为 要 打开 的 
文档 的 路 径 和 名 称 ， 如 果 成 功 打开 ， 则 将 该 文档 的 引用 赋值 给 wrdDoc 变量 。 之 后 使 用 wrdDoc 
变量 的 Parent 属性 返回 Word 的 Application 对 象 ， 最 后 将 Application 对 象 的 Visible 属性 设置 
为 True 以 使 Word 文档 可 见 ， 和 否则 即使 打开 了 文档 也 处 于 隐藏 状态 。 
Sub 在 Excel 中 控制 Word 打开 一 个 文档 () 
Dim wrdDoc Rs Object 
On Error Resume Next 
Set wrdDoc = GetOobject ("C:\ 工 作 总 结 .docx") 
If wrdDoc Is Nothing Then 
MsgBox "指定 的 文档 不 存在 ! " 
Exit Sub 
End If 


wrdDoc.Parent .Application.Visible = True 
End Sub 


在 完成 对 外 部 应 用 程序 的 处 理 后 ， 应 该 及 时 退出 外 部 应 用 程序 ， 并 将 相关 对 象 变量 赋值 为 
Nothing 以 释放 占用 的 内 存 空 间 。 下 面 两 行 代码 用 于 退出 上 一 个 案例 打开 的 Word 程序 ， 并 释放 
wrdDoc 变量 占用 的 内 存 空间 。 


WwWrdDoc.Parent .Quit 
Set wrdDoc = Nothing 


案例 18-4 ”显示 已 启动 的 Word 的 版 本 号 
下 面 的 代码 引用 当前 已 启动 的 Word 应 用 程序 并 显示 Word 的 版 本 号 。 如 果 当 前 没有 启动 
Word， 则 会 显示 预先 指定 的 提示 信息 。 
Sub 引用 已 启动 的 Word 应 用 程序 () 
Dim wrdApp As Object 
On Error Resume Next 
Set wrdApp = GetObject(, "Word.Application") 
If wrdApp Is Nothing Then 
MsgBox "当前 没有 启动 Word" 
Exit Sub 
End If 


MsgBox wrdApp.Version 
End Sub 


案例 18-5 引用 现 有 的 Word 或 启动 新 的 Word 

下 面 的 代码 引用 当前 已 启动 的 Word 应 用 程序 ， 如 果 当 前 没有 启动 Word， 则 启动 Word 并 区 二 
引用 新 启动 的 Word 应 用 程序 。 为 了 避免 看 不 到 Word 应 用 程序 ， 需 要 将 Word 对 象 模型 中 的 
Application 对 象 的 Visible 属性 设置 为 True。 然 后 使 用 Application 对 象 的 Version 属性 显示 Word 

的 版 本 。 最 后 使 用 前 面 介 绍 的 方法 退出 Word 应 用 程序 ， 并 将 引用 Word 程序 的 wrdApp 变量 赋 
值 为 Nothing， 以 释放 其 所 占用 的 内 存 空间 。 


Sub 引用 现 有 的 Word 或 启动 新 的 Word () 
Dim wrdApp As Object 
On Error Resume Next 
Set wrdApp = GetObject(, “Word.Application") 
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If wrdApp Is Nothing Then 
Set wrdApp = GetObject("", "Word.Application") 
End If 
wrdApp.Visible = True 
MsgBox wrdApp.Version 
wrdApp .Quit 
Set wrdApp = Nothing 
End Sub 


18.2 在 Excel 中 操作 Word 


Word 可 能 是 最 常 与 Excel 交换 数据 的 Office 应 用 程序 ， 在 Excel 中 可 以 很 容易 地 启动 与 退 
出 Word 应 用 程序 , 正如 前 面 所 介绍 的 。 还 可 以 对 Word 应 用 程序 的 细节 进行 控制 , 比如 在 Word 
中 新 建文 档 、 在 文档 中 添加 内 容 以 及 设置 内 容 的 格式 等 操作 。 
案例 18-6 ”将 Excel 中 的 数据 写 入 Word 文档 
下 面 的 代码 将 一 个 已 保存 工作 短 的 Sheetl 工作 表 中 的 每 一 行 数据 复制 到 一 个 Word 文档 中 ， 
效果 如 图 18-3 所 示 。 将 该 文档 保存 在 该 工作 短 所 在 的 路 径 中 ， 文 档 名 称 与 工作 短 的 名 称 相同 。 
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图 18-3 Excel 中 的 原始 数据 与 写 入 到 Word 文档 中 的 数据 
代码 中 使 用 strFilePath 和 strWkbName 变量 存储 活动 工作 簿 的 路 径 和 名 称 。 由 于 名 称 中 包 



































含 Excel 文件 的 扩展 名 ， 因 此 需要 在 For Next 循环 结构 中 提取 其 主 文件 名 ， 即 文件 扩展 名 之 前 
的 句点 左 侧 的 部 分 。 将 提取 出 来 的 主 文件 名 与 Word 文档 的 扩展 名 .doc 组 合 在 一 起 组 成 后 面 将 
要 保存 的 Word 文档 的 名 称 。 

接 下 来 创建 Word 应 用 程序 的 一 个 新 实例 ， 并 将 Word 的 Application 对 象 赋值 给 wrdApp 
变量 。 然后 使 用 该 Application 对 象 的 Documents 集合 的 Add 方法 新 建 一 个 文档 ,并 将 新 建 的 文 
档 赋值 给 wrdDoc 变量 。 

将 活动 工作 夭 Sheetl 工作 表 中 的 所 有 数据 复制 到 剪贴 板 ， 然 后 在 新 建 的 Word 文档 中 以 文 
本 格式 进行 选择 性 粘贴 。Word 中 的 PasteSpecial 方法 使 用 WdPasteDataType 常量 为 该 方法 指定 
粘贴 方式 ，wdPasteText 常量 值 表示 以 文本 格式 进行 粘贴 ， 对 应 的 值 为 2。 由 于 本 例 使 用 的 是 后 
期 绑 定 , 因此 无 法 在 Excel 中 使 用 Word 应 用 程序 中 的 命名 参数 和 内 置 常量 ,这 就 需要 在 代码 的 
开始 部 分 声明 一 个 自 定义 常量 wdPasteText 并 为 其 赋值 为 2, 之 后 可 以 在 代码 中 使 用 该 自 定义 党 
量 代 替 Word 中 的 内 置 常量 。 将 数据 粘贴 到 Word 文档 后 ， 选 择 文档 中 的 所 有 内 容 ， 然 后 将 字号 
大 小 设置 为 16 磅 。 
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使 用 Word 的 Document 对 象 的 SaveAs 方法 将 新 建 的 Word 文档 以 前 面 指定 好 的 名 称 保 
存在 工作 筹 所 在 的 路 径 中 .为 了 避免 路 径 中 已 经 存在 同名 文档 而 出 现 是 否 覆 盖 文 件 的 提示 信 
息 ， 因 此 应 该 将 Word 中 的 Application 对 象 的 DisplayAlerts 属性 设置 为 False。 最 后 使 
Application 对 象 的 Quit 方法 退出 Word 应 用 程序 ， 并 释放 wrdApp 和 wrdDoc 两 个 变量 占 
的 内 存 空间 。 


Sub 将 Excel 中 的 数据 写 入 Word 文档 () 
Dim strFilePath As String, strWkbName As String 
Dim i As Integer, strDocName As String 
Dim wrdApp As Object, wrdDoc As Object 
Const wdPasteText As Integer = 2 










































































strFilePath = ActiveWorkbook.Path 
strWkbName = ActiveWorkbook.Name 
For i = 1 To Len(strWkbName) 
If Mid(strWkbName, i, 1) = "." Then Exit For 
Next i 
strDocName = Left (strWkbName, i - 1) & ".doc" 


Worksheets ("Sheet1") .UsedRange.Copy 

Set wrdApp = CreateObject ("Word.Application") 

Set wrdDoc = wrdApp.Documents.Add 
wrdApp.Selection.PasteSpecial , , , , wdPasteText 
wrdApp.Selection.WholeStory 
wrdApp.Selection.Font.Size = 16 
Application.CutCopyMode = False 


wrdApp.DisplayAlerts = False 
wrdDoc.SaveAs Filename:=strFilePath & "\" & strDocName 
wrdApp.DisplayAlerts = True 


wrdApp.Quit 

Set wrdApp = Nothing 

Set wrdDoc = Nothing 
End Sub 


18.3 在 Excel 中 启动 其 他 应 用 程序 


除了 与 Office 应 用 程序 交互 之 外 , 还 可 以 在 Excel 中 启动 其 他 应 用 程序 。 从 Excel 中 启动 一 
个 应 用 程序 最 直接 的 方法 是 使 用 VBA 内 置 的 Shell 函数 。Shell 函数 的 语法 格式 如 下 : 
Shell (Pathname [,windowstyle]) 
口 pathname: 必 选 ， 要 启动 的 应 用 程序 的 路 径 和 可 执行 文件 名 。 如 果 应 用 程序 的 可 执行 文 
件 位 于 环境 变量 存储 的 任 一 路 径 中 ， 则 不 需要 指定 应 用 程序 的 路 径 ， 只 提供 可 执行 文件 
的 名 称 即 可 。 
口 windowstyle: 可 选 ， 应 用 程序 运行 时 的 窗口 样式 ， 该 参数 的 值 见 表 18-4。 如 果 省 略 该 参 
数 ， 则 应 用 程序 在 具有 焦点 的 最 小 化 窗口 中 运行 。 
如 果 使 用 Shell 函数 成 功 启动 指定 的 应 用 程序 ， 则 会 返回 表示 该 程序 的 任务 ID， 它 是 一 个 
Double 数据 类 型 的 值 。 如 果 启 动 失败 ， 则 会 返回 0。 

注意 : 默认 情况 下 ，Shell 函数 以 异步 方式 执行 应 用 程序 。 换 句 话说 ， 使 用 Shell 函数 启 
动 的 应 用 程序 可 能 还 没有 完成 启动 过 程 , VBA 代码 就 已 经 执行 到 位 于 Shell 函数 之 后 的 语句 
中 了 了 
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表 18-4 windowstyle 参数 的 值 







































常 量 值 说 明 
vbHide 0 窗口 被 隐藏 且 焦 点 移 到 隐 式 窗口 
vbNormalFocus 1 窗口 具有 焦点 ， 且 还 原 到 其 原来 的 大 小 和 位 置 
vbMinimizedFocus 2 窗口 最 小 化 到 任务 栏 ， 显 示 为 一 个 具有 焦点 的 图 标 
vbMaximizedFocus | 3 | 窗口 显示 为 一 个 具有 焦点 的 最 大 化 窗口 
vbNormalNoFocus 4 窗口 被 还 原 到 最 近 使 用 的 大 小 和 位 置 ， 不 改变 当前 活动 窗口 的 状态 








窗口 最 小 化 到 任务 栏 ， 


案例 18-7 ”在 Excel 中 启动 指定 的 应 用 程序 
下 面 的 代码 启动 Windows 操作 系统 中 的 记事 本 程序 。 如 果 启 动 失败 ， 则 会 显示 指定 的 提示 


显示 为 一 个 图 标 ， 不 改变 当前 活动 窗口 的 状态 


vbMinimizedNoFocus 





Jr 
证 


Sub 在 Excel 中 启动 指定 的 应 用 程序 () 
Dim strPath As String, dblTaskID As Double 
strPath = "notepad.exe" 
On Error Resume Next 
dblTaskID = Shell(strPath, vbNormalFocus) 
If dblTaskID = 0 Then MsgBox "无 法 启动 指定 的 程序 ! " 
End Sub 
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ADO (ActiveX Data Object) 是 一 种 通用 的 数据 访问 技术 , 足以 用 一 本 书 的 篇 幅 来 介绍 ADO 
技术 的 相关 内 容 。 本 章 主要 以 访问 Access 数据 库 中 的 数据 为 例 , 介绍 在 VBA 中 通过 ADO 编程 
访问 Excel 外 部 数据 的 方法 。 在 开始 正式 介绍 ADO 之 前 , 首先 介绍 了 数据 库 和 结构 化 查询 语言 
的 基本 概念 以 及 SQL 语句 的 基本 用 法 ， 它 们 是 使 用 ADO 访问 数据 的 基础 。 




















19.1 了 解 结构 化 查询 语言 


为 了 更 好 地 使 用 ADO 编程 访问 Excel 外 部 数据 ， 有 必要 了 解 SQL 结 构 化 查询 语言 
SQL 是 一 种 通用 的 数据 库 语言 ， 用 于 与 普遍 使 用 的 所 有 数据 库 相 交互 。 在 介绍 SQL 之 前 ,首先 
介绍 了 数据 库 的 基本 概念 。 由 于 本 章 主要 以 Access 数据 库 为 例 来 介绍 使 用 ADO 技术 访问 数据 ， 
此 在 介绍 数据 库 的 基本 概念 时 也 主要 以 Access 数据 库 为 例 进行 说 明 。 


19.1.1 数据库 的 基本 概念 


数据 库 是 特定 类 型 信息 的 集合 ， 其 中 的 数据 按照 一 定 的 逻辑 形式 组 织 在 一 起 。 对 于 Access 
数据 库 来 说 ， 其 中 的 数据 存储 在 相互 关联 的 多 个 表 中 ， 各 个 表 中 的 数据 之 间 存 在 着 某 种 关系 或 
关联 ， 最 终 构成 错综复杂 但 又 逻辑 清晰 的 整个 数据 库 。 正 是 由 于 数据 在 数据 库 中 的 这 种 组 织 方 
式 ， 使 得 维护 各 个 表 的 工作 变 得 相对 简单 ， 同 时 又 可 以 很 容易 地 从 相互 关联 的 多 个 表 中 提取 所 
需 的 数据 。 

数据 库 的 基本 组 成 元 素 包括 表 、 字 段 、 记 录 、 值 、 键 、 视 图 、 关 系 。 

1. 表 

表 是 数据 库 中 的 主要 结构 , 用 于 存储 数据 库 中 的 所 有 基础 数据 。 每 个 表 有 一 个 特定 的 主题 ， 
其 中 包含 与 该 主题 紧密 相关 的 数据 。 如 图 19-1 所 示 是 Access 数据 库 中 的 表 的 一 个 案例 ， 该 表 
是 一 个 客户 资料 表 ， 表 中 的 所 有 数据 都 用 于 描述 客户 的 个 人 信息 。 




























































































司 客户 资料 
客户 编号 -| 姓名 -| 性 别 -| 年 龄 -| 籍贯 学 历 
1001 故 凯 男 45 北京 高 中 
1002 陆 婕 女 28 福建 高 中 
1003 苏 婉 女 24 湖北 初中 
1004 韩 晨 女 22 湖南 高 中 
1005 戴 芙 女 4 山东 大 专 
1006 康辉 男 45 云南 博士 
1007 余 吴 男 39 吉林 职高 
1008 至 荣 男 27 湖南 硕士 
1009 前 兰 女 25 甘肃 大 本 
1010 周 机 男 48 北京 硕士 





图 19-1 Access 数据 库 中 的 表 
2. 字段 
字段 表示 表 的 主题 的 一 个 特征 。 表 中 的 每 一 列 对 应 一 个 字段 , 字段 名 称 位 于 每 一 列 的 顶端 。 
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字段 决定 了 与 其 对 应 的 列 中 存储 的 数据 类 型 。 客户 编号 、 姓 名 、 性 别 等 都 是 客户 资料 中 的 字段 。 

3. 记录 

表 中 的 每 一 行 是 一 条 包含 完整 信息 的 记录 ， 由 各 个 字段 中 的 数据 组 成 ， 每 条 记录 在 表 中 应 
该 是 唯一 的 。 在 客户 资料 表 中 ， 客 户 编号 为 1001 的 记录 包含 了 客户 编号 、 姓 名 、 性 别 、 年 龄 、 
籍贯 、 学 历 等 数据 。 其 他 客户 编号 的 记录 也 包含 相同 类 型 的 数据 。 

4. 值 

行 (记录 ) 与 列 〈 字 段 ) 交叉 位 置 上 的 内 容 是 表 中 的 一 个 具体 的 值 。 

5. 键 

键 是 表 中 具有 特定 作用 的 特殊 字段 ， 键 的 类 型 决定 了 其 在 表 中 的 作用 。 键 的 最 主要 的 两 种 
类 型 是 主键 和 外 键 ， 主 键 用 于 区 分 表 中 的 每 一 条 记录 。 换 名 话说， 由 于 主键 的 存在 ， 每 条 记录 
在 表 中 才 是 唯一 的 。“ 唯 一 ”对 于 表 中 的 数据 来 说 至 关 重 要 ， 因 为 可 以 明确 定位 特定 的 记录 ， 
而 不 会 发 生 混淆 。 

在 客户 资料 表 中 ， 客 户 编号 就 是 该 表 的 主键 ， 因 为 在 这 个 表 中 ， 客 户 编号 永远 不 会 发 生 重 
复 。 主 键 的 另 一 个 关键 作用 是 为 了 与 其 他 的 表 建立 关系 ， 因 此 数据 库 中 的 每 个 表 都 应 该 有 一 个 
主键 。 
外 键 是 在 当前 表 中 引入 的 其 他 表 的 主键 ， 因 为 对 于 当前 表 来 说 ， 该 键 是 外 来 的 。 外 键 有 助 
于 帮助 两 个 表 建 立 关系 ， 而 且 可 以 确保 两 个 表 之 间 的 记录 总 是 正确 的 关联 ， 而 不 会 出 现 “ 孤 儿 
记录 ”。 

6. 视图 

视图 是 由 来 自 数据 库 中 的 一 个 或 多 个 表 中 的 字段 所 组 成 的 一 个 虚拟 的 表 ， 因 此 视图 中 并 不 
包含 实际 的 数据 ， 而 只 包含 数据 的 结构 。 实 际 的 数据 仍然 存储 在 从 中 提取 数据 的 表 中 ， 将 这 些 
表 称 为 基本 表 。 通 过 视图 可 以 从 不 同 角度 、 不 同方 式 呈现 数据 的 不 同 组 合 。 

7. 关系 

如 果 将 一 个 表 中 的 记录 以 某 种 方式 与 男 一 个 表 中 的 记录 关联 起 来 ， 就 称 这 两 个 表 之 间 拥 有 
一 个 关系 。 表 与 表 之 间 的 关系 分 为 3 种 : 一 对 一 、 一 对 多 、 多 对 多 。 正 是 由 于 在 不 同 表 之 间 建 
立 不 同 的 关系 ， 才 让 数据 库 中 的 各 个 表 中 的 数据 形成 一 个 紧密 关联 的 有 机 整体 。 




































































3 19.1.2 ”结构 化 查询 语言 简介 





SQL (Structured Query Language) 是 操作 数据 库 的 通用 语言 ， 通 过 编写 SQL 语句 可 以 创建 
SQL 查询 ， 以 便 从 数据 库 中 检索 符合 条 件 的 数据 ,而 且 复 杂 的 数据 检索 任务 需要 使 用 SQL 语句 
来 完成 。 使 用 SQL 语句 还 可 以 完成 数据 的 添加 、 更 新 和 删除 等 操作 。SQL 中 的 以 下 4 个 语句 用 
于 完成 数据 的 基本 操作 ， 接 下 来 的 几 节 将 会 分 别 介 绍 这 几 个 语句 的 基本 用 法 。 

口 SELECT: 从 数据 库 中 检索 数据 。 

口 INSERT: 向 数据 库 中 添加 数据 。 

口 UPDATE: 修改 数据 库 中 的 数据 。 

口 DELETE: 删除 数据 库 中 的 数据 。 
于 本 章 是 以 Access 数据 库 为 例 来 介绍 数据 访问 技术 ， 为 了 便于 验证 SQL 语句 的 实际 功 
能 ， 可 以 在 Access 中 输入 后 面 几 节 将 要 介绍 的 SQL 语句 。 这 里 以 Access 2016 为 例 ， 在 Access 
中 输入 SQL 语句 的 方法 如 下 : 
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(1) 启动 Access 2016， 打 开 要 使 用 SQL 语句 操作 的 数据 库 文件 ， 在 功能 区 “创建 ”选项 
卡 中 单 击 “查询 设计 ”按钮 ， 如 图 19-2 所 示 。 





























创建 外 部 数据 数据 库 工 具 字段 ” 表 


= 
表 设 计 SharePoint ”查询 向 导 查询 设计 。 窗 体 窗 体 设计 

列表 ~ NR 

表格 查询 

图 19-2 单 击 “ 查 询 设计 ”按钮 
(2) 打开 “显示 表 ” 对 话 框 ， 由 于 要 使 用 SQL 建立 查询 ， 因 此 可 以 直接 单 击 “ 关 闭 ” 按 钮 
(3) 在 查询 窗口 中 的 空白 处 右 击 ， 在 弹出 的 菜单 中 选择 “SQL 视图 ”命令 ， 如 图 19-3 所 示 。 
(4) 进入 如 图 19-4 所 示 的 SQL 视图 ， 可 以 在 其 中 输入 SQL 语句 ， 然 后 在 功能 区 “查询 工 

具 ”|“ 设 计 ” 选 项 卡 中 单 击 “ 运 行 ”按钮 ， 运 行 输入 的 SQL 语句 并 返回 相应 的 结果 。 


图 客户 资料 | 字 坦 询 1 



































型 “SQL 视 亚 Q 六 











19-3 ”选择 右键 菜单 中 的 “SQL 视图 ”命令 19-4 在 SQL 视图 中 输入 SQL 语句 


下 面 介 绍 的 SQL 语句 所 操作 的 数据 都 来 自 于 Access 数据 库 中 名 为 “客户 资料 ”的 表 ， 该 
表 在 前 面 介绍 数据 库 的 基本 概念 时 曾经 引用 过 ， 包 括 以 下 几 个 字段 : 客户 编号 、 姓 名 、 性 别 、 
年 龄 、 籍 贯 、 学 历 。 


19.1.3 ”使 用 SELECT 语句 检索 数据 


SELECT 语句 是 SQL 中 的 核心 功能 ， 承 担 着 数据 操作 的 底层 工作 ， 也 是 SQL 包含 的 所 有 
语句 中 最 复杂 的 语句 。 本 节 并 不 会 涉及 SELECT 语句 的 所 有 功能 ， 而 是 主要 介绍 该 语句 在 检索 
数据 时 的 基本 用 法 。 

使 用 SELECT 语句 可 以 从 数据 库 中 的 表 中 检索 数据 ， 语 法 格式 如 下 : 

SELECT 字段 名 

FROM 要 在 其 中 查询 的 表 名 

WHERE 限定 条 件 

ORDER BY 字段 名 [ASC|DESC] 

在 使 用 上 面 的 语法 格式 编写 SELECT 语句 时 ， 需 要 注意 以 下 几 点 : 

口 在 SELECT 语句 中 必须 提供 FROM 子 句 ， 其 他 子 句 是 可 选 的 。 

口 SELECT 语句 右 侧 可 以 包含 多 个 字段 ， 各 个 字段 之 间 以 逗号 分 隔 。 

口 如 果 需 要 检索 不 同 表 中 的 字段 ， 且 这 些 表 中 包含 名 称 相同 的 字段 ， 那 么 需要 在 字段 名 前 
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使 用 表 名 作为 限定 符 ， 以 明确 告诉 Access 引用 的 同名 字段 来 自 于 哪个 表 。 但 是 为 了 使 
SELECT 语句 的 含义 更 清晰 ， 即 使 只 在 一 个 表 中 检索 数据 ， 也 最 好 在 字段 名 前 使 用 表 名 
作为 限定 符 。 
口 如 果 字 段 名 中 包含 空格 ， 则 需要 使 用 方 括号 将 字段 名 括 起 。 
口 字符 串 常量 需要 使 用 一 对 单 引号 括 起 ， 日 期 数据 需要 使 用 一 对 “#” 号 括 起 。 
口 为 了 明确 告诉 Access 当前 的 SELECT 语句 已 结束 , 在 SELECT 语句 结尾 应 该 包含 分 号 。 
如 果 语 句 结尾 没有 分 号 ，Access 将 会 假定 语句 已 结束 。 
案例 19-1 使 用 SELECT 语句 检索 表 中 的 所 有 记录 
下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 所 有 记录 ， 其 中 的 * 号 是 一 个 通配符 ， 用 于 表示 表 
h 的 所 有 字段 。 


SELECT * 
FROM 客户 资料 ; 


案例 19-2 ”使 用 SELECT 语句 检索 表 中 包含 特定 字段 的 所 有 记录 

时 下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 包含 “客户 编号 ”“ 姓 名 ”“ 年 龄 ”和 “学 历 ”4 
个 字段 的 所 有 记录 ， 如 图 19-5 所 示 。 本 例 中 的 SQL 语句 在 字段 名 前 添加 了 表 名 作为 限定 符 。 

SELECT 客户 资料 .客户 编号 ,客户 资料 .姓名 ,客户 资料 .年 龄 ,客户 资料 .学 历 





































































































FROM 客户 资料 ; 
EF 
客户 编号 - 姓名 - 年龄 - 学历 
1001| 获 凯 45 高 中 
1002 陆 婕 28 高 中 
1003 苏 婉 24 初中 
1004 韩 晨 22 高 中 
1005 戴 蓉 44 大 专 
1006 康 远 45 博士 
1007 余 吴 39 职高 
1008 孟 荣 27 硕士 
1009 谭 兰 25 大 本 
1010 周 枫 48 硕士 
1011 于 柔 38 大 专 
1012 赵 蓉 44 硕士 
1013 邵 昂 42 大 本 
1014 赵 车 30 博士 
1015 将 晖 23 大 本 
1016 刘 婚 25 中 专 
1017 美 盛 26 职高 
1018 匡 健 44 硕 十 
1019 苏 凤 4 硕士 
1020 黄 萍 40 中 专 





图 19-5 检索 表 中 的 特定 字段 


如 果 改 变 SELECT 语句 中 各 个 字段 的 排列 顺序 ， 则 在 返 
案例 19-3 ”使 用 SELECT 语句 检索 表 中 满足 单一 条 件 的 所 有 记录 
下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 年 龄 大 于 30 的 所 有 记录 ， 如 图 19-6 所 示 。 为 了 设 
置 条 件 ， 需 要 在 WHERE 子 句 中 设置 检索 条 件 。 


SELECT * 
FROM 客户 资料 
WHERE 客户 资料 .年龄 >307 





加 








内 容 中 各 个 字段 的 排列 顺序 也 会 
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-有 
45 北京 高 中 





男 
1005 戴 营 女 44 山东 大 专 
1006 康辉 男 45 云南 博士 
1007 余 吴 男 39 吉林 职高 
1010 周 机 男 48 北京 硕士 
1011 于 柔 女 38 安徽 大 专 
1012 赵 蓉 女 44 黑龙 江 硕士 
1013 邵 昂 男 42 黑龙 江 大 本 
1018 莱 健 男 44 甘肃 硕士 
1019 苏 凤 女 和 所 江苏 硕士 
1020 黄 注 女 40 湖北 中 专 


图 19-6 检索 表 中 符合 特定 条 件 的 内 容 


案例 19-4 使 用 SELECT 语句 检索 表 中 满足 单一 条 件 中 的 一 系列 特定 值 的 所 有 记录 
下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 学 历 为 大 专 、 大 本 和 硕士 的 所 有 记录 ， 如 图 19-7 四 绕 
所 示 。 为 了 表示 单一 条 件 中 的 一 系列 特定 值 ， 需 要 在 WHERE 子 句 中 使 用 IN 关键 字 , 并 在 一 对 
圆 括号 中 放置 这 些 特定 值 。 

SELECT * 


FROM 客户 资料 
WHERE 客户 资料 .学 历 IN (' 大 专 ',' 大 本 '，' 硕 士 '); 
































1005 戴 等 女 44 山东 大 专 
1008 孟 荣 男 27 湖南 硕士 
1009 谭 兰 女 25 甘肃 大 本 
1010 周 枫 男 48 北京 硕士 
1011 于 和 柔 女 38 安徽 大 专 
1012 赵 蓉 女 44 黑龙 江 硕士 
1013 邵 昂 里 42 黑龙 江 大 本 
1015 将 晕 男 23 重庆 大 本 
1018 第 健 男 44 甘肃 硕士 
1019 苏 凤 女 和 所 江苏 硕士 


图 19-7 检索 表 中 满足 单一 条 件 中 的 一 系列 特定 值 的 所 有 记录 


案例 19-5 ”使 用 SELECT 语句 检索 表 中 满足 多 个 条 件 之 一 的 所 有 记录 
下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 年 龄 小 于 30 岁 或 籍贯 是 北京 的 所 有 记录 ,如 图 19-8 回 
所 示 。 为 了 表示 满足 多 个 条 件 之 一 ， 需 要 使 用 逻辑 运算 符 OR 连接 多 个 条 件 。 




















SELECT * 
FROM 客户 资料 
WHERE 客户 资料 .年龄 <30 OR 客户 资料 .籍贯 =' 北京 '; 
| 也 覃 9 
客户 编号 - 姓名 -| 性 别 - 年 龄 - 籍贯 -| 学 历 
1001| 族 凯 男 95 北京 中 
| 1002 陆 婕 女 28 福建 高 
| 1003 苏 婉 女 24 湖北 初中 
| 1004 韩 晨 女 22 湖南 高 中 
1008 孟 某 男 27 湖南 硕士 
1009 谭 兰 Re 25 甘肃 大 本 
1010 周 机 男 48 北京 硕士 
1015 将 晖 男 23 重庆 大 本 
| 1016 刘 姗 女 25 福建 中 专 
1017 美 盛 男 26 北京 职高 


图 19-8 检索 表 中 满足 多 个 条 件 之 一 的 所 有 记录 


案例 19-6 ”使 用 SELECT 语句 检索 表 中 同时 满足 多 个 条 件 的 所 有 记录 
下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 所 有 年 龄 在 30 岁 以 上 的 男性 客户 的 记录 ,如 图 19-9 
























.423 。 
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所 示 。 为 了 表示 同时 满足 多 个 条 件 ， 需 要 使 用 逻辑 运算 AND 连接 多 个 条 件 。 
SELECT * 
FROM 客户 资料 
WHERE 客户 资料 .年 龄 >30 RND 客户 资料 .性 别 =' 男 "7 






籍贯 
45 45 北京 高 


男 
1006 康辉 男 4 和 5 云南 博士 
1007 余 昊 男 39 吉林 职高 
1010 周 机 男 48 北京 硕士 
1013 邵 昂 | 42 黑龙 江 大 本 
1018 菇 健 男 44 甘肃 硕士 


图 19-9 检索 表 中 同时 满足 多 个 条 件 的 所 有 记录 


案例 19-7 使 用 SELECT 语句 检索 表 中 包含 特定 字段 的 所 有 记录 并 进行 排序 
下 面 的 SQL 语句 将 从 客户 资料 表 中 返回 包含 “客户 编号 ”“ 姓 名 ”“ 年 龄 ”和 “学 历 ”4 
个 字段 且 年 龄 大 于 30 岁 ， 并 按 年 龄 降序 排列 的 所 有 记录 ， 如 图 19-10 所 示 。 为 了 对 记录 降序 排 
列 ， 需 要 在 ORDER BY 子 句 中 使 用 DESC 关键 字 。 

SELECT 客户 资料 .客户 编号 ， 客 户 资料 .姓名 ， 客 户 资料 .年 龄 ， 客 户 资料 .学历 

FROM 客户 资料 

WHERE 客户 资料 ,年龄 >30 

ORDER BY 客户 资料 .年 龄 DESC; 

EE 

客户 编号 -姓名 - 
1010| 周 枫 48 硕士 























1006 康辉 45 博士 
1001 凌 凯 45 高 中 
1018 钙 健 44 硕士 
1012 赵 蓉 44 硕士 
1005 戴 蓉 特大 专 
1013 部 昂 42 大 本 
1019 苏 凤 红 硕士 
1020 黄 薄 40 中 专 
1007 余 吴 39 职高 
1011 于 柔 38 大 专 


图 19-10 检索 表 中 包含 特定 字段 的 所 有 记录 并 进行 排序 


19.1.4 ”使 用 INSERT 语句 添加 数据 


使 用 INSERT 语句 可 以 向 数据 库 中 的 表 中 添加 新 的 数据 ， 语 法 格式 如 下 : 


INSERT INTO 表 名 (字段 名 列表 ) 
VALUES (与 字段 一 一 对 应 的 值 列表 ) 


如 果 在 VALUES 子 句 中 为 表 中 所 有 字段 提供 了 值 ， 则 可 以 在 INSERT INTO 语句 中 只 提供 
表 名 ， 而 省 略 字段 名 列表 。 


回 浪 澡 B 国 案例 19-8 使 用 INSERT 语句 向 表 中 添加 新 的 记录 

下 面 的 SQL 语句 向 客户 资料 表 中 添加 一 条 新 记录 ， 新 增 记 录 中 的 客户 编号 是 “1021”， 姓 
名 是 “ 尚 品 科 技 ”， 性 别 是 “ 男 ”， 年 龄 是 “30”， 籍 贯 是 “北京 ”， 学 历 是 “硕士 ”。 由 于 
本 例 是 为 客户 资料 表 中 的 所 有 字段 添加 数据 ， 因 此 省 略 了 INSERT INTO 语句 中 的 字段 名 列表 。 

INSERT INTO 客户 资料 

VALUES (1021, ' 尚 品 科技 ',' 男 ',30, ' 北 京 ', ' 硕 士 ') 


运行 上 面 的 SQL 语句 ， 将 会 弹出 如 图 19-11 所 示 的 对 话 框 。 如 果 要 向 表 中 添加 新 记录 ， 则 
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单 击 “ 是 ”按钮 ， 此 操作 无 法 撤销 。 
局 EE 攻 EER23 
要 六 病 S | 寻 和 名 -| 性 别 -| 年检 ol 

1001| 识 遍 男 bd 
1002 陆 婕 女 高 中 
1003 苏 婉 女 芭 中 

1004 韩 晨 女 
1005 茵 车 女 去 过 
1006 康辉 男 二 十 
1007 余 吴 男 职高 
1008 和 孟 某 男 机 二 
1009 谭 兰 女 大 本 
1010 周 机 男 可 二 
1011 于 又 女 大 过 
1012 赵 芙 女 
- 1013 邵 昂 男 本 
Microsoft Access 1014 赵 著 攻 = 
1015 蒋 晖 男 本 
您 正 准 备 追加 1 行 。 1016 刘刚 出 专 
人 ES 1017 美 盛 男 开间 
Ds 1018 某 健 男 硕士 
确实 要 追加 远 中 1019 苏 凤 区 机 二 
1020 黄 薄 时 
EN 1021 沿 品 科技 。 田 亚 二 














图 19-11 向 表 中 添加 新 的 记录 


案例 19-9 使 用 INSERT 语句 向 表 中 添加 不 完整 的 新 记录 
下 面 的 SQL 语句 向 客户 资料 表 中 添加 一 条 新 记录 , 但 是 只 为 记录 中 的 “客户 编号 ”“ 姓 名 ” 
和 “年 龄 ”3 个 字段 设置 了 数据 ， 其 他 几 个 字段 留 空 ， 如 图 19-12 所 示 。 


INSERT INTO 客户 资料 (客户 资料 .客户 编号 ,客户 资料 .姓名 ,客户 资料 .年 龄 ) 
VALUES (1021,' 尚 品 科技 ' ,30); 




















| 习 客户 资料 
客户 编号 -| 姓名 -| 性 别 - 年 龄 -| 籍贯 -| 学 历 - 

1001j 玲 凯 男 45 北京 高 中 
1002 陆 婕 女 28 福建 高 中 
1003 苏 婉 女 24 湖北 初中 
1004 韩 晨 女 22 湖南 高 中 
1005 戴 蓉 女 44 山 东 大 专 
1006 康辉 男 45 云南 博士 
1007 余 吴 男 39 吉林 职高 
1008 孟 荣 男 27 湖南 硕士 
1009 语 兰 女 25 甘肃 大 本 
1010 周 枫 男 48 北京 硕士 
1011 于 柔 女 38 安徽 大 专 
1012 赵 蓉 女 4 黑龙 江 硕士 
1013 邵 昂 男 42 黑龙 江 大 本 
1014 赵 蓉 女 30 重庆 博士 
1015 将 晖 男 23 重庆 大 本 
1016 刘 婚 女 25 福建 中 专 
1017 美 盛 男 26 北京 职高 
1018 革 健 男 44 甘肃 硕士 
1019 苏 凤 女 和 4 江苏 硕士 
1020 黄 萍 女 40 湖北 中 专 
1021 尚 品 科技 30 


图 19-12 向 表 中 添加 不 完整 记录 


19.1.5 使 用 UPDATE 语句 修改 数据 
使 用 UPDATE 语句 可 以 修改 数据 库 中 的 表 中 的 数据 ， 语 法 格式 如 下 : 


UPDATE 表 名 
SET 字段 名 及 其 对 应 值 的 列表 
WHERE 限定 条 件 
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如 果 需 要 修改 多 个 字段 的 值 ， 则 需要 在 SET 子 句 中 分 别 列 出 所 需 修改 的 每 一 个 字段 名 及 其 

对 应 的 值 ， 并 使 用 等 号 连接 它们 。WHERE 子 句 是 可 选 的 ， 如 果 省 略 该 子 句 ， 则 将 修改 表 中 每 

条 记录 的 特定 字段 中 的 值 。 如 果 只 想 修改 特定 记录 中 的 值 , 则 需要 在 WHERE 子 句 中 指定 条 件 ， 

通常 将 条 件 设 置 为 特定 记录 的 主键 的 值 。 
案例 19-10 ”使 用 UPDATE 语句 修改 表 中 特定 记录 的 数据 

: 下 面 的 SQL 语句 将 客户 资料 表 中 客户 编号 为 1006 的 记录 中 的 籍贯 改 为 “北京 ”， 学 历 改 
为 “大 专 ” 。 

UPDATE 客户 资料 


SET 客户 资料 .籍贯 = "北京 ,， 客户 资料 .学 历 =" 大 专 ， 
WHERE 客户 资料 .客户 编号 =1006 


运行 上 面 的 SQL 语句 ， 将 会 弹出 如 图 19-13 所 示 的 对 话 框 。 如 果 要 修改 表 中 的 数据 ， 则 单 


Microsof ft Access x 
































您 正 准备 更 新 1 行 . 


|。 单 二 -是 "后 , 格 不 能 用 " 状 消 "命令 来 傣 复 更 改 . 
确实 要 更 新 这 些 记录 玛 ? 


图 19-13 ”修改 表 中 的 数据 时 显示 的 信息 


19.1.6 使 用 DELETE 语句 删除 数据 
使 用 DELETE 语句 可 以 删除 数据 库 中 的 表 中 的 数据 ， 语 法 格式 如 下 : 


DELETE FROM 表 名 
WHERE 限定 条 件 


与 UPDATE 语句 类 似 ，DELETE 语句 中 的 WHERE 子 句 也 是 可 选 的 。 如 果 在 DELETE 语 
句 中 省 略 WHERE 子 句 ， 则 会 删除 表 中 的 所 有 记录 。 如 果 要 删除 表 中 的 特定 记录 ， 则 需要 在 
WHERE 子 句 中 指定 条 件 ， 通 常 将 条 件 设置 为 特定 记录 的 主键 的 值 。 

案例 19-11 使 用 DELETE 语句 删除 表 中 的 特定 记录 
下 面 的 SQL 语句 将 删除 客户 资料 表 中 客户 编号 为 1006 的 记录 。 


DELETE FROM 客户 资料 
WHERE 客户 资料 .客户 编号 =1006 


运行 上 面 的 SQL 语句 ， 将 会 弹出 如 图 19-14 所 示 的 对 话 框 。 如 果 要 删除 表 中 的 特定 记录 ， 
则 单 击 “是 ”按钮 ， 此 操作 无 法 撤销 。 


Microsoft Access x 















































您 正 准备 从 指定 表 币 除 1 行 - 
单 去 是" 后, 梅 不 能 用 -“ 稚 消 "命令 来 恢复 更 改 。 
确实 委 制 除 丢 中 的 记录 码 ? 


显示 帮助 (E) >> 


Ce Lm 
图 19-14 删除 表 中 的 记录 时 显示 的 信息 
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19.2 ADO 对 象 模型 简介 


ADO 是 Microsoft 通用 的 数据 访问 技术 , 这 意味 着 可 以 使 用 ADO 访问 任何 一 种 可 能 的 数据 
源 ， 比 如 Access 数据 库 、SQL Server 数据 库 、 文 本 文件 等 。 实 际 上 与 数据 直接 连接 的 并 不 是 
ADO， 而 是 一 个 称 为 OLE DB 的 更 底层 的 技术 。 由 于 OLE DB 无 法 直接 与 VBA 交互 ， 因 此 设 
计 ADO 以 为 它们 之 间 提供 接口 。 无 论 数据 源 是 何 种 类 型 ，ADO 都 使 用 相同 的 一 组 命令 进行 访 
问 ， 这 也 正 是 ADO 作为 通用 的 数据 访问 技术 的 主要 原 

与 Excel 对 象 模型 类 似 , ADO 也 有 其 自 己 的 对 象 模型， 其 中 包含 的 对 象 专门 用 于 数据 访问 。 
在 Excel 中 使 用 ADO 访问 数据 时 主要 使 用 以 下 3 个 对 象 : 

口 Connection 对 象 : 该 对 象 用 于 建立 数据 源 的 连接 。 

口 Command 对 象 : 该 对 象 用 于 对 数据 源 执行 命令 ， 比 如 使 用 SELECT 语句 从 数据 源 中 检 

索 数 据 。 

口 Recordset 对 象 : 该 对 象 表示 在 数据 源 中 检索 数据 后 返回 的 记录 集 。 

以 上 3 个 对 象 都 是 外 部 可 创建 对 象 ， 本 节 主 要 介绍 这 3 个 对 象 。 
19.2.1 ”Connection 对 象 

Connection 对 象 的 使 用 非常 灵活 。 在 一 些 简单 的 数据 访问 任务 中 , 可 能 只 需 使 用 Connection 
对 象 就 可 以 完成 数据 源 的 连接 以 及 命令 的 执行 。 在 某 些 数据 访问 任务 中 可 能 根本 不 需要 使 用 
Connection 对 象 ， 因 为 Command 对 象 和 Recordset 对 象 在 需要 时 会 自动 创建 Connection 对 象 。 
表 19-1 和 表 19-2 列 出 了 Connection 对 象 的 常用 属性 和 方法 。 


表 19-1 Connection 对 象 的 常用 属性 
属 性 说 了 明 
ConnectionString 设置 或 返回 用 于 建立 数据 源 连接 所 必需 的 信息 
State 返回 数据 源 的 连接 状态 






























































































































































表 19-2 Connection 对 象 的 常用 方法 








D3 说 明 
Close 关闭 数据 源 的 连接 。 关 闭 连 接 前 应 该 检查 连接 状态 ， 以 免 出 现 运行 时 错误 
Execute 执行 指定 的 命令 并 返回 Recordset 对 象 
Open 使 用 连接 信息 建立 数据 源 的 连接 





19.2.2 Command 对 象 


Command 对 象 用 于 对 已 建立 连接 的 数据 源 执行 指定 的 命令 ， 比 如 SQL 语句 。 表 19-3 和 表 
19-4 列 出 了 Command 对 象 的 常用 属性 和 方法 。 


表 19-3 ” Command 对 象 的 常用 属性 






































属 性 说 了 明 
ActiveConnection 返回 或 设置 一 个 已 建立 连接 的 Connection 对 象 或 用 于 建立 连接 的 字符 串 
CommandText | 返回 或 设置 用 于 执行 命令 的 字符 串 
CommandType 返回 或 设置 用 于 优化 命令 执行 效率 的 命令 类 型 
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表 19-4 Command 对 象 的 常用 方法 
pp 说 明 








执行 指定 的 命令 。 如 果 执 行 的 是 SELECT 语句 ， 则 会 返回 Recordset 对 象 


19.2.3 ”Recordset 对 象 


Recordset 对象 表 示 在 数据 源 中 检索 数据 后 返回 的 记录 和 集 . 表 19-5 和 表 19-6 列 出 了 Recordset 
对 象 的 常用 属性 和 方法 。 























表 19-5 Recordset 对 象 的 常用 属性 






























































属 性 说 明 
ActiveConnection 返回 或 设置 一 个 已 建立 连接 的 Connection 对 象 或 用 于 建立 连接 的 字符 串 
BOF 确定 当前 记录 是 否 位 于 第 一 条 记录 之 前 ， 即 文件 开头 ， 如 果 是 则 返回 True 
EOF 确定 当前 记录 是 否 位 于 最 后 一 条 记录 之 后 ， 即 文件 结尾 ， 如 果 是 则 返回 True 
Filter 为 Recordset 对 象 中 的 内 容 设 置 筛 选 条 件 
RecordCount 返回 Recordset 对 象 中 包含 的 记录 总 数 
Sort 为 Recordset 对 象 中 的 内 容 设 置 排 序 条 件 
Source 返回 或 设置 Recordset 对 象 中 的 数据 的 来 源 











表 19-6 Recordset 对 象 的 常用 方法 




















万 是 这 法 说 明 
Delete 删除 Recordset 对 象 中 的 当前 记录 或 记录 组 
Move 移动 Recordset 对 象 中 的 当前 记录 的 位 置 
MoveFirst 移动 到 Recordset 对 象 中 的 第 一 条 记录 
MoveLast 移动 到 Recordset 对 象 中 的 最 后 一 条 记录 
MoveNext 移动 到 Recordset 对 象 中 的 下 一 条 记录 
MovePrevious 移动 到 Recordset 对 象 中 的 上 一 条 记录 
Open 打开 代表 基本 表 、 查 询 结果 或 以 前 保存 的 Recordset 对 象 中 的 内 容 
Save 将 Recordset 对 象 中 的 所 有 记录 以 文件 的 形式 保存 
Update 保存 对 Recordset 对 象 中 的 当前 记录 所 做 的 更 改 


19.3 在 Excel 中 使 用 ADO 访 问 数据 的 一 般 流程 和 具体 方法 


我 们 可 能 经 常 需要 在 Excel 中 访问 位 于 Excel 之 外 的 数据 ,比如 Access 数据 库 或 SQL Server 
数据 库 中 的 数据 ， 使 用 ADO 技术 可 以 很 方便 地 从 不 同类 型 的 数据 源 中 获取 数据 。 本 节 以 访问 
Access 数据 库 中 的 数据 为 例 ， 介 绍 在 Excel 中 使 用 ADO 访问 数据 的 一 般 流程 和 具体 方法 。 在 
Excel 中 使 用 ADO 访问 数据 的 整个 过 程 可 以 分 为 以 下 几 步 : 

(1) 添加 对 ADO 类 型 库 的 引用 。 

(2) 建立 数据 源 的 连接 。 

(3) 从 数据 源 中 检索 数据 并 返回 特定 的 记录 和 集 。 
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ADO 对 象 模型 中 的 对 象 来 访问 数据 ， 可 以 在 编写 代码 之 前 使 用 前 期 绑 定 






































VBE 窗口 ， 单 击 菜单 栏 中 


(4) 关闭 数据 源 的 连接 。 

下 面 将 对 流程 中 的 各 个 步骤 涉及 的 具体 操作 进行 详细 介绍 。 
19.3.1 添加 对 ADO 类 型 库 的 引用 

为 了 便于 使 用 
术 在 VBA 工程 中 添加 对 ADO 类 型 库 的 引用 ， 方 法 如 下 : 

(1) 在 Excel 中 新 建 或 打开 一 个 工作 簿 ， 按 Alt+F11 组 合 键 打 
的 “工具 ”|“ 引 用 ”命令 。 

(2) 打开 “3 








用 ”对 话 框 ， 在 “可 使 用 的 引用 ”列表 框 中 选择 要 添加 的 ADO 类 型 库 的 版 








本 ,比如 选中 Microsoft ActiveX Data Objects 2.5 Library 复 选 框 , 如 图 19-15 所 示 , 然后 单 击 “ 确 





引用 - VBAProject 


可 使 用 的 引用 (A) 


ot 





< > 


Jierosoft ActiveX Data Objects 2.5 Library 
定位 


语言 标准 





C:\Program Files (x86)\Common Files\Systen\ado\nst 


x 
广 贮 | 
取消 


浏览 (8) 





帮助 (0 








图 19-15 添加 对 ADO 类 型 库 的 引用 


19.3.2 ”建立 数据 源 的 连接 





我 们 可 以 使 用 























Connection 对 象 的 Open 方法 建立 数据 源 的 连接 。 成 功 建立 连接 后 ， 该 连接 


将 处 于 活动 状态 ， 此 时 可 以 直接 对 其 发 出 命令 并 处 理 结果 。Open 方法 的 语法 格式 如 下 : 


Open ConnectionString, UserID, Password, Options 


口 ConnectionString: 数据 源 的 连接 信息 。 


口 UserID: 建立 连接 时 使 用 的 
口 Password: 建立 连接 时 使 用 














户 名 。 
的 密码 。 




















口 Options: 建立 异步 连接 或 同步 连接 。adConnectUnspecified 常量 值 表示 建立 同步 连接 ， 
adAsyncConnect 常量 值 表示 建立 异步 连接 。 

如 果 在 执行 Open 方法 之 前 预先 为 Connection 对 象 的 ConnectionString 属性 设置 了 连接 数据 

源 所 需 的 信息 ， 则 在 执行 Open 方法 时 可 以 省 略 ConnectionString 参数 ， 这 是 因为 该 参数 的 值 可 


以 自动 继承 


ConnectionString 属性 中 包含 的 连接 信息 。 





在 ConnectionString 参数 中 设置 的 数据 源 的 连接 信息 通常 包含 以 下 3 个 : 
口 OLE DB 提供 者 ， 比 如 “Provider=Microsoft.ACE.OLEDB.12.0”， 如 果 连 接 到 不 同类 型 
的 数据 库 ，Provider 参数 中 的 内 容 将 会 有 所 不 同 。 


口 Access 数据 库 文件 的 路 径 和 文件 名 ， 比 如 : 


口 Mod 


模式 ， 设 置 对 连接 到 的 数据 源 的 访问 权限 。 


“G: 客户 订单 系统 .accdb”。 
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案例 19-12 ”建立 数据 源 的 连接 

下 面 的 代码 在 Excel 中 建立 对 位 于 G 盘 根 目录 中 名 为 “客户 订单 系统 .accdb” 的 Access 数 
据 库 文件 的 连接 。 如 果 Provider 和 Data Source 中 的 内 容 不 正确 , 或 者 要 连接 到 的 数据 库 文件 的 
路 径 或 名 称 不 正确 ，VBA 代码 都 会 出 现 运行 时 错误 。 

Sub 建立 数据 源 的 连接 () 


Dim adoCnn As ADODB.Connection, strCnn As String 
Dim strProvider As String, strDataSource As String 
strProvider = "Provider=Microsoft.ACE.OLEDB.12.0;" 
strDataSource = "Data Source=G:\ 客 户 订单 系统 .accdb" 
strCnn = strProvider & strDataSource 
Set adoCnn = New ADODB.Connection 
adoCnn.Open strCnn 

End Sub 


19.3.3 ”从 数据 源 中 检索 数据 并 返回 特定 的 记录 集 


建立 数据 源 的 连接 后 ， 需 要 通过 从 数据 源 中 检索 数据 来 获取 满足 指定 条 件 的 记录 集 ， 以 便 
为 之 后 的 操作 做 好 准备 。 可 以 使 用 Connection 对 象 的 Execute 方法 执行 SQL 语句 以 从 数据 源 中 
检索 数据 。Execute 方法 的 语法 格式 如 下 : 
Execute CommandText, RecordsAffected, Options 
口 CommandText: 必 选 ， 用 于 执行 命令 的 字符 串 ， 最 常用 的 是 SQL 语句 。 
口 RecordsAffected: 可 选 ， 希 望 命令 所 操作 的 记录 数 。 
口 Options: 可 选 ， 该 参数 的 设置 将 会 影响 命令 的 执行 效率 。 如 果 使 用 的 是 SQL 语句 ， 则 
应 该 将 该 参数 设置 为 adCmdText。 还 可 以 在 该 参数 中 指定 是 异步 执行 命令 还 是 在 执行 
Execute 方法 后 不 构建 Recordset 对 象 。 
案例 19-13 ”使 用 Connection 对 象 从 数据 源 中 检索 数据 
下 面 的 代码 获取 “客户 订单 系统 .accdb” 文 件 中 年 龄 在 30 岁 以 上 的 所 有 客户 记录 ， 并 将 其 
写 入 活动 工作 矢 的 Sheetl 工作 表 中 以 A2 单元 格 为 左上 角 单 元 格 的 单元 格 区 域 中 ， 如 图 19-16 
所 示 。 




























































































A B C D E F G 
1 | 客户 编号 ”姓名 性 别 男 年 龄 籍贯 
2 1001 鞠 凯 男 45 北京 高 中 
3 1005 戴 著 女 44 山东 大 专 
4 1006 康辉 男 45 云南 请 十 
5 1007 余 吴 男 39 吉林 职高 
1010 周 枫 男 48 北京 硕士 
1011 于 和 柔 女 38 安徽 大 专 
8 1012 赵 鞭 妇 44 黑龙 江 ”硕士 
9 1013 邵 昂 田 42 黑龙 江 大 本 
10 1018 萧 健 男 44 甘肃 硕士 
11 1019 苏 凤 女 41 江苏 硕士 
12 1020 黄 葵 女 40 湖北 中 专 
13 
图 19-16 从 数据 源 中 检索 数据 并 将 返回 的 数据 写 入 Excel 工作 表 











代码 首先 建立 数据 源 的 连接 ， 连 接 到 G 盘 根 目录 中 名 为 “客户 订单 系统 .accdb” 的 Access 
数据 库 文件 。 使 用 strSQL 变量 存储 用 于 从 数据 源 中 检索 数据 的 SELECT 语句 ， 该 语句 用 于 从 数 
据 源 中 检索 年 龄 在 30 岁 以 上 的 所 有 客户 记录 ， 然 后 使 用 Connection 对 象 的 Execute 方法 执行 该 
SELECT 语句 从 数据 源 中 检索 数据 , 并 将 返回 的 记录 集 赋值 给 Recordset 对 象 类 型 的 adoRst 变量 。 
为 了 避免 记录 集中 没有 数据 ， 因 此 使 用 Recordset 的 EOF 属性 判断 记录 指针 是 否 位 于 记录 
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集 最 后 一 条 记录 之 后 , 如 果 不 是 则 说 明 记 录 集 





第 19 章 使 用 ADO 访问 数据 





h 包 含 数据 。 然 后 使 用 Excel 对 象 模型 中 的 Range 











对 象 的 CopyFromRecordset 方法 将 获取 的 记录 和 集中 的 数据 写 入 活动 工作 短 的 Sheetl 工作 表 中 以 


A2 和 








元 格 为 左上 和 角 和 





立 数据 源 连 接 的 代码 。 
Sub 使 用 Connection 对 象 从 数据 源 中 检索 数据 () 


Dim adoCnn As ADODB.Connection, strCnn As String 
Dim strProvider As String, strDataSource As String 
Dim adoRst As ADODB.Recordset, strSQL As String 
Set adoRst = New ADODB.Recordset 
strProvider = "Provider=Microsoft.ACE.OLEDB.12.0;" 
StrDataSource = "Data Source=G:\ 客 户 订单 系统 .accdb" 
StrCnn = strProvider & strDataSource 
Set adoCnn = New ADODB.Connection 
adoCnn.Open strCnn 
StrSQL = "SELECT *" & vbCrLf 
strSQL = strSQL & "FROM 客户 资料 ”& vbCrLf 
strSQL = strSQL & "WHERE 客户 资料 .年龄 >307" 
Set adoRst = adocnn.Execute (strSQL) 
If Not adoRst.EOF Then 

With Worksheets ("Sheet1") 


.Range ("Al:F1") .Value = Array ("客户 编号 "，" 姓 名 "， 


贯 "，" 学 历 ") 
.Range ("Al:F1") .HorizontalAlignment = xlCenter 
.Range ("A2") .CopyFromRecordset adoRst 



































元 格 的 单元 格 区 域 中。 为 了 使 代码 完整 ,本 例 代码 中 包含 上 一 个 案例 中 建 











"性 别 "，" 男 "，" 年 龄 "，" 籍 








End With 
End If 
End Sub 
前 面 曾经 介绍 过 ，Connection 对 象 、Command 对 象 和 Recordset 对 象 都 是 外 部 可 创建 对 象 ， 
此 五 


以 在 Excel 中 直接 创建 对 其 中 任何 一 个 对 象 的 引用 。 实 际 上 除非 需要 多 次 使 用 同一 个 数 











据 源 连接 , 否则 可 以 不 需要 使 用 Connection 对 象 建立 数据 源 的 连接 , 而 直接 使 用 Recordset 对 象 
的 Open 方法 建立 数据 源 连接 的 同时 从 数据 源 中 检索 数据 。 
Recordset 对 象 的 Open 方法 的 语法 格式 如 下 : 

Open Source, ActiveConnection, CursorType, LockType, Options 


口 Source: 可 选 ， 从 数据 源 中 检索 的 数据 类 型 ， 比 如 可 以 使 用 SQL 语句 中 的 SELECT 检 


口 


口 


口 


口 


索 数 据 。 








ActiveConnection: 可 选 ， 已 建立 数据 源 连 接 的 Connection 对 象 的 名 称 或 用 于 建立 数据 


源 连接 的 字符 串 。 











CursorType: 可 选 ， 打 开 记 录 集 时 使 用 的 记录 指针 游标》 的 类 型 。 该 参数 的 默认 值 为 
AdOpenForwardOnly， 表 示 使 用 仅 向 前 的 记录 指针 。 这 种 类 型 的 记录 指针 只 能 按 从 头 到 
尾 单方 向 操作 记录 集中 的 数据 ， 单 向 移动 可 以 提高 数据 访问 的 性 能 。 

LockType: 可 选 ， 设 置 打开 记录 集 时 的 锁定 类 型 。 该 参数 的 默认 值 为 adLockReadOnly， 














表示 只 能 读 取 记录 集中 的 数据 ， 而 无 法 对 其 进行 修改 。 


Options: 可 选 ， 该 参数 的 含义 与 Connection 对 象 的 Execute 方法 中 的 同名 参数 相同 ， 已 





在 前 面 介 绍 过 。 








案例 19-14 ”使 用 Recordset 对 象 从 数据 源 中 检索 数据 


面 的 代码 与 上 一 个 案例 的 效果 相同 ， 但 是 在 建立 数据 源 的 连接 时 没有 使 用 Connection 对 
































而 是 使 用 








Recordset 对 象 的 Open 方法 同时 完成 数据 源 的 连接 与 命令 的 执行 两 项 操作 。 
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Sub 使 用 Recordset 对 象 从 数据 源 中 检索 数据 () 


Dim adoRst As ADODB.Recordset 

Dim strCnn As String, strSQL As String 

Dim strProvider As String, strDataSource Rs String 
Set adoRst = New ADODB.Recordset 

strProvider = "Provider=Microsoft.ACE.OLEDB.12.0;" 
strDataSource = "Data Source=G:\ 客 户 订单 系统 .accdb" 
strCnn = strProvider & strDataSource 

strsQL 
strSQL = strSQL & "FROM 客户 资料 "& vbCrLf 
strSQL = strSQL & "WHERE 客户 资料 .年 龄 >307" 
adoRst .Open strSQL, strCnn 

If Not adoRst.EOF Then 





WSELECT *" & vbCrLf 


With Worksheets ("Sheet1") 
.Range ("R1:Fl") .Value = Rrray(" 客 户 编号 "，" 姓 名"， "性 别 "，" 男 "， "年 龄 "，" 籍 
贯 "，" 学 历 ") 
.Range ("Al:F1") .HorizontalAlignment = xlCenter 


.Range ("A2") .CopyFromRecordset adoRst 
End With 


End If 


End Sub 


19.3.4 ”关闭 数据 源 的 连接 
完成 对 数据 源 的 操作 后 ， 应 该 关闭 数据 源 的 连接 ， 并 销毁 相关 对 象 变量 中 的 内 容 ， 即 将 

对 象 变量 设置 为 Nothing。 可 以 使 用 Connection 对 象 的 Close 方法 关闭 数据 源 的 连接 ， 同 时 也 会 
关闭 与 数据 源 连 接 相 关联 的 Recordset 对 象 。 

案例 19-15 “完成 从 数据 源 中 检索 数据 的 任务 后 关闭 数据 源 的 连接 

下 面 的 代码 与 前 面 的 案例 类 似 , 但 是 在 程序 结束 前 添加 了 关闭 记录 集 和 数据 源 连 接 的 代码 ， 
并 将 相关 的 对 象 变量 设置 为 Nothing 以 将 其 销毁 。 

Sub 完成 从 数据 源 中 检索 数据 的 任务 后 关闭 数据 源 的 连接 () 




















Dim adoCnn As ADODB.Connection, strCnn As String 
Dim strProvider As String, strDataSource As String 
Dim adoRst As ADODB.Recordset, strSsSQL As String 
Set adoRst = New ADODB.Recordset 

strProvider = "Provider=Microsoft.ACE.OLEDB.12.0;" 
strDataSource = "Data Source=G:\ 客 户 订单 系统 .accdb" 
StrCnn = strProvider & strDataSource 

Set adoCnn = New ADODB.Connection 

adoCnn.Open strCnn 

strSQL = "SELECT *" & vbCrLf 

strSQL = strSQL & "FROM 客户 资料 "”& vbCrLf 

strSQL = strSQL & "WHERE 客户 资料 .年 龄 >307" 

Set adoRst = adoCnn.Execute (StrSQL) 

If Not adoRst.EOF Then 


With Worksheets ("Sheet1") 
.Range ("Al:F1") .Value = Array ("客户 编号 "，" 姓 名 "，" 性 别 "，" 男 "， "年龄 "，" 籍 
其 "， "学历 ") 
.Range ("Al:F1") .HorizontalAlignment = xlCenter 
.Range ("A2") .CopyFromRecordset adoRst 
End With 


End If 

adoRst .Close 
adoCnn.Close 

Set adoRst = Nothing 
Set adoCnn = Nothing 


End Sub 
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注册 表 是 一 个 包含 了 计算 机 系统 中 的 软 硬 件 和 用 户 配置 信息 的 大 型 数据 库 ， 系 统 启动 、 硬 件 配 
置 、 软 件 安装 与 环境 设置 、 用 户 个 人 数据 载 入 等 任务 都 需要 与 注册 表 中 存储 的 信息 进行 交互 ， 注 册 
表 让 整个 计算 机 系统 成 为 一 个 有 机 的 整体 。 对 于 VBA 来 说 ， 如 果 想 要 开发 具有 记忆 功能 的 程序 ， 
则 需要 使 用 VBA 将 程序 的 配置 信息 写 入 注册 表 ， 并 在 下 次 运行 程序 时 从 注册 表 读 取 相 关 信息 。 本 
章 首先 介绍 了 注册 表 的 基础 知识 和 基本 操作 ， 然 后 介绍 了 使 用 VBA 操作 注册 表 的 方法 。 





























20.1 注册 表 基 础 


为 了 更 好 地 通过 编程 来 操作 注册 表 , 我 们 有 必要 对 注册 表 的 基础 概念 和 基本 操作 有 所 了 解 。 
本 节 将 介绍 注册 表 的 组 织 结构 以 及 编辑 注册 表 数 据 的 方法 。 


20.1.1 注册 表 简介 


为 了 便于 对 Windows 操作 系统 进行 统一 管理 ， 微 软 在 Windows 95 及 其 之 后 的 Windows 操 
作 系 统 中 使 用 了 一 种 称 为 “注册 表 ” 的 数据 库 ， 它 可 以 将 计算 机 中 的 各 种 资源 和 配置 信息 集中 
存储 起 来 ， 从 而 更 加 有 效 地 管理 操作 系统 及 其 相关 的 软 硬 件 和 用 户 数据 。 

系统 为 用 户 提供 了 一 些 可 以 修改 注册 表 数 据 的 图 形 化 工具 ， 比 如 控制 面板 、 组 策略 等 。 虽 
然 很 多 用 户 在 使 用 这 些 工 具 设置 系统 选项 时 并 未 留意 ， 但 是 实际 上 这 些 操作 本 质 上 是 在 对 注册 
表 进行 编 辑 。 这 些 工 具 可 以 极 大 地 降低 操作 注册 表 的 复杂 度 ， 用 户 只 需 处 理 几 个 选项 即 可 完成 
对 注册 表 特 定 部 分 的 修改 ， 但 缺点 是 只 能 对 注册 表 进 行 非常 有 限 的 修改 。 
为 了 让 用 户 可 以 更 自由 地 对 注册 表 进 行 编辑 , Windows 系统 内 置 了 专门 的 注册 表 编 辑 工具 一 一 
注册 表 编辑 器 。 注 册 表 编辑 器 是 Windows 系统 中 用 于 查看 、 编 辑 与 管理 Windows 注册 表 的 工 
具 ， 通 过 注册 表 编 辑 器 ， 用 户 可 以 在 注册 表 中 添加 或 删除 数据 ， 也 可 以 查找 特定 数据 ， 还 可 以 
将 注册 表 中 的 特定 部 分 导出 或 导入 。 
regedit.exe 是 启动 注册 表 编 辑 器 的 可 执行 文件 ， 该 文件 位 于 安装 Windows 操作 系统 的 磁盘 
分 区 的 Windows 文件 夹 中 ， 双 击 该 文件 即 可 启动 注册 表 编 辑 器 。 早 期 版 本 的 Windows 操作 系 
统 提供 了 两 种 注册 表 编 辑 器 一 regedit.exe 和 regedit32.exe， 它 们 的 大 多 数 功能 相同 。 直 到 
Windows XP 才 将 两 种 注册 表 编 辑 器 的 功能 合 二 为 一 。 


20.1.2 ”注册 表 的 组 织 结构 

启动 注册 表 编 辑 器 后 ， 其 中 显示 了 注册 表 分 层 式 的 组 织 结构 ， 如 图 20-1 所 示 。Windows 注 
册 表 是 一 个 带 有 多 个 配置 层面 的 分 层 式 结构 的 复杂 体 ， 这 些 层面 由 根 键 、 子 键 、 键 值 和 数据 组 
成 。 注 册 表 有 5 个 根 键 ， 它 们 位 于 注册 表 的 顶层 。 根 键 下 包含 多 个 子 键 。 子 键 下 可 以 继续 包含 
子 键 ， 形 成 多 层 嵌 套 的 子 键 。 每 个 子 键 可 以 包含 零 个 或 多 个 键 值 ， 键 值 用 于 为 子 键 提供 实际 的 
功能 。 只 有 在 键 值 中 包含 数据 才能 发 挥 键 值 的 作用 。 键 值 可 以 存储 不 同类 型 的 数据 ，REG_SZ、 
REG DWORD 和 REG _ BINARY 是 其 常用 的 数据 类 型 。 
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数据 类 型 。 ” 键 值 数 据 
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图 20-1 注册 表 的 分 层 式 组 织 结构 


户 不 能 创建 新 的 根 键 ， 也 不 能 删除 Windows 注册 表 的 5 个 根 键 或 修改 它们 的 名 称 。5 个 
根 键 的 名 称 和 功能 如 下 : 
口 HKEY_LOCAL _MACHINE: 存储 Windows 系统 中 安装 的 硬件 、 应 用 程序 以 及 系统 配置 
等 信息 。 
口 HKEY_CURRENT_CONFIG: 存储 当前 硬件 配置 的 相关 信息 。 
口 HKEY_ CLASSES_ ROOT: 存储 文件 关联 和 组 件 对 象 模型 的 相关 信息 ， 比 如 文件 扩展 名 
与 应 用 程序 之 间 的 关联 。 

口 HKEY_USERS: 存储 系统 中 所 有 用 户 账户 的 相关 信息 。 

口 HKEY_CURRENT_USER: 存储 当前 登录 系统 的 用 户 账户 的 相关 信息 。 

每 个 根 键 或 子 键 都 可 以 包含 键 值 。 键 值 是 指 在 注册 表 编 辑 器 中 选择 一 个 根 键 或 子 键 后 ， 在 
窗口 右 侧 显 示 的 一 个 或 多 个 项 目 。 键 值 由 名 称 、 数 据 类 型 和 数据 三 部 分 组 成 ， 它 们 按照 “名 称 ” 
“数据 类 型 ”“ 数 据 ” 的 顺序 显示 。 

在 注册 表 编 辑 器 底部 的 状态 栏 中 显示 了 当前 选中 的 根 键 或 子 键 的 完整 路 径 ， 路 径 的 格式 类 
似 于 文件 资源 管理 器 中 文件 夹 路 径 的 表示 方法 。 下 面 的 路 径 表 示 位 于 HKEY_CURRENT_USER 
根 键 中 的 Control Panel 子 键 中 的 Desktop 子 键 。 


HKEY_CURRENT_USER\Control Panel\Desktop 


20.1.3 创建 与 删除 子 键 和 键 值 


我 们 可 以 在 注册 表 中 的 大 多 数位 置 创建 子 键 ， 但 也 有 一 些 位 置 不 允许 创建 子 键 ， 了 解 这 一 
点 对 于 使 用 VBA 操作 注册 表 将 会 有 所 帮助 ， 因 为 可 以 避免 在 禁止 位 置 上 创建 子 键 所 导致 的 运 
行 时 错误 。 下 面 列 出 的 位 置 不 允许 创建 子 键 : 

口 HKEY_LOCAL MACHINE 根 键 下 。 

口 HKEY_USERS 根 键 下 。 

口 HKEY LOCAL _MACHINE\BCD00000000 子 键 下 。 

口 HKEY_ LOCAL MACHINE\SAM\SAM 子 键 下 。 

口 HKEY_ LOCAL MACHINE\SECURITY 子 键 下 。 

我 们 可 以 根据 需要 在 以 上 位 置 之 外 的 其 他 位 置 创建 子 键 。 打 开 注册 表 编 辑 器 ， 在 窗口 左 侧 找 
到 想 要 在 其 下 方 创 建 子 键 的 子 键 ， 然 后 右 击 该 子 键 ， 在 弹出 的 菜单 中 选择 “新 建 ”|“ 项 ”命令 ， 
如 图 20-2 所 示 。 将 在 右 击 的 子 键 下 创建 一 个 新 的 子 键 , 为 该 子 键 输入 一 个 名 称 后 按 Enter 键 确 认 。 
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坊 注 生 去 纺 且 器 站 

文件 (站 ”往往 (E) 过 看 (V) 收藏 夫 (A) 帮助 (H) 

Er 名 称 ee 数据 
HKEY_CLASSES ROOT 国标 内 REG SZ ( 牙 舍 未 设置 ) 


HKEY_ CURRENT_USER 
~ - 则 HKEY LOCAL MACHINE 
》- ecpoooooooo 


Y HARDWARE 。 折 酸 


ACP! 
ptscnp WN) 2 EL R 
DevicEN RD- 条 妇 值 (S) 
RESOUR MS(D) 二 进 制 值 (B) 
SAM 重合 名 (R) DWORD (32 倍 值 (D) 
SECURITY 
SoFrWARE SH®) 人 
SYSTEM RD 
可 扩充 闻 符 率 值 (E) 
HKEY_USERS 复制 项 名 称 (C) 
HKEY_CURRENT-CONRIG 
< > 





计算 机 \HKEY_LOCAL_MACHINE\HARDWARE 


图 20-2 创建 新 的 子 键 
如 果 要 删除 某 个 子 键 ， 可 以 右 击 该 子 键 ， 在 弹 








出 的 菜单 中 选择 “删除 ”命令 ， 或 在 选择 子 键 后 按 | 
Delete 键 。 使 用 任何 一 种 方法 都 会 打开 如 图 20-3 所 NE 
示 的 对 话 框 ， 单 击 “ 是 ”按钮 将 所 选 子 键 删 除 。 [ED 后 可 











注意 ， 出 除 子 键 可 能 会 导致 系统 不 稳定 或 出 现 一 
无 法 预料 的 问题 ， 因 此 在 删除 之 前 应 该 备份 注册 表 。 国 203 下 草 除 子 全 时 的 近 丰 信息 

不 包含 键 值 的 子 键 毫 无 意义 。 为 了 让 子 键 发 挥 作 用 ， 需 要 在 子 键 中 创建 一 个 或 多 个 键 值 ， 
然后 为 这 些 键 值 设置 数据 。 在 子 键 中 创建 键 值 的 方法 如 下 

C1) 打开 注册 表 编辑 器 ， 在 左 侧 窗 格 中 选择 要 在 其 中 创建 键 值 的 子 键 。 

(2) 在 右 侧 窗 格 中 的 空白 处 右 击 ， 在 弹出 的 菜单 中 选择 “新 建 ”命令 ， 然 后 在 其 子 菜单 中 
选择 一 种 数据 类 型 ， 如 图 20-4 所 示 。 





| - 0O x 

文件 (月 妨 强 (查看 (V) 收藏 夫 (A) 帮助 (H) 

> 国 计算 机 名 称 类 型 数据 
HKEY_CLASSES_ROOT | REG SZ 数值 未 设置) 


HKEY_CURRENT_USER 
~ 由 HKEY LOCAL MACHINE 
BCD00000000 


v HARDWARE 5 SS es 
ACPI 闻 季 率 值 (9) 
DESCRIPTION 二 进 制 值 (B) 
DEVICEMAP DWORD (32 位 ) 值 (D) 
Ee QWORD (64 位 ) 值 (Q) 
Pr 会 字符 素 值 (M) 
SECURITY ee 
SOFTWARE 


》- 辐 sysTEM 
HKEY_USERS 
HKEY_CURRENT_CONFIG 


Nh 2 
图 20-4 ”为 键 值 选择 一 种 数据 类 型 
(3) 选择 数据 类 型 后 将 在 右 侧 窗 格 中 新 增 一 个 键 值 ， 为 其 设置 合适 的 名 称 后 按 Enter 键 确认 。 
(4) 双击 刚 创 建 好 的 键 值 ， 在 打开 的 对 话 框 中 设置 该 键 值 的 数据 ， 如 图 20-5 所 示 ， 然 后 单 
击 “ 确 定 ” 按 钮 。 对 于 不 同 数据 类 型 的 键 值 ， 打 开 的 对 话 框 中 会 包含 不 同 的 选项 。 
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编 弓 (E) ”查看 (V) 收藏 夫 (A) 帮助 (H 
v 是 计 营 机 名 称 类 型 数据 
HKEY_CLASSES ROOT EY] REG SZ ( 政 值 未 设置 ) 


HKEY_CURRENT_USER | 国 NewkeyValue REG DWORD 0x00000000 (0) 
v -HKEY LOCAL MACHINE 





BCD00000000 
HARDWARE 
ACPI 
DESCRIPTION 
DEVICEMAP 
RESOURCEMAP 


第 霹 DWORD (32 位 值 











SECURITY 
SOFTWARE 
SYSTEM 
HKEY_USERS 
HKEY_CURRENT_CONFIG 





js 
计算 机 \HKEY_LOCAL_MACHINE\HARDWARE\NewKey 


20-5 ”设置 键 值 的 数据 


删除 键 值 的 方法 与 删除 子 键 类 似 ， 右 击 一 个 键 值 ， 在 弹出 的 菜单 中 选择 “删除 ”命令 ， 如 
图 20-6 所 示 , 然后 在 弹出 的 对 话 框 中 单 击 “是 ”按钮 将 该 键 值 删除 。 也 可 以 选择 键 值 后 按 Delete 
键 删除 键 值 。 如 果 想 要 删除 同一 个 子 键 中 的 多 个 键 值 , 则 可 以 使 用 鼠标 配合 Ctrl 或 Shift 键 同时 
选择 多 个 键 值 ， 然 后 执行 删除 操作 。 


台 注册 志 闹 各 器 -~ OF x 

文件 (站 篇 问 (E)， 得 看 (V) 收藏 天 (A) 帮助 (H) 

v 国 Hn 名 称 型 es 
HKEY_CLASSES ROOT 2 (默认) REG_SZ (数值 未 设置) 
HKEY_CURRENT_USER RFG_DWORD 0x00000064 (100) 

~ -0 HKEY LOCAL MACHINE 修改 (M)- 


Career 修改 二 进 制 数据 (B)- 
~ HARDWARE 
AcCPI WeD) RR 
DESCRIPTION 重 命名 (R) 
DEVICEMAP 
RESOURCEMAP 
Newkey 
SAM 
SECURITY 
SOFTWARE 
SYSTEM 
HKEY_USERS 
HKEY_CURRENT_CONFIG 


























< > 
计算 机 NHKEY LOCAL_ MACHINEWHARDWAREVNewKey 


图 20-6 ”删除 键 值 








20.2 使 用 VBA 操作 注册 表 


VBA 提供 了 几 个 用 于 操作 注册 表 的 内 置 函 数 和 语句 , 可 以 使 用 它们 以 编程 的 方式 读 写 注册 
表 中 的 数据 , 但 是 仅 限于 在 注册 表 中 的 以 下 位 置 读 写 数据 。 如 果 注 册 表 中 还 不 存在 VB and VBA 
Program Settings 子 键 ， 在 向 注册 表 中 写 入 数据 时 会 自动 创建 该 子 键 。 


HKEY_ CURRENT USER\SOFTWARE\VB and VBA Program Settings 
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VBA 内 置 了 4 个 用 于 读 、 写 注册 表 的 函数 和 语句 ， 具 体 如 下 : 
口 SaveSetting 语句 : 向 注册 表 中 写 入 程序 的 配置 信息 。 

口 GetSetting 函数 ， 从 注册 表 中 读 取 程序 的 某 个 设置 值 。 

口 GetAllSettings 函数 : 从 注册 表 中 读 取 程序 的 所 有 设置 值 。 
口 DeleteSetting 语句 : 删除 程序 在 注册 表 中 的 配置 信息 。 


20.2.1 使 用 SaveSetting 语句 将 内 容 写 入 注册 表 
使 用 SaveSetting 语句 可 以 向 注册 表 中 写 入 数据 ， 语 法 格式 如 下 : 


SaveSetting appname, section, key, setting 

口 appname: 必 选 ， 要 在 VB and VBA Program Settings 子 键 下 创建 的 子 键 的 名 称 ， 通 常 将 
其 指定 为 使 用 VBA 开发 的 程序 的 名 称 。 

口 section: 必 选 ， 要 在 appname 子 键 下 创建 的 子 键 的 名 称 ,通常 将 其 指定 为 由 appname 表 
示 的 程序 中 的 某 类 设置 的 名 称 。 

口 key: 必 选 ， 要 在 section 中 创建 的 键 值 的 名 称 。 

口 setting: 必 选 ， 要 为 键 值 设置 的 数据 。 

案例 20-1 使 用 SaveSetting 语句 将 指定 内 容 写 入 注册 表 

下 面 的 代码 使 用 VBA 内 置 的 InputBox 函数 创建 一 个 对 话 框 ， 然 后 将 用 户 在 其 中 输入 的 内 总 

容 写 入 注册 表 ， 如 图 20-7 所 示 。 
Sub 使 用 SaveSetting 语句 将 指定 内 容 写 入 注册 表 () 


Dim strName As String 
strName = InputBox ("请 输入 用 户 名 :") 
SaveSetting "Excel"，" 用 户 信息 "， "用户 名 "，strName 























































































End Sub 
驴 注 3 志 六 生路 ca 
文件 (F。 炉 久 可 看 V) 收藏 失 (A) 和 二 (H) 
Sogounputuser ^|| 多 wa EE 
Tc Works WN REG SZ G 信 示 设 轩 ) 
Techsmith 贡 用 户 各 REG_SZ 沿 品 科技 
rke 
Trolkech 
Unity 
v VB and VBA Program Settings 
~ Eeel 
用 广 信息 
WatchData 
Microsoft Excel x winamp 
WinRAR 
请 给 入 用 户 名 : WinRAR SFX 
取消 Wow6432Node 
wpsbox 
XPusher 
A < » | 
摧 品 科技 | 计算 机 NHKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Setings\ExceN\ 用 户 信息 
图 20-7 将 用 户 在 对 话 框 中 输入 的 内 容 写 入 注册 表 











通过 本 例 可 以 更 容易 理解 SaveSetting 语句 中 的 4 个 参数 与 写 入 到 注册 表 中 的 数据 位 置 的 对 
应 关系 ， 具 体 如 下 : 

口 appname 参数 对 应 于 图 20-6 中 的 “Excel”。 

口 section 参数 对 应 于 图 20-6 中 的 “用 户 信息 ”。 

口 key 参数 对 应 于 图 20-6 中 的 “用 户 名 ”。 

口 setting 参数 对 应 于 图 20-6 中 的 strName 变量 中 的 值 ， 即 用 户 在 对 话 框 中 输入 的 用 户 名 。 
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20.2.2 ”使 用 GetSetting 函数 读 取 特 定 键 值 中 的 内 容 


使 用 GetSetting 函数 可 以 从 注册 表 中 读 取 特 定 键 值 中 的 数据 ， 并 作为 该 函数 的 返 
GetSetting 函数 的 语法 格式 如 下 : 
GetSetting (appname，section，key[，default]) 
GetSetting 函数 的 前 3 个 参数 的 含义 与 SaveSetting 语句 的 前 3 个 参数 相同 ， 只 不 过 这 里 不 
是 创建 而 是 读 取 。GetSetting 函数 的 最 后 一 个 参数 default 用 于 为 GetSetting 函数 的 返回 值 指定 一 
个 默认 值 ， 如 果 读 取 的 内 容 不 包含 数据 ， 则 返回 由 default 参数 指定 的 默认 值 。 如 果 省 略 default 
参数 ， 则 在 读 取 不 到 数据 时 返回 零 长 度 的 空 字符 串 。 如 果 不 存在 指定 的 子 键 ， 则 会 出 现 运行 时 
错误 。 
案例 20-2 使 用 GetSetting 函数 读 取 注 册 表 中 的 内 容 
下 面 的 代码 从 注册 表 中 读 取 上 一 个 案例 写 入 到 注册 表 中 的 数据 ， 并 在 对 话 框 中 显示 读 取 到 
的 内 容 ， 如 图 20-8 所 示 。 
Sub 使 用 GetSetting 函数 读 取 注 册 表 中 的 内 容 () 
Dim strApp As String, strSection Rs String 
Dim strKey As String, varValue As String 


strApp = "Excel" 
strSection = "用 户 信息 " 
strKey = "用 户 名 " 
varValue = GetSetting(strApp, strSection, strKey) 
MsgBox "从 注册 表 中 读 取 到 的 内 容 是 : " & varValue 
End Sub 




















互 





值 。 


















































Microsoi ft Excel x 


从 注册 表 中 读 取 到 的 内 容 是 : 尚 品 科技 


Cs 
图 20-8 在 对 话 框 中 显示 从 注册 表 中 读 取 到 的 内 容 


案例 20-3 ”为 工作 短 中 的 所 有 工作 表 应 用 相同 的 网 格 线 设 置 

Excel 中 的 网 格 线 设置 只 对 活动 工作 表 有 效 。 如 果 想 要 让 工作 短 中 的 所 有 工作 表 具 有 相同 的 
网 格 线 设 置 ， 那 么 就 需要 逐一 对 每 个 工作 表 重 复 进行 相同 的 网 格 线 设置 。 借 助 注册 表 ， 可 以 实 
现在 工作 短 中 的 任意 一 个 工作 表 中 设置 的 网 格 线 选 项 ， 自 动 应 用 于 该 工作 短 中 的 所 有 工作 表 。 
下 面 的 代码 位 于 工作 筹 中 的 标准 模块 中 ， 用 于 将 对 任意 一 个 工作 表 进 行 的 网 格 线 设置 写 入 
注册 表 ， 如 图 20-9 所 示 。 为 了 让 用 户 可 以 选择 是 否 显示 网 格 线 ， 在 代码 中 声明 了 一 个 Boolean 
数据 类 型 的 变量 ， 如 果 该 变量 为 True 则 显示 网 格 线 ， 为 False 则 不 显示 网 格 线 。 通 过 将 该 变量 
的 值 写 入 注册 表 来 存储 用 户 对 工作 表 的 网 格 线 所 做 的 设置 。 

使 用 MsgBox 函数 产生 一 个 对 话 框 ， 其 中 提供 了 “是 ”和 “和 否 ”两 个 按钮 。 如 果 用 户 单 击 
“是 ”按钮 ， 则 显示 网 格 线 ， 如 果 用 户 单 击 “ 否 ”按钮 ， 则 隐藏 网 格 线 。 在 Select Case 判断 结 
构 中 通过 检查 IngAns 变量 的 值 来 确定 用 户 单 击 的 是 哪个 按钮 ， 并 使 用 strDisplay 变量 根据 用 户 
单 击 的 按钮 来 存储 不 同 的 内 容 ， 从 而 可 以 记录 用 户 对 网 格 线 所 做 的 设置 。 

在 第 二 个 Select Case 判断 结构 中 检查 strDisplay 变量 的 值 ， 以 确定 用 户 是 否 要 显示 工作 表 
的 网 格 线 ， 并 根据 用 户 的 设置 改变 Window 对 象 的 DisplayGridlines 属性 的 值 ， 从 而 实现 显示 或 
隐藏 网 格 线 的 功能 。 最 后 使 用 SaveSetting 语句 将 网 格 线 的 设置 结果 写 入 注册 表 。 
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Sub 为 工作 竹中 的 所 有 工作 表 应 用 相同 的 网 格 线 设置 () 
Dim lngAns As Long, strDisplay As String 
lngAns = MsgBox (" 是 否 显示 工作 表 的 网 格 线 ? "，vbQuestion + vbYesNo) 
Select Case lngans 
Case vbYes 


strDisplay = "是 " 
Case vbNo 
strDisplay = " 否 " 
End Select 


Select Case strDisplay 
Case "是 ": ActiveWindow.DisplayGridlines 


True 
Case " 否 ": ActiveWindow.DisplayGridlines = False 








End Select 
SaveSetting "Excel",， "网 格 线 设置 "，" 是 否 显示 网 格 线 "，strDisplay 
End Sub 
有 注 册 志 六 各 器 - 0O x 
文件 (F)” 妨 加 (E) 查看 (V) 收藏 夫 (A) 帮助 (H) ma 
Sogoulnputuser ^|| 名 称 类 型 数据 
TC Works 29] (是 认 ) REG SZ (数值 未 设置) 
TechSmith 9 是否 显 示 网 属 线 REG SZ 是 
Tencent 
Tendyron 


Thunder Network 
Trolktech 
Unity 
v -由 VB and VBA program Settings 
二 Excel 
网 格 线 设 置 
WatchData 
Microsoft Excel Winamp 
WinRAR 
WinRAR SFX 
@ I Wow6432Node 
wpsbox 
XPusher v 
< > |< 








计算 机 \HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\Excel\ 网 格 线 设置 





图 20-9 为 工作 短 中 的 所 有 工作 表 应 用 相同 的 网 格 线 设置 








下 面 的 代码 位 于 工作 短 中 的 ThisWorkbook 模块 中 ， 为 了 实现 在 切换 到 不 同 的 工作 表 时 可 以 














应 用 相同 的 网 格 线 设置 ， 需 要 编写 工作 敌 的 SheetActivate 事件 过 程 代码 ， 用 二 














F 在 激活 工作 短 中 的 














任意 一 个 工作 表 时 ， 从 注册 表 中 读 取 网 格 线 的 设置 ， 并 将 其 应 用 到 激活 的 工人 


Private Sub Workbook SheetActivate(ByVal Sh As Object) 
Dim strDisplay As String 
strDisplay = GetSetting ("Excel",， "网 格 线 设置 "，" 是 否 显示 网 格 线 ") 
Select Case strDisplay 





Case "是 " 
ActiveWindow.DisplayGridlines = True 
Case " 否 " 
ActiveWindow.DisplayGridlines = False 
End Select 
End Sub 


20.2.3 ”使 用 GetAllSettings 函数 读 取 特 定子 键 中 的 所 有 内 容 





FE 表 的 活动 窗口 中 。 











使 用 GetAllSettings 函数 可 以 从 注册 表 中 读 取 特 定子 键 下 包含 的 所 有 键 值 中 的 数据 , 该 函数 
的 返回 值 是 一 个 包含 了 读 取 到 的 所 有 数据 的 二 维 数组 。GetAllSettings 函数 的 语法 格式 如 下 : 














GetAllSettings (appname, section) 
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GetAllSettings 函数 的 两 个 参数 的 含义 与 GetAllSetting 函数 的 前 两 个 参数 相同 ， 只 不 过 
GetAllSettings 函数 将 读 取 由 section 参数 指定 的 子 键 中 包含 的 所 有 键 值 中 的 数据 , 而 不 是 某 个 特 
定 键 值 中 的 数据 。 如 果 不 存在 指定 的 子 键 ， 则 会 出 现 运行 时 错误 。 


案例 20-4 使 用 GetAllSettings 函数 一 次 性 读 取 注 册 表 中 的 所 有 内 容 

下 面 的 代码 从 注册 表 中 的 特定 子 键 中 读 取 其 包含 的 所 有 键 值 中 的 数据 ,然后 使 用 VBA 内 置 
的 LBound 和 UBound 函数 计算 由 读 取 到 的 所 有 键 值 数据 组 成 的 二 维 数组 的 行 数 和 列 数 ， 从 而 
确定 要 向 工作 表 中 写 入 数据 所 需 的 单元 格 区 域 的 大 小 ， 并 将 读 取 到 的 所 有 键 值 数据 写 入 该 单元 
格 区 域 ， 如 图 20-10 所 示 。 

Sub 使 用 GetAllSettings 函数 一 次 性 读 取 注 册 表 中 的 所 有 内 容 () 


Dim strApp As String, strSection As String 
Dim lngRows As Long, lngCols As Long 
Dim varAllValues Rs Variant 
strApp = "Excel" 
strSection = "用 户 信息 " 
Range ("Al:B1") .Value = Array(" 键 值 名 称 "，" 键 值 数据 ") 
varAllValues = GetAllSettings (strApp, strSection) 
lngRows = UBound (varAllValues, 1) - LBound(varAllValues, 1) + 1 
lngCols = UBound (varAllValues, 2) - LBound(varAllValues, 2) + 1 
With Range ("A2") .Resize (lngRows, lngCols) 
.Value = varAllValues 
“EntireColumn.RAutoFit 
End With 
End Sub 




























































































肪 注册 表 编 加 器 - x 
文件 (站 编 强 (E) 查看 (V) 收藏 只 (A) 帮助 (H) 
Sogoulnputuser ^ || 名 称 类 型 数据 
TC Works 20] (同人 ) REG SZ ( 政 值 未 设置 ) 
TechSmith 芭 用 户 名 REG SZ 尚 品 科技 
Tencent 加 用 户 名 2 REG_SZ 尚 品 科技 2 


Tendyron 沿用 户 名 3 REG_SZ 尚 品 科技 3 
Thunder Network 


Trolktech 
Unity 
VVB and VBA Program Settings 
v Excel 
用 户 信息 
WatchData 
winamp 
WinRAR 
WinRAR SFX 
Wow6432Node 键 值 数 据 
wpsbox 尚 品 科技 
Xpusher v 尚 品 科技 2 
< > ||< > 尚 品 科技 3 
计算 机 \HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\Excel\ 用 户 信息 


图 20-10 读 取 注册 表 中 的 特定 子 键 中 包含 的 所 有 键 值 数据 


20.2.4 使 用 DeleteSetting 语句 删除 注册 表 中 的 内 容 


使 用 DeleteSetting 语句 可 以 从 注册 表 中 删除 特定 子 键 及 其 中 包含 的 键 值 和 数据 ， 语 法 格式 
如 下 : 

DeleteSetting appname, section[, key] 

DeleteSetting 语句 的 3 个 参数 的 含义 与 SaveSetting 语句 的 前 3 个 参数 相同 。 第 三 个 参数 为 
可 选 参 数 ， 如 果 省 略 该 参数 ， 则 删除 由 section 参数 表示 的 子 键 及 其 中 包含 的 所 有 键 值 。 如 果 指 














. 440 。 


第 20 章 ”操作 注册 表 





























定 key 参数 ， 则 只 删除 由 该 参数 表示 的 键 值 及 其 数据 。 如 果 删 除 不 存在 的 子 键 或 键 值 ， 则 会 出 
现 3 


行 

案例 20-5 ”使 用 DeleteSetting 语句 删除 注册 表 中 的 特定 键 值 
下 面 的 代码 删除 注册 表 中 的 特定 键 值 ， 如 果 不 存在 指定 的 键 值 ， 则 会 显示 提示 信息 。 
Sub 使 用 DeleteSetting 语句 删除 注册 表 中 的 特定 键 值 () 


Dim strApp As String 

Dim strSection Rs String 

Dim strKey As String 

strApp = "Excel" 

strSection = "用 户 信息 " 

strKey = "用 户 名 " 

On Error Resume Next 

DeleteSetting strApp, strSection, strKey 

If Err.Number <> 0 Then MsgBox "指定 的 键 值 不 存在 ! " 
End Sub 


案例 20-6 ”使 用 DeleteSetting 语句 删除 注册 表 中 的 特定 子 键 及 其 中 包含 的 所 有 内 容 
下 面 的 代码 删除 注册 表 中 的 特定 子 键 及 其 中 包含 的 所 有 内 容 。 如 果 不 存在 指定 的 子 键 ， 则 
会 显示 提示 信息 。 


Sub 使 用 DeleteSetting 语句 删除 注册 表 中 的 特定 子 键 及 其 中 包含 的 所 有 内 容 () 
Dim strApp Rs String 
Dim strSection As String 
Dim strKey As String 
strApp = "Excel" 
strSection = "用 户 信息 " 
On Error Resume Next 
DeleteSetting strApp, strSection 
If Err.Number <> 0 Then MsgBox "指定 的 子 键 不 存在 ! " 
End Sub 
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VBE 是 Visual Basic Editor 的 简称 ， 它 也 可 以 称 为 Visual Basic 集成 开发 环境 (Visual Basic 
Integrated Design Environment，VBIDE) ， 指 的 是 编写 VBA 代码 的 界面 环境 。 可 以 使 用 VBA 
对 VBE 进行 编程 ， 从 而 实现 通过 代码 来 操作 和 管理 整个 VBE， 比 如 自动 添加 和 删除 VBA 工程 
中 的 模块 、 在 模块 中 自动 编写 实际 所 需 的 VBA 代码 、 自 动 创 建 用 户 窗 体 和 控件 并 编写 相关 的 
事件 代码 等 。 本 章 将 详细 介绍 使 用 VBA 编程 操作 VBE 的 方法 。 









































21.1 编程 控制 VBE 的 准备 工作 


VBE 有 其 自己 的 对 象 模型 ， 编 程 操作 VBE 实际 上 处 理 的 是 VBE 对 象 模 型 中 的 对 象 。 为 了 
可 以 编程 操作 VBE， 需 要 启用 对 VBE 对 象 模型 的 访问 权限 。 此 外 ， 为 了 使 用 前 期 绑 定 以 便于 
代码 的 编写 ， 需 要 在 VBA 工程 中 添加 对 VBE 对 象 模型 所 属 类 型 库 的 引用 。 


曙 21.1.1 ”启用 对 VBE 对 象 模型 的 访问 权限 


出 于 安全 性 方面 的 考虑 ， 在 Excel 中 默认 禁止 通过 VBA 代码 编程 处 理 VBE， 但 是 微软 公司 
提供 了 启用 访问 权限 的 选项 。 因 此 在 使 用 VBA 编程 操作 VBE 之 前 需要 启用 该 选项 ， 方 法 如 下 : 

(1) 单 击 “ 文 件 ” 按 钮 ， 然 后 选择 “选项 ”， 打 开 “Excel 选项 ”对 话 框 。 

(2) 在 左 侧 选择 “信任 中 心 ”， 然 后 在 右 侧 单 击 “ 信 任 中 心 设置 ”按钮 。 

(3) 打开 “信任 中 心 ”对 话 框 ， 在 左 侧 选 择 “ 宏 设置 ”， 在 右 侧 选中 “信任 对 VBA 工程 对 
象 模型 的 访问 ” 复 选 框 ， 如 图 21-1 所 示 。 


信任 中 心 ? Xx 



























































确定 取消 


图 21-1 启用 对 VBE 对 象 模型 的 访问 权限 
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(4) 单 击 两 次 “确定 ”按钮 ， 依 次 关闭 打开 的 对 话 框 。 
技巧 : 如 果 已 将 “开发 工具 ”选项 卡 显示 在 功能 区 中 ， 则 可 以 在 该 选项 卡 中 单 击 “ 宏 安全 
性 ”按钮 ， 这 样 将 会 直接 打开 图 21-1 所 示 的 对 话 框 ， 然 后 进行 相应 的 设置 。 
案例 21-1 检查 是 否 已 启用 对 VBE 0 
可 以 使 用 VBA 代码 检查 用 户 的 Excel 程序 中 是 否 已 启用 对 VBE 对 象 模型 的 访问 权限 ， 这 
样 即使 用 户 的 Excel 程序 中 没有 启用 该 设置 ， 也 可 以 给 en 以 便 引 导 用 户 
进行 正确 的 设置 ， 而 不 是 难以 理解 的 运行 时 错误 。 
Sub 检查 是 否 已 启用 对 VBE 对 象 模型 的 访问 权限 () 
Dim strMsg As String 
On Error Resume Next 
MsgBox ThisWorkbook.VBProject.Name 
If Err.Number <> 0 Then 
strMsg = "当前 未 启用 对 VBE 对 象 模型 的 访问 权限 ," & vbCrLf 
strMsg = strMsg & "请 在 【Excel 选项 】 对 话 框 的 【信任 中 心 】 中 " & vbcrLf 
strMsg = strMsg & "启用 【信任 对 VBA 工程 对 象 模型 的 访问 ] 选项 " 
MsgBox strMsg, vbExclamation 


End If 
End Sub 


运行 上 面 的 代码 , 如 果 在 Excel 中 没有 启用 对 VBE 对 象 模型 的 访问 权限 , 则 会 显示 如 图 21-2 
所 示 的 提示 信息 ， 用 户 可 以 根据 提示 进行 设置 。 


Microsoft Excel x 


























当前 未 启用 对 VBE 对 象 模型 的 访问 权限 ， 
LS 订正 【Excel 页 ] 对 活 杠 的 【信任 中 心 ] 中 
启用 【信任 对 VBA 工 程 对 象 模型 的 访问 】 选项 


Le |] 


图 21-2 使 用 代码 检查 是 否 已 启用 对 VBE 对 象 模型 的 访问 权限 


21.1.2 添加 对 VBIDE 类 型 库 的 引用 


为 了 便于 编程 操作 VBE， 需要 在 VBA 工程 中 添加 对 VBE 对 象 模型 所 属 类 型 库 的 引用 。 在 六 
代码 中 该 类 型 库 的 名 称 是 VBIDE， 因 此 需要 添加 对 VBIDE 类 型 库 的 引用 。 之 后 就 可 以 在 代码 “ 
中 使 用 前 期 绑 定 技术 的 相关 特性 ， 比 如 将 变量 声 





























































































































明 为 VBE 对 象 模型 中 的 特定 对 象 、 使 用 自动 成 员 。 [RR-_versgea x 
列表 快速 输入 对 象 的 属性 和 方法 、 使 用 VBE 对 象 可 使 用 的 引用 人) I | 
模型 中 的 内 置 常量 等 。 可 以 使 用 下 面 的 方法 在 人 -2 
VBA 工程 中 添加 对 VBIDE 类 型 库 的 引用 : 并 四 
(1) 在 Excel 中 新 建 或 打开 一 个 工作 籍 ， 按 es 
Alt+F11 组 合 键 打开 VBE 窗口 ， 单 击 菜单 栏 中 的 
“工具 ”|“ 引 用 ”命令 。 5 
(2) 打开 < 引用” 对 话 框 ， 在 “可 使 用 的 引用 ” ee 
列表 框 中 选中 Microsoft Visual Basic for Application a ee Se 2 
Extensibility 5.3 复 选 框 ， 如 图 21-3 所 示 ， 然 后 单 
击 “ 确 定 ” 按 钮 。 图 21-3 ”添加 对 VBIDE 类 型 库 的 引 
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21.2 ”理解 VBE 对 象 模型 


在 开始 编程 操作 VBE 之 前 ， 应 该 先 了 解 VBE 对 象 模型 的 组 织 结构 以 及 其 中 包含 的 常用 对 
象 ， 以 便 可 以 更 好 地 使 用 代码 控制 VBE。 


























21.2.1 VBE 对 象 


VBE 对 象 是 整个 VBE 对 象 模型 中 的 顶层 对 象 ， 类 似 于 Excel 对 象 模型 中 的 Application 对 
象 。 通 过 VBE 对 象 可 以 逐 层 向 下 引用 VBE 对 象 模型 中 的 其 他 对 象 。VBE 对 象 的 下 一 层 主 要 包 
含 5 个 对 象 〈 集 合 ) : 

口 VBProject (VBProjects) : 用 于 访问 VBE 中 的 所 有 VBA 工程 。 

口 CodePane (CodePanes) : 用 于 访问 VBE 中 的 所 有 代码 窗口 。 

口 CommandBar (CommandBars) : 用 于 访问 VBE 中 的 命令 栏 。 

口 Window (Windows) : 用 于 访问 VBE 中 的 所 有 窗口 。 

口 AddIn (AddIns) : 用 于 访问 VBE 中 的 所 有 外 接 程序 。 

本 章 主要 介绍 使 用 VBProject (VBProjects) 对 象 集合) 及 其 下 层 的 对 象 编程 操作 VBE 
的 方法 ， 这 些 对 象 的 层次 结构 如 下 所 示 : 

VBE 一 VBProject 一 VBComponent 一 CodeModule 


VBE 一 VBProject 一 VBComponent 一 Property 
VBE 一 VBProJject 一 VBComponent 一 Designer 


在 VBProject 对 象 中 包含 特定 VBA 工程 中 的 所 有 组 件 ， 以 及 在 工程 中 引用 的 类 型 库 。 工 程 
中 的 组 件 可 以 是 ThisWorkbook 模块 、Sheet 模块 、 标 准 模块 、 类 模块 、 用 户 窗 体 模块 中 的 任何 
一 个 。 每 个 组 件 都 是 一 个 VBComponent 对 象 ， 在 该 对 象 中 可 以 包含 以 下 几 个 对 象 : 

口 CodeModule 对 象 : 模块 中 包含 的 代码 。 

口 Property 对 象 : 与 模块 关联 的 属性 窗口 中 的 属性 。 

口 Designer 对 象 : 与 模块 关联 的 图 形 设 计 界 面 , 比如 用 户 窗 体 模 块 中 的 用 户 窗 体 设计 窗口 。 

如 果 要 创建 一 个 对 VBE 对 象 的 引用 ， 则 可 以 使 用 Excel 对 象 模型 中 的 Application 对 象 的 
VBE 属性 来 返回 一 个 VBE 对 象 。 


案例 21-2 创建 对 VBE 对 象 的 引用 
下 面 的 代码 将 objVBE 变量 声明 为 VBE 对 象 类 型 ， 并 将 使 用 Application 对 象 的 VBE 属性 
所 返回 的 VBE 对 象 赋值 给 该 变量 , 然后 在 对 话 框 中 显示 由 VBE 对 象 的 Version 属性 返回 的 VBE 
的 版 本 号 。 
Sub 创建 对 VBE 对 象 的 引用 () 
Dim objVBE As VBIDE .VBE 
Set objVBE = Application.VBE 


MsgBox objVBE.Version 
End Sub 













































































































































































21.2.2 VBProject 对 象 


VBProject 对 象 表示 在 VBE 中 打开 的 一 个 特定 的 VBA 工程 , 该 工程 与 当前 在 Excel 中 打开 
的 某 个 工作 短 相 关联。 所 有 的 VBA 工程 组 成 了 VBProjects 集合 ， 只 能 通过 在 Excel 中 新 建 或 打 
个 工作 短 来 向 VBProjects 集合 中 添加 一 个 新 成 员 ， 或 者 在 Excel 中 关闭 一 个 工作 夭 来 从 
VBProjects 集合 中 删除 一 个 成 员 。 
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如 果 要 从 VBProjects 集合 中 引用 特定 的 VBProject 对 象 ， 则 可 以 使 用 Workbook 对 象 的 
VBProject 属性 。 下 面 的 代码 引用 与 活动 工作 短 关 联 的 VBA 工程 : 


ActiveWorkbook.VBProject 
案例 21-3 引用 特定 的 VBA 工程 
下 面 的 代码 引用 与 名 为 “销售 数据 分 析 .xlsm” 的 工作 簿 关联 的 VBA 工程 ， 并 在 对 话 框 中 
显示 该 工程 的 名 称 。 为 了 避免 在 Excel 中 未 打开 该 工作 短 ， 因 此 加 入 了 防 错 代码 ， 并 在 出 现 运 
行 时 错误 时 显示 预先 指定 的 信息 。 
Sub 引用 特定 的 VBA 工程 () 
Dim vbp As VBIDE .VBProject 
On Error Resume Next 
Set vbp = Workbooks ("销售 数据 分 析 .xlsm") .VBProject 
If vbp Is Nothing Then 
MsgBox "请 确认 已 打开 指定 的 工作 簿 或 文件 名 拼写 正确 ! " 
Exit Sub 
End If 


MsgBox vbp.Name 
End Sub 

















































































































21.2.3 VBComponent 对 象 


VBComponent 对 象 表 示 VBA 工程 中 的 一 个 模块 , 工程 中 包含 的 所 有 模块 组 成 了 VBComponents 
集合 。 通 过 VBProject 对 象 的 VBComponents 属性 返回 特定 工程 中 的 VBComponents 集合 ， 然 
后 可 以 使 用 模块 的 名 称 或 索引 号 从 VBComponents 集合 中 引用 特定 的 模块 。 

案例 21-4 引用 VBA 工程 中 的 特定 模块 
下 面 的 代码 引用 与 活动 工作 短 关 联 的 VBA 工程 中 名 为 “模块 1” 的 模块 ， 然 后 在 对 话 框 中 
显示 该 模块 所 属 的 VBA 工程 的 名 称 。 为 了 避免 工程 中 不 存在 该 模块 ， 因 此 加 入 了 防 错 代码 ， 
并 在 出 现 运 行 时 错误 时 显示 预先 指定 的 信息 。 使 用 VBComponent 对 象 的 Collection 属性 可 以 返 
回 VBComponents 集合 ， 然 后 使 用 VBComponents 集合 的 Parent 属性 返回 其 上 层 的 VBProject 
对 象 ， 最 后 使 用 VBProject 对 象 的 Name 属性 返回 VBA 工程 的 名 称 。 

Sub 引用 VBA 工程 中 的 特定 模块 () 


Dim vbc As VBIDE.VBComponent 
On Error Resume Next 
Set vbc = ActiveWorkbook.VBProject.VBComponents ("模块 1") 
If vbc Is Nothing Then 
MsgBox "不 存在 指定 的 模块 ! " 
Exit Sub 
End If 
MsgBox vbc.Collection.Parent.Name 
End Sub 


VBComponent 对 象 有 一 个 Type 属性 ， 用 于 区 分 不 同类 型 的 模块 ， 该 属性 的 值 见 表 21-1。 
表 21-1 Type 属性 的 值 













































































名 称 值 说 了 明 
Vbext_ct_StdModule 1 标准 模块 
Vbext_ct_ClassModule | 2 类 模块 
Vbext ct MSForm 3 






Vbext ct _ Document 文档 模块 ， 包 括 ThisWorkbook 模块 和 Sheet 模块 
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案例 21-5 ”获取 VBA 工程 中 包含 的 所 有 模块 的 名 称 和 类 型 





下 面 的 代码 在 活动 工作 表 的 A、B 两 列 中 列 出 了 与 活动 工作 矢 关 联 的 VBA 工程 中 





























有 模块 的 名 称 和 类 型 ， 如 图 21-4 所 示 。 
Sub 获取 VBA 工程 中 包含 的 所 有 模块 的 名 称 和 类 型 () 


Dim vbc As VBIDE.VBComponent, intRow As Integer 
Cells.Clear 
intRow = 2 
For Each vbc In ActiveWorkbook.VBProject.VBComponents 
Cells (intRow, 1) .Value = vbc.Name 
Select Case vbc.Type 
Case vbext ct StdModule 
Cells (intRow，2) .Value = "标准 模块 " 
Case vbext ct ClassModule 
Cells (intRow，2) .Value = "类 模块 " 
Case vbext ct MSForm 
Cells (intRow，2) .Value = " 窗 体 模块 " 
Case vbext ct Document 
Cells (intRow，2) .Value = "文档 模块 " 





End Select 
intRow = intRow + 1 
Next vbc 


With Range ("Al:B1") 
.Value = Array ("名 称 "，" 类 型 ") 
.HorizontalAlignment = xlCenter 
.EntireColumn.AutoFit 
End With 
End Sub 


日 如 YBAProject (案例 21-5. xlsn) 
日 全 呈 orosoft Exeel 对 象 
国 ] sheetl (sheetl) 
习 Thi syorkbook 
日 贸 窗 体 


名 称 类 型 
ThisWorkbook 文档 模块 
3 Sheetl 文档 模块 


国 VserFornl 
日- 合 模块 

殿 模块 1 
日 -全 类 模块 

四 类 1 


模块 1 标准 模块 
5 |UserForm1 定 体 模块 
6 类 1 类 模块 





图 21-4 获取 VBA 工程 中 包含 的 所 有 模块 的 名 称 和 类 型 


如 果 要 引用 Thisworkbook 模块 、Sheet 模块 或 Chart 模块 , 则 可 以 使 
的 代码 引用 与 活动 工作 短 关 联 的 VBA 工程 中 的 ThisWorkbook 模块 : 


Dim vbc As VBIDE.VBComponent 
Set vbc = ActiveWorkbook.VBProject.VBComponents ("ThisWorkbook") 





























才 












































包含 的 所 


日 这 些 对 象 的 代码 名 称 。 


如 果 ThisWorkbook 模块 的 名 称 不 是 ThisWorkbook, 那么 上 面 的 代码 将 会 出 现 运行 时 错误 。 


为 了 避免 这 个 问题 ， 应 该 使 用 工作 短 、 工 作 表 或 图 表 工 作 表 的 代码 名 称 来 从 VBComponents 集 








合 中 引用 相应 的 模块 。 
案例 21-6 ”使 用 代码 名 称 引 用 ThisWorkbook 模块 








下 面 的 代码 将 活动 工作 短 的 代码 名 称 存储 到 一 个 变量 中 ， 然 后 在 VBComponents 集合 中 使 












































该 变量 中 存储 的 名 称 来 引用 ThisWorkbook 模块 。 
Sub 使 用 代码 名 称 引 用 特定 的 文档 模块 () 


Dim vbc As VBIDE.VBComponent, strName As String 
strName = ActiveWorkbook.CodeName 
Set vbc = ActiveWorkbook.VBProject.VBComponents (strName) 
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MsgBox vbc.Name 
End Sub 


案例 21-7 使 用 代码 名 称 引 用 特定 的 Sheet 模块 

下 面 的 代码 与 上 一 个 案例 类 似 ， 将 活动 工作 夭 中 的 Sheetl 工作 表 的 代码 名 称 存储 到 一 个 变 
量 中 ， 然 后 在 VBComponents 集合 中 使 用 该 变量 中 存储 的 名 称 来 引用 相应 的 Sheet 模块 。 

Sub 使 用 代码 名 称 引用 特定 的 Sheet 模块 () 


Dim vbc As VBIDE.VBComponent, strName As String 
strName = Worksheets ("Sheet1") .CodeName 
Set vbc = ActiveWorkbook.VBProject.VBComponents (strName) 
MsgBox vbc.Name 
End Sub 


使 用 VBE 对 象 的 SelectedVBComponent 属性 可 以 返回 VBComponent 对 象 ， 它 表示 在 工程 
资源 管理 器 中 当前 选中 的 模块 。 每 个 VBComponent 对 象 都 有 一 个 Properties 集合 ， 基 本 上 对 应 
于 在 工程 资源 管理 器 中 当前 选中 的 VBComponent 对 象 关联 的 属性 窗口 中 的 所 有 属性 ， 其 中 的 
Name 属性 可 以 返回 VBComponent 对 象 的 名 称 。 


案例 21-8 使 用 Name 属性 引用 当前 选中 的 模块 
下 面 的 代码 显示 在 工程 资源 管理 器 中 当前 选中 的 模块 的 名 称 。 


Sub 使 用 Name 属性 获取 当前 选中 的 模块 的 名 称 () 
Dim vbc As VBIDE.VBComponent， strName Rs String 
Set vbc = Application.VBE.SelectedVBComponent 
MsgBox vbc.Properties ("Name") 

End Sub 




































































21.2.4 CodeModule 对 象 


CodeModule 对 象 表示 VBA 工程 中 包含 的 所 有 代码 ， 这 些 代 码 来 自 于 VBA 工程 中 的 每 一 
个 模块 ,通过 VBComponent 对 象 的 CodeModule 属性 返回 CodeModule 对 象 ,每 个 VBComponent 
对 象 只 有 一 个 CodeModule 对 象 ， 不 存在 CodeModules 集合 。 使 用 VBA 编程 操作 VBE 的 主要 
工作 是 操作 CodeModule 对 象 ， 包 括 读 取 、 添 加 、 修 改 和 删除 VBA 代码 。 


案例 21-9 ”获取 VBA 工程 中 的 特定 模块 中 包含 的 所 有 过 程 的 名 称 

下 面 的 代码 在 活动 工作 表 的 A、B 两 列 中 列 出 了 与 活动 工作 矢 关 联 的 VBA 工程 中 的 特定 模 
块 中 包含 的 所 有 Sub 过 程 和 Function 过 程 的 名 称 ,如 图 21-5 所 示 。 将 要 从 其 中 获取 过 程 名 的 模 
块 的 名 称 存 储 到 strModuleName 变量 中 ， 以 便于 在 代码 中 引用 和 修改 。 第 一 个 On Error Resume 
Next 语句 用 于 防止 特定 模块 不 存在 时 出 现 运行 时 错误 ， 第 二 个 On Error Resume Next 语句 用 于 
防止 在 向 集合 中 添加 重复 项 目 时 出 现 运行 时 错误 。 


垃 安 网 21-9.dsm - 模 决 2 (代码 ) FE 区 相 

| 硬 而 了 疝 两 YaA 工 程 中 的 特定 重奖 了 
|_ Option Explicit 

Sub 他 娃 对 YBEx 象 的 引用 

nd sob 

Sub 引用 特定 的 YBA 工 程 

nd sh 

Sub 引用 VBA 工 程 中 的 特定 模块 () 

nd seh 
















































































A B 
1 | 模块 创建 对 VBE 对 象 的 引用 
J |2 引用 特定 的 VBA 工 程 
a |s 5 特 
| 3 引用 VBA 工 程 中 的 特定 模块 


























图 21-5 获取 VBA 工程 中 的 特定 模块 中 包含 的 所 有 过 程 的 名 称 
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将 表示 特定 模块 中 包含 的 所 有 代码 的 CodeModule 对 象 赋值 给 cdm 变量 ， 然 后 在 For Next 
循环 结构 中 从 该 模块 的 第 一 行 代码 遍历 到 最 后 一 行 代码 , 使 用 CodeModule 对 象 的 CountOfLines 
属性 可 以 返回 模块 中 所 有 代码 的 总 行 数 。 然 后 使 用 CodeModule 对 象 的 ProcOfLine 属性 返 
前 代码 行 所 属 的 过 程 的 名 称 ， 接 着 判断 过 程 名 是 否 为 空 ， 如 果 不 为 空 则 将 其 添加 到 集合 中 ， 以 
去 除 重复 值 。 最 后 在 另 一 个 For Next 循环 结构 中 遍历 集合 中 的 每 一 项 ， 并 将 其 依次 写 入 工作 表 
中 的 B 列 。 

Sub 获取 VBA 工程 中 的 特定 模块 中 包含 的 所 有 过 程 的 名 称 () 


Dim cdm As VBIDE.CodeModule, cnn As Collection 
Dim strModuleName As String, strProcName As String 
Dim intCodeLine As Integer, intRow As Integer 
Set cnn = New Collection 
strModuleName = "模块 2" 
On Error Resume Next 
Set cdm = ActiveWorkbook.VBProject.VBComponents (strModuleName) .CodeModule 
On Error GoTo 0 
Cells.Clear 
Range ("A1l") .Value = strModuleName 
On Error Resume Next 
For intCodeLine = 1 To cdm.CountOfLines 
strProcName = cdm.ProcOfLine (intCodeLine, vbext pk Proc) 




















加 





可 


























m 




















If strProcName <> "" Then 
cnn.Add strProcName, strProcName 
End If 


Next intCodeLine 
For intRow = 1 To cnn.Count 
Cells (intRow, 2) .Value = cnn (intRow) 
Next intRow 
Range ("Al1:B1") .EntireColumn.AutoFit 
End Sub 


案例 21-10 ”获取 VBA 工程 中 包含 的 所 有 模块 中 的 代码 的 总 行 数 
下 面 的 代码 在 活动 工作 表 的 A~C 列 中 列 出 了 与 活动 工作 簿 关联 的 VBA 工程 中 包含 的 所 有 
模块 的 名 称 、 类 型 以 及 模块 包含 的 代码 的 总 行 数 ， 如 图 21-6 所 示 。 本 例 中 使 用 CodeModule 对 
象 的 CountOfLines 属性 返回 特定 模块 中 包含 的 代码 的 总 行 数 。 

Sub 获取 VBA 工程 中 包含 的 所 有 模块 中 的 代码 的 总 行 数 () 


Dim vbc As VBIDE.VBComponent, intRow As Integer 
Cells.Clear 
intRow = 2 
For Each vbc In ActiveWorkbook.VBProject.VBComponents 
Cells (intRow, 1) .Value = vbc.Name 
Cells (intRow，3) .Value = vbc.CodeModule.CountOfLines 
Select Case vbc.Type 
Case vbext ct StdModule 
Cells (intRow，2) .Value = "标准 模块 " 
Case vbext ct ClassModule 
Cells (intRow，2) .Value = "类 模块 " 
Case vbext ct MSForm 
Cells (intRow，2) .Value = " 窗 体 模块 " 
Case vbext ct Document 
Cells (intRow，2) .Value = "文档 模块 " 





























End Select 
intRow = intRow + 1 
Next vbc 


With Range ("Al:C1") 
.Value = Array ("名 称 "，" 类 型 "，" 代 码 行 数 ") 
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.HorizontalAlignment = xlCenter 
.EntireColumn.AutoFit 





End With 
End Sub 
A B C D 

1 名 称 类 型 。 代码 行 数 
2 ThisWorkbook 文档 模块 5 
3 Sheetl 档 模块 5 
4 | 模块 1 标准 模块 28 
5 | 模块 2 标准 模块 13 
6 














图 21-6 获取 VBA 工程 中 包含 的 所 有 模块 中 的 代码 的 总 行 数 














21.2.5 ”CodePane 对 象 


CodePane 对 象 表示 VBA 工程 中 的 代码 窗口 ， 使 用 该 对 象 可 以 选择 代码 并 返回 所 选择 的 位 





置 。 通过 CodeModule 对 象 的 CodePane 属性 返回 与 CodeModule 对 象 关联 的 CodePane 对 象 , 使 

















用 VBE 对 象 的 ActiveCodePane 属性 可 以 返回 当前 正在 编辑 的 CodePane 对 象 。 


21.2.6 ”Designer 对 象 


Designer 对 象 表示 VBA 工程 中 包含 的 模块 所 对 应 的 图 形 设 计 界 面 。 在 VBE 中 只 有 用 户 窗 


体 模块 才 有 对 应 的 图 形 设计 界面 。 





21.2.7 Reference 对 象 


成 了 
然后 


类 型 
如 图 














Reference 对 象 表示 在 VBA 工程 中 引用 的 特定 类 型 库 。 在 VBA 工程 中 引用 的 所 有 类 型 库 组 
References 集合 .通过 VBProject 对 象 的 References 属性 返回 特定 工程 中 的 References 集合 ， 
可 以 使 用 类 型 库 的 名 称 或 索引 号 从 References 集合 中 引用 特定 的 类 型 库 。 

案例 21-11 获取 在 VBA 工程 中 引用 的 所 有 类 型 库 的 相关 信息 

下 面 的 代码 在 活动 工作 表 的 A~D 列 中 列 出 了 与 活动 工作 短 关 联 的 VBA 工程 中 引用 的 所 有 
库 的 相关 信息 ， 包 括 名 称 、 描 述 和 路 径 ， 还 包括 引用 的 类 型 库 能 否 从 VBA 工程 中 移 除 ， 
21-7 所 示 。 名 称 是 指 在 VBA 代码 中 引用 类 型 库 时 使 用 的 名 称 。 

Sub 获取 在 VBA 工程 中 引用 的 所 有 类 型 库 的 相关 信息 () 


Dim ref As VBIDE.Reference, intRow As Integer 

intRow = 2 

Cells.Clear 

For Each ref In ActiveWorkbook.VBProject.References 
Cells (intRow, 1) .Value ref.Name 
Cells (intRow, 2) .Value ref.Description 
Cells (intRow, 3) .Value = ref.FullPath 
Cells (intRow, 4) .Value = IIf (ref.BuiltIn, "不 能 ",， "能 ") 
intRow = intRow + 1 

Next ref 

With Range ("Al:D1") 
.Value = Array ("名 称 "， "描述 "， "路 径 "， "类 型 库 能 否 被 移 除 ") 

































































.HorizontalAlignment = xlCenter 
EntireColumn.AutoFit 
End With 
End Sub 
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5 
类 型 订 能 香 补 移 除 
不 能 


redNVBANVBAT I\WVBE7. DLL 
16\EXCELEXE 下 笔 
ht Share\OFFICE16\MSO DLL 
icrosoft Shared\VBA\VBAG\VBE6EXT OLB 














图 21-7 获取 在 VBA 工程 中 引用 的 所 有 类 型 库 的 相关 信息 











21.3 使 用 VBA 编程 操作 VBE 


本 节 将 介绍 使 用 VBA 编程 操作 VBE 的 方法 ， 包 括 添加 和 删除 模块 、 编 写 普通 VBA 过 程 
和 事件 过 程 的 代码 ， 以 及 创建 用 户 窗 体 和 控件 并 编写 相关 的 事件 代码 。 


21.3.1 使 用 VBA 自动 添加 和 删除 模块 


可 以 使 用 VBA 自动 在 VBA 工程 中 添加 模块 ， 也 可 以 删除 VBA 工程 中 的 模块 ， 但 是 不 能 
使 用 VBA 添加 和 删除 与 工作 短 和 工作 表 关 联 的 ThisWorkbook 模 块 和 Sheet 模 块 ,如 果 要 在 VBA 
工程 中 添加 ThisWorkbook 模块 和 Sheet 模块 ， 则 需要 在 Excel 界面 中 新 建 或 打开 一 个 工作 短 ， 
以 及 在 工作 短 中 添加 新 的 工作 表 。 可 以 添加 和 删除 的 模块 类 型 包括 以 下 3 种 ， 在 前 面 介绍 
VBComponent 对 象 的 Type 属性 时 也 曾 介绍 过 它们 。 

口 标准 模块 : 在 代码 中 表示 为 Vbext_ct_StdModule。 

口 类 模块 : 在 代码 中 表示 为 Vbext_ct_ClassModule。 

口 窗 体 模 块 : 在 代码 中 表示 为 Vbext_ct MSForm。 


案例 21-12 ”使 用 VBA 自动 在 VBA 工程 中 添加 新 的 模块 
下 面 的 代码 在 与 活动 工作 敌 关 联 的 VBA 工程 中 添加 一 个 名 为 “模块 1” 的 模块 。 如 果 VBA 
工程 中 已 经 存在 同名 模块 ， 则 将 出 现 运行 时 错误 ， 因 此 必须 编写 防 错 代码 。 通 过 预先 将 特定 名 
称 的 模块 赋值 给 一 个 对 象 变量 ， 然 后 检查 该 变量 的 值 是 否 是 Nothing。 如 果 是 则 说 明 VBA 工程 
中 不 存在 该 名 称 的 模块 ， 可 以 进行 添加 并 使 用 Name 属性 对 新 模块 命名 ， 如 果 变 量 的 值 不 是 
Nothing， 说 明 VBA 工程 中 已 经 存在 同名 模块 ， 此 时 显示 提示 信息 并 退出 程序 。 
Sub 使 用 VBA 自动 在 VBA 工程 中 添加 新 的 模块 () 
Dim vbc As VBIDE.VBComponent, strName As String 
strName = "模块 1" 
On Error Resume Next 
Set vbc = ActiveWorkbook.VBProject.VBComponents (strName) 
If vbc Is Nothing Then 
Set vbc = ActiveWorkbook.VBProject .VBComponents .Add (vbext ct StdModule) 
vbc.Name = strName 
Else 
MsgBox "工程 中 已 经 存在 名 为 【" & strName & " 】 的 模块 ! " 
Exit Sub 


End If 
End Sub 


案例 21-13 ”使 用 VBA 自动 删除 VBA 工程 中 的 所 有 模块 

下 面 的 代码 删除 与 活动 工作 敌 关 联 的 VBA 工程 中 的 所 有 的 标准 模块 、 类 模块 和 用 户 窗 体 模 
块 。 由 于 不 能 使 用 VBA 删除 与 工作 短 和 工作 表 关 联 的 ThisWorkbook 模块 和 Sheet 模块 ， 因 此 
需要 检查 VBComponent 对 象 的 类 型 是 否 是 以 上 两 种 模块 ,以 将 它们 排除 在 外 ,否则 将 出 现 运行 
时 错误 。 代码 中 可 以 不 判断 当前 VBComponent 对 象 的 名 称 是 否 是 包含 本 例 代 码 的 模块 名 称 , 这 
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样 在 删除 模块 时 也 会 将 该 模块 删除 。 
Sub 使 用 VBA 自动 删除 VBA 工程 中 的 所 有 模块 () 


Dim vbc As VBIDE.VBComponent, vbcs As VBIDE.VBComponents 
Set vbcs = ActiveWorkbook.VBProject.VBComponents 
For Each vbc In vbcs 
If vbc.Name <> "模块 1" Rnd vbc.Type <> vbext_ct_Document Then 
Vbcs .Remove vbc 
End If 
Next vbc 
End Sub 


案例 21-14 ”使 用 VBA 自动 删除 VBA 工程 中 的 所 有 模块 及 其 中 包含 的 代码 


下 面 的 代码 与 上 一 个 案例 类 似 ， 除 了 可 以 删除 VBA 工程 中 的 所 有 模块 以 外 ， 还 将 删除 
ThisWorkbook 模块 和 Sheet 模块 中 的 所 有 代码 。 代 码 中 使 用 CodeModule 对 象 的 DeleteLines 方 
法 删除 指定 范围 内 的 代码 行 ， 该 方法 包含 两 个 参数 ， 分 别 指定 要 删除 的 代码 的 起 始 行 的 行 号 和 
结束 行 的 行 号 。 

Sub 使 用 VBA 自动 删除 VBA 工程 中 的 所 有 模块 () 

Dim vbc As VBIDE.VBComponent, vbcs As VBIDE.VBComponents 
Set vbcs = ActiveWorkbook.VBProject.VBComponents 
For Each vbc In vbcs 
If vbc.Type = vbext ct Document Then 
vbc.CodeModule.DeleteLines 1，vbc.CodeModule.CountOfLines 
Else 
If vbc.Name <> "模块 1" Then 
vbcs.Remove vbc 
End If 
End If 
Next vbc 
End Sub 


21.3.2 使 用 VBA 自动 编写 VBA 代码 


可 以 使 用 VBA 自动 编写 VBA 过 程 中 的 代码 ， 本 节 将 介绍 编写 普通 的 Sub 过 程 和 工作 短 事 
件 过 程 的 代码 。 
案例 21-15 ”使 用 VBA 自动 创建 普通 的 VBA 过 程 并 编写 代码 
下 面 的 代码 使 用 VBA 自动 创建 了 一 个 名 为 “测试 ”的 Sub 过 程 ， 并 为 该 过 程 编写 了 3 句 
代码 ， 如 图 21-8 所 示 。 使 用 VBA 自动 创建 代码 需要 使 用 CodeModule 对 象 的 InsertLines 方法 ， 
该 方法 包含 两 个 参数 ， 第 一 个 参数 表示 要 从 哪 一 行 开始 放置 创建 的 代码 ， 第 二 个 参数 表示 要 创 
建 的 代码 的 具体 内 容 。 
Sub 使 用 VBA 自动 创建 普通 的 VBA 过 程 并 编写 代码 () 
Dim strCodeText As String, intCodeLine As IntegeL 
Dim cdm As VBIDE.CodeModule, strModuleName Rs String 
strModuleName = "模块 1" 
On Error Resume Next 
Set cdm = ActiveWorkbook.VBProject.VBComponents (strModuleName) .CodeModule 


If cdm Is Nothing Then 
MsgBox "工程 中 不 存在 【" & strModuleName & " ]】 模块 ,无 法 创建 代码 ! " 



































刁 

















Exit Sub 
End If 
strCodeText = "Sub 测试 ()" & vbCrLf 
strCodeText = strCodeText & " MsgBox "" 这 是 一 个 使 用 VBA 代码 自动 创建 的 过 程 ! """ & vbCrLf 


StrCodeText = strCodeText & "End Sub" & vbCrLf 
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intCodeLine = cdm.CountOfLines + 1 
cdm.InsertLines intCodeLine, strCodeText 
End Sub 














攀 实 员 21-15xdsm - 模块 1 (人 可) en een ->x] 
[ 硬 用 ) 了 ] | 合用 vn 自动 他 建兰 通 的 YBA 过 程 并 编 二 >] 























Ss 下 澡 or“ 这 是 一 人 使用 "BA 代码 自动 Bid 程 !“ 


=] » 
图 21-8 使 用 VBA 自动 创建 普通 的 VBA 过 程 并 编写 代码 


案例 21-16 ”使 用 VBA 自动 创建 工作 笨 事 件 过 程 并 编写 代码 

下 面 的 代码 与 上 一 个 案例 类 似 ， 但 是 创建 的 是 工作 敌 的 事件 过 程 及 其 代码 ， 因 此 该 代码 必 
须 放置 到 ThisWorkbook 模块 中 ， 如 图 21-9 所 示 。 由 于 VBA 工程 中 不 可 能 没有 ThisWorkbook 
模块 ， 因 此 不 需要 进行 防 错 处 理 。 但 是 由 于 用 户 可 能 会 将 默认 的 ThisWorkbook 改 为 其 他 名 称 ， 
此 为 了 避免 出 错 ， 应 该 使 用 Workbook 对 象 的 CodeName 属性 来 获得 正确 的 工作 短 的 代码 名 
称 。 当 VBA 编写 的 过 程 中 的 代码 包含 双 引 号 时 ， 需 要 使 用 两 个 双 引 号 来 确保 获得 正确 的 
引号 。 

Sub 使 用 VBA 自动 创建 普通 的 VBA 过 程 并 编写 代码 () 


Dim strCodeText As String, intCodeLine As Integer 

Dim cdm As VBIDE.CodeModule, strModuleName As String 

strModuleName = ActiveWorkbook.CodeName 

Set cdm = ActiveWorkbook.VBProject.VBComponents (strModuleName) .CodeModule 






















































































strCodeText = "Private Sub Workbook Open()" & vbCrLf 

strCodeText = strCodeText & " MsgBox "" 欢 迎 使 用 本 系统 ! """ & vbCrLf 
strCodeText = strCodeText & "End Sub" & vbCrLf 

intCodeLine = cdm.CountOfLines + 1 


cdm.InsertLines intCodeLine, strCodeText 
End Sub 




















[Yorkbook | lopen 








哆 实例 21-16.xlsm - ThisWorkbook (代码 ) -|e 
| 
= 


Dption Explicit 





Private Sub Workbook_ Open() , 
Bp 欢迎 使 用 二 系统 ! 


End Si 























图 21-9 使 用 VBA 自动 创建 工作 竹 事件 过 程 并 编写 代码 


21.3.3 使 用 VBA 自动 创建 用 户 窗 体 和 控件 并 编写 事件 代码 
可 以 使 用 VBA 自动 在 已 有 的 用 户 窗 体 中 添加 控件 , 或 创建 用 户 窗 体 及 其 中 包含 的 控件 , 并 
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编写 它们 的 事件 代码 。 在 工程 资源 管理 器 中 双击 用 户 窗 体 模块 打开 的 窗口 称 为 设计 窗口 ， 该 窗 
























































中 ， 





创 | 于 





户 窗 体 条 
对 象 可 bb 




















中 的 用 户 窗 体 是 一 个 窗 体 类 ， 所 有 基于 该 用 户 窗 体 运 行 的 实例 都 与 该 窗 体 类 具有 完全 相同 的 
外 观 和 功能 。 
因此 可 以 将 用 户 窗 体 的 设计 阶段 分 为 设计 时 和 运行 时 两 种 ,使 用 VBA 可 以 在 设计 时 创建 用 
户 窗 体 及 其 中 包含 的 控件 ， 也 可 以 在 运行 时 创建 用 户 窗 体 及 其 中 包含 的 控件 。 在 设计 时 创建 的 
控件 被 认为 是 窗 体 类 和 控件 类 ， 它 们 一 直 存 在 ， 使 用 VBE 对 象 模型 中 的 Designer 
在 设计 时 向 用 户 窗 体 中 添加 控件 。 而 在 运行 时 创建 的 用 户 窗 体 和 控件 则 只 存在 于 内 存 



























































并 不 会 影响 设计 窗口 中 的 用 户 窗 体 及 其 中 包含 的 控件 的 外 观 和 功能 。 
案例 21-17 使 用 VBA 在 运行 时 自动 在 用 户 窗 体 中 创建 控件 
下 面 的 代码 在 运行 时 自动 在 现 有 的 名 为 UserForml 的 用 户 窗 体 中 创建 一 个 命令 按钮 控件 ， 





























如 图 21-10 所 示 的 左 侧 为 设计 窗口 中 的 用 户 窗 体 ， 右 侧 为 运行 后 的 用 户 窗 体 。 


Sub 使 用 VBA 在 运行 时 自动 在 用 户 窗 体 中 创建 控件 () 


Dim cmdOk Rs CommandButton 


Set cmdOk = UserForml.Controls.Add("Forms.CommandButton.1") 


With cmdok 
.Caption "确定 " 
.Width = 100 
.Height = 30 
Left = 65 
‘Top = 100 

End With 

UserEForm1l .Show 

End Sub 











UserForm1 x 








图 21-10 使 用 VBA 在 运行 时 自动 在 用 户 窗 体 中 创建 控件 


使 用 VBA 代码 创建 控件 时 必须 指明 控件 的 ProgID， 格 式 如 下 ，“ 控 件 类 型 的 名 称 ” 部 分 
需要 使 用 要 创建 的 控件 类 型 的 英文 名 称 进行 替换 。 


Forms .控件 类 型 的 名 称 .1 
例如 ， 本 例 中 创建 的 是 命令 按钮 控件 ， 


Forms.CommandButton.1 











其 格式 如 下 : 





如 果 要 创建 的 是 文本 框 ， 则 使 用 如 下 格式 ， 其 他 控件 类 型 的 格式 以 此 类 推 。 


Forms.TextBox.1 


案例 21-18 ”使 用 VBA 在 设计 时 自动 在 用 户 窗 体 中 创建 控件 





下 面 的 代码 与 上 一 个 案例 类 似 ， 区 别 在 于 本 例 中 使 用 Designer 对 象 在 设计 时 在 用 户 窗 体 中 
E， 不 会 在 程序 运行 结束 后 自动 消失 。 














控件 ， 这 些 控件 永久 存在 








Sub 使 用 VBA 在 设计 时 自动 在 用 户 窗 体 中 创建 控件 () 


Dim vbc As VBIDE.VBComponent, cmdOk As CommandButton 
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Set vbc = ActiveWorkbook.VBProject.VBComponents ("UserForml" 
Set cmdOk = vbc.Designer.Controls.Rdd("Forms .CommandButton.1") 
With cmdOk 
.Caption = "确定 " 
.Width = 100 
.Height = 30 
.Left = 65 
.Top = 100 
End With 
End Sub 


案例 21-19 ”全 自动 创建 用 户 窗 体 、 控 件 及 其 VBA 代码 

下 面 的 代码 使 用 VBA 自动 创建 用 户 窗 体 及 其 中 包含 的 控件 , 并 编写 它们 的 事件 代码 。 首先 
使 用 VBE 对 象 的 MainWindow 属性 返回 Window 对 象 ,然后 将 该 对 象 的 Visible 属性 设置 为 False 
暂时 隐藏 VBE 窗口 ， 这 样 可 以 避免 在 创建 用 户 窗 体 时 出 现 屏幕 闪 动 。 
然后 使 用 VBComponents 集合 的 Add 方法 创建 一 个 临时 的 用 户 窗 体 ， 并 设置 该 用 户 窗 体 的 
标题 和 尺寸 ,这 些 设置 通过 Caption、Width 和 Height 三 个 属性 实现 。 接 着 用 Designer 对 象 的 Controls 
集合 的 Add 方法 在 用 户 窗 体 中 创建 一 个 命令 按钮 控件 ， 并 设置 该 命令 按钮 的 标题 和 位 置 。 
接着 在 strCodeText 变量 中 存储 命令 按钮 的 Click 事件 代码 ， 并 使 用 与 用 户 窗 体 关 联 的 
CodeModule 对 象 的 InsertLines 方法 创建 代码 。 由 于 是 在 运行 时 创建 的 临时 的 用 户 窗 体 , 为 了 显 
示 该 用 户 窗 体 ， 需 要 使 用 UserForms 集合 的 Add 方法 将 其 添加 到 UserForms 集合 中 ， 然 后 使 
Show 方法 显示 该 用 户 窗 体 。 最 后 使 用 VBComponents 集合 的 Remove 方法 将 创建 的 临时 用 户 窗 
体 删除 。 

Sub 使 用 VBR 自动 创建 用 户 窗 体 和 控件 并 编写 事件 代码 () 


Dim vbcForm As VBIDE.VBComponent, cmdok As CommandButton 

Dim strCodeText Rs String, intCodeLine Rs Integer 
Application.VBE.MainWindow.Visible = False 

Set vbcForm = ThisWorkbook.VBProject.VBComponents.Add (vbext ct MSForm) 
With vbcForm 
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.Properties ("Caption") = "测试 " 

.Properties ("Width") = 260 

.Properties ("Height") = 160 
End With 
Set cmdOk = vbcForm.Designer.Controls.Add ("Forms.CommandButton.1") 
With cmdOk 

.Caption = "确定 " 

Left = 90 

‘Top = 55 
End With 
strCodeText = "Private Sub CommandButtonl Click()" & vbCrLf 
strCodeText = strCodeText & " MsgBox"" 这 是 在 运行 时 创建 的 命令 按钮 控件 ! """ & vbCrLf 


strCodeText = strCodeText & "End Sub" 
With vbcForm.CodeModule 


intCodeLine = .CountOfLines + 1 
.InsertLines intCodeLine, strCodeText 
End With 


VBA.UserForms.Add (vbcForm.Name) .Show 
ThisWorkbook .VBProject .VBComponents .Remove vbcForm 
End Sub 
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Excel 加 载 项 提供 了 一 种 通用 性 ， 可 以 将 在 特定 工作 短 中 使 用 VBA 开发 的 功能 变 成 可 以 在 
所 有 工作 敌 中 使 用 的 通用 功能 。 只 需 在 计算 机 中 进行 简单 的 安装 ， 就 可 以 在 任何 一 个 打开 的 工 
作 德 中 使 用 加 载 项 中 包含 的 功能 ， 而 且 在 每 次 启动 Excel 时 会 随 之 自动 加 载 ， 就 像 使 用 Excel 
内 置 功能 一 样 方便 。 本 章 将 详细 介绍 创建 和 管理 加 载 项 的 方法 ， 还 介绍 了 使 用 VBA 操作 加 载 
项 的 方法 。 





























22.1 了 解 加 载 项 


本 节 主 要 介绍 与 加 载 项 相关 的 一 些 基本 内 容 ， 通 过 这 些 内 容 可 以 对 加 载 项 有 一 个 比较 全 面 
的 了 解 ， 包 括 使 用 加 载 项 的 原因 以 及 加 载 项 的 特点 和 工作 方式 。 本 节 的 最 后 还 对 “加 载 项 ”对 
话 框 进行 了 简要 介绍 。 


22.1.1 使 用 加 载 项 的 原因 

Excel 包含 一 些 内 置 的 加 载 项 ， 用 于 为 Excel 提供 一 些 额外 的 新 功能 。 用 户 也 可 以 根据 需要 
使 用 VBA 为 自己 或 他 人 开发 加 载 项 ， 从 而 满足 个 性 化 的 功能 所 需 。 创 建 好 的 加 载 项 可 供 自己 
使 用 ， 也 可 以 非常 方便 地 分 发 给 其 他 用 户 。 创 建 和 使 用 加 载 项 可 能 有 以 下 几 个 原 

1. 扩展 Excel 功能 
创建 加 载 项 的 主要 原因 是 为 了 扩展 Excel 功能 。 虽然 Excel 具备 强大 的 功能 , 但 是 仍然 无 法 
满足 用 户 在 实际 应 用 中 所 需 的 各 种 不 同 功 能 。 通过 VBA 可 以 开发 出 Excel 内 置 功能 以 外 的 新 功 
能 ， 从 而 扩展 Excel 功能 。 
2. 简化 操作 
很 多 复杂 的 计算 公式 需要 通过 多 个 函数 的 嵌 套 使 用 才能 完成 ， 对 于 对 公式 和 函数 不 太 熟 悉 
的 用 户 来 说 ， 无 疑 增加 了 使 用 难度 。 使 用 VBA 开发 能 够 完成 特定 任务 的 用 户 自 定义 函数 ， 可 
以 极 大 地 简化 公式 的 复杂 度 。 

3. 提供 应 用 程序 级 访问 

在 普通 工作 夭 中 使 用 VBA 创建 的 Sub 过 程 、 用 户 自 定义 函数 、 界 面 定制 等 内 容 都 只 能 在 
包含 这 些 代码 和 对 象 的 工作 夭 中 使 用 , 而 无 法 用 于 其 他 工作 短 。 加 载 项 的 出 现 解 决 了 这 个 问题 。 
从 普通 工作 短 创 建 加 载 项 之 后 ， 可 以 让 其 中 包含 的 功能 被 当前 打开 的 任何 一 个 工作 短 使 用 ， 提 
供 Excel 应 用 程序 级 的 访问 。 


22.1.2 ”加 载 项 的 特点 与 工作 方式 
虽然 加 载 项 也 是 工作 簿 的 一 种 ， 但 其 行为 方式 与 普通 工作 短 有 很 大 区 别 ， 具 体 表现 在 以 下 
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几 个 方面 : 

口 安装 后 的 加 载 项 可 以 在 每 次 Excel 启动 时 自动 启动 ， 不 需要 重复 安装 。 
口 安装 后 的 加 载 项 始终 处 于 隐藏 状态 ， 无 法 让 加 载 项 显示 在 Excel 窗口 中 ， 也 不 能 查看 加 
载 项 中 包含 的 工作 表 和 图 表 。 
口 在 加 载 项 中 创建 的 Sub 过 程 、 用 户 自 定义 函数 、 界 面 定制 等 内 容 可 以 被 当前 打开 的 所 有 
工作 敌 使 用 ， 并 且 不 需要 在 使 用 Sub 过 程 或 用 户 自 定义 函数 时 添加 加 载 项 名 称 的 限定 。 
口 加 载 项 中 包含 的 Sub 过 程 不 会 显示 在 “ 宏 ” 对 话 框 中 ， 因 此 无 法 使 用 该 对 话 框 运 行 加 载 
项 中 的 Sub 过 程 , 但 是 可 以 从 用 户 界面 中 运行 这 些 Sub 过 程 , 也 可 以 在 公式 中 使 用 加 载 




































































项 中 包含 的 用 户 自 定义 函数 。 
口 安装 后 的 加 载 项 不 受 宏 安全 性 设置 的 影响 , 无 论 该 设置 当前 是 否 禁 用 了 所 有 宏 ， 加载 项 
中 的 宏 都 始终 可 用 。 








Excel 2016 内 置 的 加 载 项 通常 位 于 Windows 系统 文件 所 在 的 磁盘 分 区 的 以 下 路 径 中 ， 其 他 
版 本 Excel 的 内 置 加 载 项 的 存储 路 径 与 其 类 似 。 

C:\Program Files\Microsoft Office\Root\Officel6\Library\ 

用 户 创 建 的 加 载 项 的 默认 存储 路 径 如 下 ， 其 中 的 < 用 户 名 > 由 用 户 登 录 系统 时 使 用 的 用 户 名 
决定 。 使 用 Application 对 象 的 UserLibraryPath 属性 可 以 返回 该 路 径 。 

C:\Users\< 用 户 名 >\AppData\Roaming\Microsoft\AddIns 

可 以 使 用 以 下 方法 查看 Excel 内 置 加 载 项 的 存储 路 径 ， 在 功能 区 “开发 工具 ”选项 卡 中 单 
击 “ 宏 安全 性 ”按钮 ， 打 开 “ 信 任 中 心 ”对 话 框 ， 在 左 侧 选 择 “ 受 信任 位 置 ”， 在 右 侧 将 会 显 
示 包 括 Excel 加 载 项 在 内 的 所 有 Excel 默认 位 置 ， 如 图 22-1 所 示 。 


信任 中 心 ? x 









































受信 任 位 置 


警告: 所 有 这 些 位 置 都 被 视 为 打 : 





地 加 位 置 ， 请 确保 新 位 置 是 去 全 的 . 





Jex8 由 >] 








5)\Microsoft Office\Root\Office16\Library\ 





添加 新 位 置 (A). MS(R) 修改 (M)- 











图 22-1 查看 Excel 内 置 加 载 项 的 存储 位 置 


“加 载 项 ”对 话 框 是 Excel 中 用 于 安装 和 管理 Excel 加 载 项 的 工具 ， 可 以 使 用 以 下 两 种 方法 
打开 “加 载 项 ”对 话 框 : 
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口 单 击 Excel 功能 区 左 侧 的 “文件 ”按钮 ， 然 后 选择 “选项 ”命令 ， 打 开 “ 了 Excel 选项 ” 


对 话 框 。 在 左 侧 选择 “加 载 项 ”， 然 后 在 右 侧 底部 的 “ 管 
加 载 项 ”， 最 后 单 击 “ 转 到 ”按钮 ， 如 图 22-2 所 示 。 








理 ” 下 拉 列 表 中 选择 “Excel 





口 在 功能 区 “开发 工具 ”选项 卡 中 单 击 “Excel 加 载 项 ”按钮 。 
打开 的 “加 载 项 ”对 话 框 如 图 22-3 所 示 ， 其 中 显示 了 位 于 加 载 项 存储 路 径 中 包含 的 所 有 加 
载 项 。 选 择 一 个 加 载 项 ， 对 话 框 下 方 可 能 会 显示 关于 该 加 载 项 功能 的 简要 说 明 ， 是 否 显示 取决 


























于 创建 加 载 项 时 是 否 为 其 添加 了 描述 信息 。 如 果 加 载 项 左 侧 的 复 选 框 处 于 选中 状态 ， 则 说 明 已 








经 安装 了 该 加 载 项 ， 在 Excel 中 打开 的 所 有 工作 夭 都 可 以 使 用 该 加 载 项 中 包含 的 功能 。 
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用 于 优化 和 公式 求解 的 I 具 








图 22-2 通过 “Excel 选项 ”对 话 框 打开 “加 载 项 ”对 话 框 

加 载 项 在 列表 中 显示 的 名 称 由 以 下 方式 决定 : 

口 如 果 没 有 为 加 载 项 文件 设置 “标题 ”属性 ， 那 么 显示 在 “ 力 
载 项 的 文件 名 。 


图 22-3 “加 载 项 ”对 话 框 








[0 载 项 ”对 话 框 中 的 就 是 该 


口 如 果 为 加 载 项 文件 设置 了 “标题 ”属性 ,那么 显示 在 “加 载 项 ”对 话 框 中 的 是 在 “标题 ” 


属性 中 设置 的 内 容 ， 而 不 是 加 载 项 的 文件 名 。 





例如 ， 如 果 一 个 加 载 项 的 文件 名 是 “ 自 定义 工具 ”， 将 其 “标题 ”属性 设置 为 “大 小 写 转 
换 ”， 那 么 该 加 载 项 在 “加 载 项 ”对 话 框 中 将 显示 为 “大 小 写 转换 ”而 不 是 “ 自 定义 工具 ”。 

提示 : 如 果 Excel 当前 处 于 运行 状态 , 那么 在 将 加 载 项 文件 添加 到 AddIns 文件 夹 后 , 在 “加 
载 项 ”对 话 框 中 不 会 显示 新 增 的 加 载 项 。 只 有 退出 并 重新 启动 Excel， 才 会 在 “加 载 项 ”对 话 框 








中 显示 新 添加 到 AddIns 文件 夹 中 的 加 载 项 。 


22.2 创建 加 载 项 





Excel 2007 以 及 更 高 版 本 Excel 中 的 加 载 项 文件 的 扩展 名 是 .xlam，Excel 早期 版 本 中 的 加 载 
项 文件 的 扩展 名 是 .xla。 如 果 要 创建 在 多 个 不 同 版 本 中 使 用 的 加 载 项 ， 则 应 该 创建 .xla 文件 格式 





的 加 载 项 。 创 建 加 载 项 的 过 程 并 不 复杂 ， 通 常 需要 以 下 几 个 步 又: 
设置 加 载 项 的 标题 和 描述 信息 一 保护 VBA 工程 一 创建 加 载 项 
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22.2.1 为 加 载 项 添加 标题 和 描述 信息 


为 了 让 加 载 项 可 以 在 “加 载 项 ”对 话 框 中 显示 友好 的 说 明 信 息 ， 需 要 为 将 要 创建 加 载 项 的 
工作 敌 添 加 标题 和 描述 信息 。 可 以 在 创建 加 载 项 之 前 为 工作 德 添加 该 信息 ， 也 可 以 在 创建 加 载 
项 之 后 为 加 载 项 文件 添加 该 信息 。 两 种 方法 的 操作 过 程 基本 相同 ， 区 别 在 于 添加 信息 的 时 机 。 
案例 22-1 设置 加 载 项 的 标题 和 描述 信息 
在 Excel 中 打开 要 创建 加 载 项 的 工作 短 ， 然 后 单 击 “文件 ”按钮 并 选择 “信息 ”命令 ， 在 

右 侧 选 择 “属性 ”|“ 高 级 属性 ”命令 ， 如 图 22-4 所 示 。 打 开 如 图 22-5 所 示 的 对 话 框 ， 在 “ 标 
题 ” 和 “备注 ”文本 框 中 输入 要 在 “加 载 项 ”对 话 框 中 显示 的 有 关 该 加 载 项 的 名 称 和 说 明 信 息 ， 
完成 后 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 


















































圭 息 


语感 \ 


案例 22-1 
G 


保护 工作 往 硬性 
控制 其 他 人 可 以 对 此 工作 秒 所 做 的 更 改 尖 型 . — he 
| 查看 更 多 标题 
Xe 


类别 

检查 工作 簿 

在 发 布 此 文件 之 前 ,请 注意 其 是 否 刀 全 
宏 、 瘟 体 或 ActiveX 控件 和 
指 疝 其 他 文件 的 链接 上 次 导 改 时 间 。 今天 11:58 
残疾 人 士 堆 以 网 读 的 内 容 人 eg 间 今天 11:58 
保存 文 件 时 ， 格 自动 各 除 必 性 和 个 人 信息 的 设置 


上 次 打 p 时 间 
元 许 拘 此 信息 保存 古风 的 文件 中 


相关 人 员 
管理 工作 簿 作者 
站 没有 任何 未 保存 的 更 改 。 上 次 修改 者 








相关 文档 
图 22-4 选择 “高 级 属性 ”命令 
实 822-1 尾 作 YT 
宙 坟 六 要 统计。 内。 定义 
此 三 mM: | 大 小 车 硕 
#(): 
(A): 
EM 
tO 
SI(E): 
(0: 


备注 ( 〇 | 用 于 转 按 英 文大 小 所 的 工具 


起 入 答 
Bad(H): 


口 民 存 记 有 Excel 文 蔡 的 综 玫 于 (| 


| 本 
图 22-5 ”为 加 载 项 添加 标题 和 描述 信息 
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如 果 在 创建 加 载 项 之 前 没有 为 工作 短 设 置 标题 和 描述 信息 ， 那 么 可 以 在 创建 加 载 项 之 后 为 
加 载 项 文件 设置 类 似 信息 。 只 需 进 入 包含 加 载 项 文件 的 文件 夹 ， 右 击 要 添加 说 明 信 息 的 加 载 项 
文件 ， 在 弹出 的 菜单 中 选择 “属性 ”命令 ， 然 后 就 可 以 在 打开 的 属性 对 话 框 中 设置 加 载 项 的 标 
题 和 备注 。 


22.2.2 ”保护 加 载 项 中 的 模块 和 VBA 代码 


为 了 防止 其 他 用 户 查看 和 编辑 加 载 项 中 包含 的 模块 和 VBA 代码 , 可 以 在 创建 加 载 项 之 前 为 
VBA 工程 设置 保护 。 


案例 22-2 ”保护 加 载 项 的 安全 
打开 要 创建 加 载 项 的 工作 夭 ， 然后 按 AlttF11 组 合 键 打开 VBE 窗口 。 在 工程 资源 管理 器 中 


右 击 与 该 工作 敌 关 联 的 VBA 工程 中 的 任意 一 项 ， 在 弹出 的 菜单 中 选择 “大 小 写 转换 属性 ” 命 
令 ， 如 图 22-6 所 示 。 














文件 四” 编 强 (E) ”视图 V) 插入 格式 (Q) 调试 [D) 运行 (R) 工具 中 ”外接 程序 (A) 窗口 (W) 帮助 (H) 
国 国 -加 | 名 权势 | I Ho 以 | 导 全 关 |O 






































22-6 选择 “大 小 写 转换 属性 ”命令 


打开 VBA 工程 属性 对 话 框 ， 在 “保护 ”选项 卡 中 选中 “查看 时 锁定 工程 ” 复 选 框 ， 然 后 输入 
两 次 相同 的 密码 (比如 666) ， 如 图 22-7 所 示 ， 单 击 “ 确 定 ”按钮 关闭 对 话 框 ， 最 后 保存 工作 适 。 


大 小 号 转 毛 - 工程 屋 性 x 





通用 保护 | 
名 定 I 程 





| 订 查看 时 锁定 工程 (y) 





密码 () 加 | 
确认 密码 (C) je* 

















wm | wm | 
22-7 设置 VBA 工程 的 保护 密码 
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22.2.3 ”创建 加 载 项 
创建 加 载 项 之 前 ， 必 须 确保 要 创建 加 载 项 的 工作 敌 中 包含 一 个 活动 工作 表 ， 否 则 无 法 从 工 


作 敌 创 建 .xlam 或 .xla 格式 的 加 载 项 文件 。 创 建 加 载 项 的 方法 是 对 工作 和 执行 另存 操作 ， 然 后 

















以 .xlam 或 .xla 文件 格式 保存 。 
多时。 案例 22-3 ”从 工作 秒 创 建 加 载 项 
8 打开 要 创建 加 载 项 的 工作 短 ， 单 











击 “ 文 件 ” 按 钮 并 选择 “导出 ”命令 ,然后 双击 右 侧 的 “更 
改 文件 类 型 ”命令 。 打 开 “ 另 存 为 ”对 话 框 ， 在 “保存 类 型 ”下 拉 列 表 中 选择 以 下 两 项 之 一 : 
口 如 果 要 创建 应 用 于 Excel 2007 以 及 更 高 版 本 Excel 的 加 载 项 ， 则 选择 “Excel 加 载 宏 ” 
选项 。 


口 如 果 要 创建 应 用 于 Excel 2003 以 及 更 低 版 本 Excel 的 加 载 项 ， 则 选择 “Excel 97-2003 加 
载 安 ” 选 项 。 


无 论 选择 保存 为 适用 于 哪个 Excel 版 本 的 加 载 宏 选 项 ， 对 话 框 中 的 保存 位 置 都 会 自动 定位 
到 存储 用 户 自 定义 加 载 项 的 AddIns 文件 夹 ， 如 图 22-8 所 示 。 可 以 为 加 载 项 文件 起 一 个 易于 识 
别 的 名 称 ， 不 过 如 果 设置 了 加 载 项 文件 的 “标题 ”属性 ， 那 么 此 处 另存 时 的 文件 
载 项 在 “加 载 项 ”对 话 框 
建 加 载 项 。 























名 不 会 影响 加 
的 显示 。 设 置 好 以 后 单 击 “ 保 存 ” 按 钮 ， 将 会 在 AddIns 文件 夹 中 创 











< ~ 个 四 < Roaming > Microsoft » Addins 


组 织 > 新建 文件 夫 


文件 名 (N): |UpperLowerCase 
保存 类 型 (D); Exce| 加 载 宏 
作者 :添加 作者 寺 忆 :添加 标记 


富 隐藏 文件 交 





zau - 坑 
图 22-8 将 工作 短 的 保存 类 型 设置 为 加 载 项 支持 的 文件 格式 








22.3 ”管理 加 载 项 


可 以 使 用 “加 载 项 ”对 话 框 对 Excel 中 的 加 载 项 进行 管理 ， 包 括 安装 与 邱 载 加 载 项 、 删 除 


加 载 项 等 操作 。 虽 然 加 载 项 始终 处 于 隐藏 状态 ， 但 是 如 果 需 要 ， 也 可 以 在 VBE 窗口 中 对 加 载 项 
进行 修改 。 
























旨 22.3.1 安装 与 卸载 加 载 项 
如 果 希 望 使 用 加 载 项 中 包含 的 功能 ， 则 需要 将 其 安装 到 Excel 中 。 在 从 普通 工作 短 创 建 加 载 
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项 时 ， 在 当前 Excel 进程 中 新 创建 的 加 载 项 并 不 会 显示 在 “加 载 项 ”对 话 框 中 ， 而 且 也 不 会 自动 





进行 安装 。 只 有 退出 并 在 下 次 启动 Excel 后 ， 在 “加 
载 项 ”对 话 框 中 才 会 显示 新 创建 的 加 载 项 。 

安装 加 载 项 的 方法 很 简单 ， 在 功能 区 “开发 工 
具 ” 选 项 卡 中 单 击 “Excel 加 载 项 ”按钮 ， 打 开 “ 加 











jn 项 末 - 流 
可 用 加 0 载 去 (A): 
了 Euro Currency Tools “| [区 | 


口 分 析 工具 库 | 




















载 项 ”对 话 框 , 选中 要 安装 的 加 载 项 , 如 图 22-9 所 示 。 
如 果 对 话 框 中 没有 显示 要 安装 的 加 载 项 ， 则 可 以 单 击 
“浏览 ”按钮 定位 并 选择 所 需 的 加 载 项 。 最 后 单 击 “ 确 
定 ” 按 钮 ， 将 指定 的 加 载 项 安装 到 Excel 中 。 

对 于 一 些 不 常用 的 加 载 项 ， 可 以 将 其 从 Excel 
中 印 载 ， 以 免 影 响 Excel 的 启动 速度 。 印 载 加 载 项 与 
安装 加 载 项 的 方法 类 似 ， 需 要 打开 “加 载 项 ”对 话 
框 ， 然 后 取消 选中 要 外 载 的 加 载 项 ， 最 后 单 击 “ 确 
定 ” 按 钮 。 

印 载 后 的 加 载 项 仍然 会 显示 在 “加 载 项 ”对 话 
框 中 ， 但 是 以 后 不 会 再 随 Excel 的 启动 而 自动 加 载 ， 
也 无 法 再 使 用 该 加 载 项 包含 的 所 有 功能 ， 包 括 加 载 
项 中 对 Excel 界面 环境 的 定制 。 


22.3.2 ”打开 与 关闭 加 载 项 文件 







































































大 小 写 转换 加 载 项 
用 于 转换 英文 大 小 写 的 工具 











图 22-9 选择 要 安装 的 加 载 项 





可 以 使 用 与 打开 普通 工作 簿 类 似 的 方法 ， 在 Excel 中 打开 加 载 项 文件 。 打 开 的 加 载 项 文件 





不 会 显示 在 Excel 窗口 中 ， 也 无 法 使 其 显示 出 来 ， 窗 口 切换 列表 中 不 会 显示 加 载 项 的 文件 名 ， 
加 载 项 中 包含 的 Sub 过 程 也 不 会 出 现在 “ 宏 ” 对 话 框 中 。 但 是 如 果 知 道 Sub 过 程 的 名 称 ， 则 可 
以 将 其 输入 到 “ 宏 ” 对 话 框 中 ， 然 后 单 击 “ 执 行 ” 按 钮 运行 该 Sub 过 程 。 






































于 加 载 项 始终 处 于 隐藏 状态 ， 因 此 无 法 使 用 常规 的 方法 关闭 打开 的 加 载 项 ， 而 只 能 借助 


VBA 才能 完成 。 假 设 当前 打开 了 一 个 名 为 UpperLowerCase.xlam 的 加 载 项 文件 ， 使 用 下 面 的 代 


码 可 以 将 其 关闭 : 


Workbooks ("UpperLowerCase.xlam") .Close 


22.3.3 ”修改 并 保存 加 载 项 


如 果 需 要 修改 加 载 项 中 包含 的 VBA 代码 , 则 可 以 在 Excel 中 打开 加 载 项 文件 或 安装 加 载 项 ， 
然后 在 当前 打开 或 新 建 的 任意 一 个 工作 短 中 进入 VBE 窗口 , 在 工程 资源 管理 器 中 双击 与 加 载 项 
对 应 的 VBA 工程 ， 可 以 展开 其 中 包含 的 模块 ， 进 入 指定 的 模块 窗口 以 修改 其 中 的 代码 。 如 果 









































正确 的 解锁 密码 ， 即 可 显示 VBA 工程 中 包含 的 模块 。 





载 项 的 VBA 工程 处 于 保护 状态 , 在 双击 以 展开 工程 时 会 弹出 如 图 22-10 所 示 的 对 话 框 , 输入 





修改 好 加 载 项 中 的 代码 后 , 单 击 VBE 窗口 工具 栏 中 的 “保存 ”按钮 ， 将 修改 结果 保存 到 加 


载 项 中 。 





如 果 要 修改 的 是 加 载 项 的 工作 表 中 的 数据 ,那么 操作 过 程 会 稍微 复杂 一 些 , 这 是 因为 Excel 

















窗口 中 不 会 显示 加 载 项 中 包含 的 工作 表 。 可 以 使 用 下 























而 的 方法 修改 加 载 项 工作 表 中 的 数据 : 











(1) 在 任意 一 个 工作 短 中 打开 VBE 窗口 ， 展 开 与 加 载 项 对 应 的 VBA 工程 ， 选 择 其 中 的 


ThisWorkbook 对 象 模块 。 
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(2) 按 F4 键 打开 属性 窗口 ， 其 中 显示 了 ThisWorkbook 对 象 的 属性 。 选 择 IsAddIn 属性 ， 
然后 将 其 值 从 True 改 为 False， 如 图 22-11 所 示 。 
























四 -如 YBAProject 〈 工 作 海 1) 
日 - 嫩 大 小 写 转 换 (WpperLowerCase. xlan) 
日 富阳 eroseft Excel 对 象 

图 ] sheetl (Sheetl) 
Sheet2 (Sheet2) 








SR orkbook 
按 字母 序 | 按 分 类 序 | 
re 


模块 
由 是 大 小 写 转 换 (UpperLewerCase_ xlan) 


大 小 写 转 换 密码 


密码 人) 
Pr 取消 














图 22-10 访问 VBA 工程 时 需要 提供 解锁 密码 图 22-11 修改 IsAddIn 属性 


(3) 将 IsAddIn 属性 改 为 True 之 后 ， 加 载 项 工作 短 就 会 显示 在 Excel 窗口 中 ， 此 时 可 以 对 
加 载 项 工作 表 中 的 数据 进行 编辑 ,完成 所 有 需要 的 修改 后 ,使 用 与 上 一 步 类 似 的 方法 ,将 IsAddIn 
属性 的 值 从 False 改 为 True， 此 时 加 载 项 会 重新 隐藏 起 来 。 

(4) 单 击 VBE 窗口 工具 栏 中 的 “保存 ”按钮 ， 将 修改 结果 保存 到 加 载 项 中 。 


;22.3.4 ”从 “加 载 项 ”对 话 框 中 删除 加 载 项 


无 论 是 否 将 加 载 项 安装 到 Excel 中 , Excel 检测 到 的 加 载 项 都 会 显示 在 “加 载 项 ”对 话 框 中 ， 
而 且 并 没有 提供 直接 的 命令 将 加 载 项 从 该 对 话 框 中 删除 。 如 果 想 要 从 “加 载 项 ”对 话 框 中 删除 
特定 的 加 载 项 ， 可 以 使 用 下 面 的 方法 : 

(1) 退出 Excel 程序 ， 进 入 包含 加 载 项 文件 的 文件 夹 ， 然 后 执行 以 下 3 种 操作 之 一 : 

口 修改 加 载 项 文件 的 名 称 。 

口 将 加 载 项 文件 移动 到 其 他 文件 夹 。 

口 将 加 载 项 文件 从 当前 文件 夹 中 删除 。 

(2) 重新 启动 Excel 程序 ， 打 开 “ 加 载 项 ”对 话 框 ， 选 中 与 上 一 步 操 作 的 加 载 项 对 应 的 复 选 框 ， 
此 时 会 弹出 如 图 22-12 所 示 的 对 话 框 ， 单 击 “ 是 ”按钮 ， 将 该 加 载 项 从 “加 载 项 ”对 话 框 中 删除 。 


Microsoft Excel 上 























[ji 找 不 到 0 载 定 "C\Users\sxAppData\Roaming\MicrosoftAddins\UpperLowerCasexdam”, 从 列表 中 删除 吗 ? 


Ce [ 南 
图 22-12 从“ 加载 项 ”对 话 框 中 删除 加 载 项 














22.4 使 用 VBA 操作 加 载 项 


在 Excel 对 象 模型 中 提供 了 用 于 操作 加 载 项 的 集合 与 对 象 ,因此 可 以 使 用 VBA 操作 加 载 项 ， 
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从 而 自动 完成 与 加 载 项 相关 的 任务 。 


22.4.1 理解 Addlns 集合 与 Addln 对 象 


Excel 对 象 模型 中 的 AddIns 集合 表示 在 “加 载 项 ”对 话 框 中 列 出 的 所 有 加 载 项 ， 无 论 这 些 
加 载 项 是 否 被 安装 ， 它 们 都 是 AddIns 集合 的 成 员 ， 其 中 列 出 的 每 一 个 加 载 项 都 是 一 个 AddIn 
对 象 。 
可 以 使 用 加 载 项 的 名 称 或 索引 号 从 AddIms 集合 中 引用 某 个 特定 的 加 载 项 。 需 要 注意 的 是 ， 
在 AddIns 集合 中 引用 特定 名 称 的 加 载 项 时 , 此 处 的 名 称 不 是 加 载 项 的 文件 名 , 而 是 加 载 项 在 “加 
载 项 ”对 话 框 中 显示 的 内 容 。 换 句 话说， 在 VBA 中 使 用 AddIns 集合 引用 特定 加 载 项 时 ， 需 要 
使 用 为 加 载 项 文件 设置 的 “标题 ”属性 中 的 内 容 作 为 AddIns 集合 的 参数 。 

例如 ， 本 章 案例 中 使 用 的 加 载 项 的 文件 名 是 UpperLowerCase.xlam， 该 加 载 项 在 “加 载 项 ” 
对 话 框 中 显示 为 “大 小 写 转换 加 载 项 ”。 因 此 在 VBA 中 使 用 AddIns 集合 引用 该 加 载 项 时 ， 需 
要 使 用 下 面 的 代码 : 

AddIns ("大 小 写 转换 加 载 项 ") 

而 不 能 使 用 下 面 的 代码 : 

AddIns ("UpperLowerCase.xlam") 

虽然 加 载 项 是 一 种 .xlam 文件 格式 的 工作 夭 ， 但 是 加 载 项 不 是 Workbooks 集合 的 成 员 ， 然 
而 可 以 在 Workbooks 集合 中 使 用 加 载 项 的 文件 名 来 引用 特定 的 加 载 项 ， 正 如 在 22.3.2 节 中 使 用 
Workbook 对 象 的 Closer 方法 关闭 加 载 项 时 的 用 法 。 下 面 的 代码 使 用 Workbooks 集合 引用 名 为 
UpperLowerCase.xlam 的 加 载 项 并 返回 该 加 载 项 的 文件 名 : 

Workbooks ("UpperLowerCase.xlam") .Name 

AddIns 集合 只 有 几 个 属性 ， 比 如 Count、Item、Parent 等 ， 这 些 属性 是 Excel 对 象 模型 中 的 
所 有 其 他 集合 通用 的 属性 ， 它 们 的 含义 及 用 法 与 其 他 集合 的 同名 属性 类 似 ， 唯 一 区 别 是 所 应 用 
的 对 象 不 同 ， 这 里 这 些 属性 作用 于 AddIns 集合 。AddIns 集合 只 有 一 个 Add 方法 ， 用 于 向 “加 
载 项 ”对 话 框 中 添加 指定 位 置 上 的 加 载 项 ， 具 体 用 法 将 在 下 一 节 进行 介绍 。 

AddIn 对 象 包含 一 些 属性 ， 但 是 没有 方法 。 表 22-1 列 出 了 AddIn 对 象 的 常用 属性 。 


表 22-1 Addln 对 象 的 常用 属性 

说 明 

为 加 载 项 设置 的 “备注 ”属性 中 的 内 容 

回 加 载 项 的 文件 路 径 和 名 称 

或 设置 加 载 项 是 否 已 被 安装 ，True 表示 已 安装 ，False 表示 未 安装 

定 加 载 项 是 否 已 打开 ，True 表示 加 载 项 已 打开 ，False 表示 加 载 项 未 打开 

回 加 载 项 的 文件 名 

回 加 载 项 的 文件 路 径 ， 不 包括 路 径 结尾 的 分 隔 符 和 文件 名 

为 加 载 项 设置 的 “标题 ”属性 中 
AddIn 对 象 的 Installed 属性 和 IsOpen 属性 可 能 容易 发 生 混淆 。 当 安装 了 某 个 加 载 项 后 ， 

这 两 个 属性 都 返回 True。 但 是 如 果 只 是 使 用 Excel 中 的 “打开 ”命令 打开 了 加 载 项 ， 而 没有 

在 “加 载 项 ”对 话 框 中 安装 该 加 载 项 ， 那 么 此 时 Installed 属性 返回 False， 而 IOpen 属性 返 


可 True。 
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22.4.2” 列 出 Excel 中 的 所 有 加 载 项 








在 “加 载 项 ”对 话 框 中 显示 了 Excel 识别 的 所 有 Excel 加 载 项 。 用户 可 能 希望 快速 了 解 这 些 


加 载 项 的 相关 信息 ， 比 如 它们 的 文件 名 、 存 储 路 径 ， 在 “标题 ”和 “备注 ”属性 中 设置 的 内 容 等 。 
使 用 VBA 可 以 很 容易 获取 这 些 信息 ， 并 将 其 保存 到 Excel 工作 表 或 其 他 外 部 程序 如 Word 中 。 





案例 22-4 ”获取 Excel 中 的 所 有 加 载 项 的 相关 信息 




















下 面 的 代码 列 出 了 Excel 中 的 所 有 加 载 项 的 相关 信息 ， 包 括 加 载 项 的 文件 名 、 存 储 路 径 、 
是 否 已 安装 、“ 标 题 ” 和 “备注 ”属性 中 的 设置 ， 如 图 22-13 所 示 。 本 例 代码 的 工作 原理 与 第 





15 章 中 获取 Excel 中 的 所 有 菜单 栏 、 工 具 栏 的 代码 类 似 。 由 于 AddIn 对 象 的 
的 是 True 或 False， 为 了 让 其 返回 文字 “是 ”或 “ 否 ”， 因 此 使 用 了 VBA 
函数 的 第 一 个 参数 表示 要 判断 的 条 件 ， 第 二 个 参数 表示 当 条 件 为 True 时 返回 























表示 当 条 件 为 False 时 返回 的 值 。 


Sub 获取 Bxcel 中 的 所 有 加 载 项 的 相关 信息 () 
Dim adi As AddIn, lngRow Rs Long 























Installed 属性 返 区 











内 置 的 IIF 函数 。 该 











的 值 ， 第 三 个 参数 





If Application.WorksheetFunction.CountA(Cells) <> 0 Then 


MsgBox "活动 工作 表 中 包含 数据 ， 请 选择 一 个 空 工作 表 ! " 
Exit Sub 

End If 

Application.ScreenUpdating = False 

With Range ("R1:E1") 


.Value = Array ("文件 名 "，" 存 储 路 径 "，" 是 否 已 安装 "，" 标 题 "，" 备 注 ") 


.HorizontalAlignment = xlCenter 

End With 

lngRow = 2 

On Error Resume Next 

For Each adi In AddIns 
Cells(lngRow, 1) .Value 
Cells (lngRow, 2) .Value 


adi .Name 
adi.Path 


mw 





Cells (lngRow, 3) .Value = IIf(adi.Installed，" 是 "，" 和 否 ") 
Cells (LngRow，4) .Value adi .Tit1le 
Cells(lngRow, 5) .Value adi.Comments 
lngRow = lngRow + 1 
Next adi 
Range ("Al:E1") .EntireColumn.AutoFit 
Application.ScreenUpdating = True 
End Sub 
A B C D 
1 文件 名 存储 路 径 是 否 已 安装 标题 
2 JEUROTOOLXLAM C\program Files (x86)\Microsoft Office\Root\Office16\Library 否 Euro Currency Tools 
3 |UpperLowerCasexlam  C\Users\sx\AppData\Roaming\Microsoft\Addins 是 大 小 写 转换 加 载 项 
4 JANALYS32XLL CNprogram Files (x86)\Microsoft Office\Root\Office16\Library\Analysis 否 分 析 工 具 库 
5 JATPVBAENXLAM CNprogram Files (x86)\Microsoft Office\Root\Office16\Library\Analysis 否 分 析 工 具 库 - VBA 
6 |SOLVERXLAM C\Program Files (x86)\Microsoft Office\Root\Office16\Library\SOLVER 否 规划 求解 加 载 项 
Sheet1 四 1 

















22.4.3 ”将 加 载 项 添加 到 Excel 中 





图 22-13 获取 Excel 中 的 所 有 加 载 项 的 相关 信息 


可 以 使 用 AddIns 集合 的 Add 方法 将 特定 的 加 载 项 添加 到 AddIms 集合 中 。 执行 Add 方法 后 





会 将 加 载 项 添加 到 “加 载 项 ”对 话 框 中 ， 但 是 在 添加 后 不 会 自动 安装 它们 。Add 方法 包含 两 个 
参数 ， 第 1 个 参数 是 必 选 参数 ， 用 于 指定 要 添加 的 加 载 项 的 路 径 和 名 称 。 第 2 个 参数 是 可 选 参 
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数 ， 用 于 指定 是 否 要 复制 加 载 项 。 如 果 要 添加 的 加 载 项 位 于 可 移动 介质 中 ， 则 需要 将 第 2 个 参 


数 设 置 为 True。 








下 面 的 代码 将 G 盘 根 目录 中 的 “公司 文件 ”文件 来 
载 项 添加 到 “加 载 项 ”对 话 框 中 。 











RddIns .Rdd "G:\ 公 司 文件 \ 销 售 数据 分 析 模 型 .xlam" 














下 面 的 代码 将 用 

















可 以 自由 选择 要 添 


常量 来 显示 一 个 “文件 选取 器 ”对 话 框 。 将 文件 类 型 设置 为 "* 
显示 .xla 和 .xlam 格式 的 加 载 项 文件 。 然 后 判断 FileDialog 对 象 




















案例 22-5 ”将 用 户 选择 的 一 个 或 多 个 加 载 项 添加 到 Excel 中 
户 选择 的 一 个 或 多 个 加 载 项 添加 到 Excel 中 , 如 图 22-14 所 示 。 为 了 让 用 户 








的 加 载 项 , 因此 需要 使 用 FileDialog 对 象 ,本 例 使 月 











bh 名 为 “销售 数据 分 析 模 型 .xlam” 的 加 




















月 msoFileDialogFilePicker 
.Xla;*.xlam"， 表 示 邦 





E 对 话 框 中 内 


的 Show 方法 的 返回 值 ， 如 果 为 


True 则 说 明 用 户 在 对 话 框 中 单 击 了 “确定 ”按钮 ，Excel 会 将 用 户 选择 的 一 个 或 多 个 文件 的 完 








日 








载 项 ”对 话 框 中 。 


Sub 将 用 户 选 择 的 一 个 或 多 个 加 载 项 添加 到 Excel 中 () 
Dim fdl As FileDialog, fdf As FileDialogFilters 


Dim varItem 


As Variant 


Set fdl = Application.FileDialog (msoFileDialogFilePicker) 
Set fdf = fdl.Filters 


With fdl 


.AllowMultiSelect = True 


With fdf 


.Clear 
.Rdd "Excel 加 载 宏 "，"*.xla;*.xlam" 


End With 
If .Show 


Then 


For Each varItem In .SelectedItems 
RddIns .Add varItem 
Next VarItem 








End If 
End With 
End Sub 
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图 22-14 将 用 户 选择 的 一 个 或 多 个 加 载 项 添加 到 Excel 





整 路 径 存 储 到 FileDialogSelectedItems 集合 中 ,使 用 FileDialog 对 象 的 SelectedItems 属性 可 以 返 
该 集合 。 遍历 该 集合 中 的 每 一 项 ,并 使 用 AddIns 集合 的 Add 方法 将 每 一 个 加 载 项 添加 到 “加 
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22.4.4 自动 安装 “加 载 项 ”对 话 框 中 的 所 有 加 载 项 


AddIn 对 象 的 Installed 属性 为 可 读 写 属性 ， 这 意味 着 既 可 以 通过 该 属性 的 返回 值 来 判断 加 
载 项 是 否 已 被 安装 ， 也 可 以 为 该 属性 赋值 来 决定 是 否 安装 加 载 项 。 

案例 22-6 ”自动 安装 加 载 项 

下 面 的 代码 自动 安装 “加 载 项 ”对 话 框 中 的 所 有 加 载 项 。 在 For Each 循环 结构 中 使 用 一 个 
变量 遍历 “加 载 项 ”对 话 框 中 的 每 一 个 加 载 项 。 如 果 加 载 项 的 Installed 属性 为 False， 则 说 明 该 
加 载 项 还 未 被 安装 ， 因 此 将 该 加 载 项 的 Installed 属性 设置 为 True 来 安装 它 。 

Sub 自动 安装 加 载 项 对 话 框 中 的 所 有 加 载 项 () 


Dim adi As RddIn 
For Each adi In RddIns 
If adi.Installed = False Then 
adi.Installed = True 
End If 
Next adi 
End Sub 


22.4.5 处理 Addln 对 象 的 事件 


在 Workbook 对 象 的 所 有 事件 过 程 中 ，AddinInstall 和 AddinUninstall 事件 与 加 载 项 有 关 。 
AddinInstall 事件 在 安装 加 载 项 时 触发 ，AddinUninstall 事件 在 印 载 加 载 项 时 触发 。 包 含 这 两 个 
事件 过 程 的 VBA 代码 必须 放 入 指定 的 加 载 项 文件 的 ThisWorkbook 模块 中 。 利 用 这 两 个 事件 ， 
可 以 在 安装 和 御 载 加 载 项 时 显示 指定 的 提示 信息 ， 以 使 安装 和 凶 载 加 载 项 的 过 程 更 友好 。 

案例 22-7 ”在 安装 加 载 项 时 显示 提示 信息 

下 面 的 代码 位 于 加 载 项 文件 中 的 ThisWorkbook 模块 中 。 当 在 “加 载 项 ”对 话 框 中 安装 包含 
该 代码 的 加 载 项 时 ， 将 显示 如 图 22-15 所 示 的 信息 。 


Private Sub Workbook AddinInstall() 
MsgBox "大 小 写 转换 加 载 项 已 正确 安装 ! " 
End Sub 




















































































































图 22-15 在 安装 加 载 项 时 显示 提示 信息 


案例 22-8 ”在 卸载 加 载 项 时 显示 提示 信息 

下 面 的 代码 位 于 加 载 项 文件 中 的 ThisWorkbook 模块 中 。 当 在 “加 载 项 ”对 话 框 中 印 载 包含 
该 代码 的 加 载 项 时 ， 将 显示 预先 指定 的 信息 。 

Private Sub Workbook AddinInstal1l() 


MsgBox "大 小 写 转换 加 载 项 已 正确 安装 ! " 
End Sub 
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第 23 章 开发 Excel| 实用 程序 


本 章 作 为 本 书 的 最 后 一 章 , 介绍 了 使 用 VBA 开发 Excel 实用 程序 的 两 个 典型 案例 ， 一 个 案 
例 是 开发 通用 插件 ， 另 一 个 案例 是 开发 一 个 人 事 管理 系统 。 通 过 这 两 个 案例 读者 可 以 更 好 地 理 
解 VBA 编程 中 涉及 的 主要 概念 和 技术 ， 并 将 它们 进行 综合 运用 。 





























23.1 开发 通用 插件 


插件 实际 上 可 以 认为 是 Excel 加 载 项 的 俗称 ， 在 Excel 中 可 以 使 用 VBA 开发 增强 Excel 功 
能 的 插件 ， 从 而 弥补 Excel 自身 的 一 些 不 足 。 本 节 首 先 介绍 了 通用 插件 与 普通 VBA 程序 之 间 的 
区 别 ， 然 后 以 开发 一 个 通用 的 按 行 批量 合并 单元 格 插件 为 例 介 绍 插件 开发 的 一 般 方 法 。 


23.1.1 通用 插件 与 普通 VBA 程序 的 区 别 


通用 插件 与 普通 VBA 程序 虽然 都 用 于 提高 Excel 操作 效率 ,实现 Excel 自身 不 具备 的 功能 ， 
但 两 者 在 设计 和 编写 代码 的 过 程 中 仍然 存在 着 一 些 重要 的 区 别 ， 有 具体 包括 以 下 几 点 。 


1. 使 用 频率 

普通 VBA 程序 主要 用 于 解决 临时 间 题 ， 通 常 只 会 使 用 一 次 。 而 且 由 于 VBA 程序 仅 针 
对 当前 遇 到 的 特定 问题 ， 所 以 一 旦 问题 得 以 解决 ，VBA 程序 也 就 不 再 有 用 。 通 用 插件 通常 
于 解决 具有 共同 特点 的 一 类 问题 , 而 不 是 针对 某 个 特定 环境 下 的 临时 间 题 , 因此 通常 会 反 
复 使 用 9 

2. 通用 性 

通用 性 与 使 用 频率 之 间 联 系 紧密 。 由 于 普通 VBA 程序 主要 针对 特定 环境 下 的 临时 间 题 , 问 
题 的 环境 稍微 发 生 改变 ，VBA 程序 就 无 法 正常 工作 ， 因 此 通用 性 极 差 。 而 插件 在 设计 之 初 就 考 
虑 到 要 适合 不 同 用 户 在 不 同 环境 和 操作 方式 下 使 用 ， 因 此 通用 性 较 好 。 
插件 的 通用 性 主要 体现 在 用 户 的 操作 方式 和 Excel 版 本 两 个 方面 。 由 于 插件 是 给 其 他 用 户 
使 用 ， 这 些 用 户 的 实际 操作 方式 通常 并 不 相同 ， 因 此 插件 中 的 VBA 代码 应 该 尽 可 能 减少 硬 编 
码 ， 比 如 不 能 指定 具体 的 单元 格 地 址 ， 而 是 以 灵活 的 方式 获取 用 户 的 操作 方式 及 其 相关 信息 ， 
从 而 确定 在 代码 中 要 使 用 的 数据 。 插 件 还 应 该 尽 可 能 适用 于 不 同 的 Excel 版 本 ， 我 们 很 难保 证 
使 用 同一 插件 的 所 有 用 户 都 使 用 相同 的 Excel 版 本 ,因此 在 设计 插件 时 就 需要 检查 用 户 的 Excel 
版 本 ， 根 据 检 查 结果 来 执行 不 同 的 代码 ， 从 而 实现 多 版 本 适用 。 

3. 易 用 性 

普通 VBA 程序 可 能 是 VBA 开发 人 员 或 具有 一 定 Excel VBA 编程 经 验 的 用 户 为 了 提高 操 


作 效 率 ， 或 为 了 解决 Excel 常规 方法 无 法 解决 的 问题 而 临时 编写 的 一 段 VBA 代码 。 需 要 在 专 
门 的 VBE 环境 下 运行 VBA 代码 ， 而 且 由 于 考虑 不 足 或 编程 经 验 有 限 ， 在 运行 代码 时 可 能 












































































































































































































































会 遇 到 程序 错误 。 对 于 普通 用 户 来 说 ， 在 VBE 


问题 并 不 容易 。 
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开发 的 通 











大 多 数 可 能 不 具备 VBA 的 相关 知识 和 技术 ， 


插件 一 般 都 是 给 VBA 开发 人 员 以 外 的 Excel 普通 用 户 使 用 











因此 通用 

















H 

















作 方 式 。 易 用 性 的 
元 素 ， 比 如 在 功能 
单 击 按钮 或 从 右键 菜 
代码 。 

4. 防 错 功能 
即使 经 验 再 丰富 





























备 完善 的 防 错 功能 ， 甚 至 可 


个 主要 体现 就 是 在 Excel 界面 中 提供 了 用 于 执行 插件 中 
区 中 添加 了 按钮 ， 或 在 鼠标 右键 菜单 中 提供 相应 的 命令 ， 使 得 最 终 用 
单 中 选择 命令 即 可 使 用 插件 中 的 功能 ， 














为 VBA 开发 人 员 ， 也 会 因 











员 来 说 ， 有 时 可 能 

通用 插件 由 于 面 
机 中 运行 时 可 能 出 现 
可 能 遇 到 的 系统 环境 


也 




















将 会 在 屏幕 中 显示 对 普通 用 








无 法 提供 查找 并 解决 问题 的 帮助 。 
向 
的 任何 
方面 

















23.1.2 ”通用 插件 开发 案例 


Excel 提供 了 合并 


置 的 合并 








bh 运 行 VBA 代码 以 及 解决 运行 过 程 中 遇 到 的 





的 ,这 些 用 户 中 的 绝 





件 通 常 都 易于 使 








用 ， 提 供 了 友好 的 操 
的 功能 的 界面 控制 
户 可 以 
































而 不 是 在 VBE 中 运行 和 调试 VBA 


为 一 个 细小 的 朴 漏 而 导致 程序 出 现 严重 的 错误 ， 
此 程序 中 是 否 包含 防 错 功能 是 检验 一 个 程序 是 否 健壮 的 基本 标准 。 普 通 VBA 程序 通常 不 具 
[能 根本 没有 防 错 功 能 ， 在 运行 这 样 的 程序 时 
户 来 说 没有 太 多 帮助 的 信息 。 这 类 信息 对 于 具有 编程 经 验 的 开发 人 





， 一 旦 遇 到 运行 时 错误 ， 


的 是 所 有 需要 它 的 用 户 ， 因 此 在 设计 时 必须 尽 可 能 考虑 到 在 用 户 的 计算 
问题 ， 以 便 在 开发 插件 的 VBA 代码 
的 问题 或 由 用 户 的 无 效 操作 导致 的 问题 。 


提前 加 入 防 错 功能 ， 以 应 对 


元 格 的 功能 ,但 是 当 需 要 将 多 行 单元 格 按 行 分 别 合 并 时 ， 使 用 Excel 内 
单元 格 功能 则 需要 逐一 按 行 合并 。 如 果 选 择 所 有 需要 合并 的 单元 格 ， 则 会 将 所 有 选中 





的 单元 格 合并 为 一 个 整体 。 本 例 中 的 插件 提供 了 分 行 合并 单元 格 的 功能 ， 允 许 一 次 性 对 所 有 选 
中 的 多 行 单元 格 执行 按 行 合并 。 本 例 中 的 插件 开发 主要 包括 以 下 3 个 部 分 : 


口 编 
口 在 
口 创 


写实 
功能 

















个 案例 














现 插件 功能 的 VBA 代码 。 
区 和 鼠标 右键 菜单 中 添加 执行 插件 功能 的 命令 。 
建 包 含 插件 功能 的 Excel 加 载 项 。 
也 会 介绍 为 开发 好 的 Excel 实用 程序 定制 功能 








区 界面 














的 内 容 ， 因 





此 为 了 避 


免 内 容重 复 ， 本 例 在 介绍 插件 功能 的 界面 定制 时 ， 只 介绍 定制 鼠标 右键 菜单 的 方法 。 


案例 23-1 


开发 按 行 批量 合并 单元 格 插件 


(1) 新 建 一 个 工作 夭 并 保存 为 “Excel 启用 宏 的 工作 敌 ” 格 式 。 


(2) 按 AIttF11 组 合 键 打开 VBE 窗口 ， 在 VBA 工程 


开 与 其 关联 的 代码 窗 


口 ， 然 后 输入 下 面 的 代码 : 


Sub 按 行 批量 合并 单元 格 () 
Dim avarCellValues As Variant, rngRow As Range 
Dim intIndex As Long, strMerge Rs String 
Dim lngRow As Long, lngRowCount As Long 


lngRowCount 
Application 


= Selection.Rows.Count 
.DisplayAlerts = False 


For lngRow = 1 To lngRowCount 


Set rngRow = Selection.Rows (lngRow) 
If rngRow.Cells.Count > 1 Then 
avarCellValues = rngRow 
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添加 一 个 标准 模块 ， 双 击 该 模块 打 
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For intIndex = LBound(avarCellValues, 2) To UBound(avarCellValues, 2) 
IE strMerge = "" Then 
strMerge = avarCellValues (1, intIndex) 
Else 
strMerge = strMerge & "-" & avarCellValues (1，intIndex) 
End If 
Next intIndex 
rngRow.Merge True 
rngRow.Value = strMerge 
strMerge = "" 
End If 
Next lngRow 
Application.DisplayAlerts = True 
End Sub 


(3) 为 了 便于 在 工作 矢 中 执行 本 例 插 件 中 的 按 行 批量 合并 单元 格 的 命令 ， 需 要 将 上 一 步 创 
建 的 Sub 过 程 以 命令 的 形式 添加 到 鼠标 右键 菜单 中 ， 如 图 23-1 所 示 。 如 果 希 望 在 每 次 打开 工作 
敌 时 使 该 命令 可 用 ， 则 需要 编写 工作 矢 的 Open 事件 代码 ， 如 下 所 示 : 


Private Sub Workbook Open() 
Dim cbr As CommandBar 
Const strName As String = " 按 行 批量 合并 " 
Set cbr = Application.CommandBars ("Cell") 
On Error Resume Next 
cbr.Controls (strName) .Delete 
With cbr.Controls.Add (Type:=msoControlButton, Before:=3, Temporary:=True) 
.Caption = strName 
.OnRction = " 按 行 批量 合并 单元 格 " 
.Style = msoButtonCaption 
End With 
End Sub 

















1 
3 
4 
5 
6 
9 
11 





(4) 完成 以 上 工作 后 ， 可 以 测试 按 行 合并 单元 格 功 能 是 否 能 够 正常 工作 。 测 试 无 误 后 ， 将 
工作 敌 转 换 为 加 载 项 ， 以 便 在 Excel 中 任何 打开 的 工作 竹中 都 可 以 使 用 这 项 功能 。 单 击 “ 文 件 ” 
按钮 并 选择 “信息 ”命令 ， 在 右 侧 选择 “属性 ”|“ 高 级 属性 ”命令 。 打 开 如 图 23-2 所 示 的 对 话 
框 ， 在 “标题 ”和 “备注 ”文本 框 中 输入 “ 按 行 批量 合并 单元 格 ” 和 “用 于 将 选中 的 单元 格 区 
域 中 的 每 一 行 单元 格 逐 一 按 行 合并 的 工具 ”， 然 后 单 击 “ 确 定 ” 按 钮 。 

(5) 对 工作 短 执 行 “ 另 存 为 ”命令 打开“ 另存 为 ”对 话 框 ， 在 “保存 类 型 ”下 拉 列 表 中 
选择 “Excel 加 载 安 ” 选 项 ， 然 后 设置 加 载 项 文件 的 名 称 ， 最 后 单 击 “ 保 存 ” 按 钮 。 之 后 在 功能 
区 “开发 工具 ”选项 卡 中 单 击 “Excel 加 载 项 ”按钮 ， 打 开 “ 加 载 项 ”对 话 框 ， 选 中 本 例 开 发 的 


插件 ， 如 图 23-3 所 示 ， 即 可 将 其 安装 在 Excel 中 。 
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安全 23-1 屋 性 7 j 壹 项 PX 

党 规 。 接 要 。 统计 。 内容” 自 十 义 可 有 in 去 办 : 

二 — 所 ure Cureney Teo 

es Eee 

a 分 析 工 县 库 a 
口 分 析 工 具 库 - VBA baa 

作者 (A): | 规划 求解 加 载 项 

主管 (M): 

单位 (O): 自动 化 (U)… 

类 别 (E): 

关键 词 (K): 

备注 (C): 。 | 用 于 将 选中 的 单元 格 区 域 中 的 每 一 行 单元 格 逐一 按 行 合 

并 的 工具 

起 性 接 ee 

Ey 用 于 格 先 中 的 单元 格 区 域 中 的 每 一 行 单元 格 逐 
一 按 行 全 并 的 工具 

口 保存 所 有 Excel 文档 的 缩 略图 (V) 

mo 
图 23-2 设置 插件 的 标题 和 描述 信息 图 23-3 ”安装 插件 


23.2 ”开发 一 个 简单 的 人 事 管理 系统 


本 节 将 介绍 使 用 VBA 开发 一 个 简单 的 人 事 管理 系统 的 方法 。 本 例 中 的 管理 系统 具有 以 下 
几 个 功能 : 

口 用 户 登 录 并 验证 用 户 的 操作 权限 。 

口 添加 新 的 员工 资料 。 

口 修改 现 有 的 员工 资料 。 

口 备份 员工 资料 ， 将 其 导出 为 文本 文件 。 

口 删除 现 有 的 员工 资料 。 

可 以 根据 需要 在 该 系统 的 基础 上 增加 更 多 功能 ， 本 例 中 的 人 事 管 理 系统 虽然 只 具备 一 些 基 
础 功能 ， 但 是 可 以 很 好 地 说 明 开发 一 个 类 似 的 管理 系统 的 思路 、 流 程 和 方法 。 

案例 23-2 开发 人 事 管理 系统 

本 例 开发 的 人 事 管理 系统 包括 以 下 几 个 部 分 : 

口 用 户 登 录 和 身份 验证 模块 。 

口 添加 员工 资料 模块 。 

口 修改 员工 资料 模块 。 

口 备份 员工 资料 模块 。 

口 删除 员工 资料 模块 。 

口 定制 功能 区 命令 。 

提示 : 如 果 不 想 让 别人 看 到 人 事 管理 系统 中 包含 的 模块 及 其 VBA 代码 ， 则 可 以 为 VBA 工 
程 设置 密码 保护 。 



































“470，: 


第 23 章 ”开发 Excel 实用 程序 





23.2.1 开发 用 户 登 录 和 身份 验证 模块 





单 


入 第 二 部 分 。 




















本 例 中 的 用 户 登录 和 身份 验证 模块 分 为 欢迎 屏幕 与 用 户 登录 和 身份 验证 两 部 分 。 
欢迎 屏幕 


第 一 部 分 是 “欢迎 ”对 话 框 ， 其 中 包含 “登录 ”和 “退出 ”两 个 命令 按钮 ， 如 图 23-4 所 示 。 
击 “ 退 出 ”按钮 退出 Excel 程序 ， 单 击 “ 登 录 ” 按 钮 将 会 显示 “用 户 登录 ”对 话 框 ， 此 时 进 





























欢迎 x 


欢迎 使 用 人 事 管理 系统 








wu | 
图 23-4 “欢迎 ”对 话 框 


在 “欢迎 ”对 话 框 的 用 户 窗 体 模块 中 包含 以 下 几 部 分 代码 : 
口 用 户 窗 体 (名 为 fmGreeting) 的 Initialize 事件 过 程 : 用 于 设置 欢迎 界面 的 背景 图 ， 隐 
藏 Excel 程序 窗口 ， 以 便于 只 显示 欢迎 界面 。 
口 用 户 窗 体 (名 为 fmGreeting) 的 QueryClose 事件 过 程 : 用 于 禁止 通过 单 击 对 话 框 右上 
角 的 关闭 按钮 关闭 欢迎 界面 ， 而 绕 过 用 户 登录 和 身份 验证 。 
口 “ 登 录 ” 按 钮 (名 为 cmdLogin) 的 Click 事件 过 程 用 于 显示 “用 户 登 录 ” 对 话 框 。 
口 “ 退 出 ”按钮 (名 为 cmdQuit) 的 Click 事件 过 程 : 用 于 退出 Excel 程序 。 
Private Sub UserForm Initialize() 
Dim strPicturePath Rs String 
strPicturePath = ThisWorkbook.Path & "\ 背 景 图 .jpg" 
Application.Visible = False 
frmGreeting.Picture = LoadPicture (strPicturePath) 
End Sub 







































































Private Sub UserForm QueryClose (Cancel As Integer, CloseMode As Integer 
If CloseMode = vbFormControlMenu Then 
MsgBox "只 能 使 用 【 退出】 按钮 关闭 本 窗口 ! " 
Cancel = True 
End If 
End Sub 


Private Sub cmdLogin Click() 
frmLogin.Show 


End Sub 


Private Sub cmdQuit Click() 
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Application.Quit 


End Sub 


2. 





然后 在 














“用 户 登 录 ” 对 话 框 和 欢迎 屏幕 。 否 则 输 错 3 次 密码 将 自动 退出 Excel 程序 。 
用 户 登 录 X 用 户 登录 x 
用 户 名 : 用 户 名 : 四 
密码 ， 密码 ， | 晶 生 和 和 
管理 员 
确定 | 取消 确定 | 取消 


在 
口 


口 


口 


用 户 登 录 和 身份 验证 





在 “用 户 登 录 ” 对 话 框 中 从 “用 户 名 ”下 拉 列 表 中 选择 一 个 预 置 的 用 户 名 ， 如 图 23-5 所 示 ， 





“密码 ”文本 框 中 输入 密码 。 如 果 密 码 正确 ， 单 击 “确定 ”按钮 后 将 登录 成 功 ， 并 隐藏 


















































图 23-5 “用 户 登 录 ” 对 话 框 


“用 户 登录 ”对 话 框 的 用 户 窗 体 模块 中 包含 以 下 几 部 分 代码 : 

户 窗 体 (名 为 frmLogin) 的 Initialize 事件 过 程 : 用 于 将 存储 用 户 名 和 密码 的 工作 表 中 
的 用 户 名 添加 到 “用 户 登录 ”对 话 框 的 “用 户 名 ”下 拉 列 表 中 ， 以 供用 户 从 中 选择 。“ 
户 名 ”下 拉 列 表 使 用 的 是 组 合 框 控件 ， 但 是 为 了 避免 在 其 中 输入 不 存在 的 用 户 名 ， 因 此 
将 组 合 框 控件 的 样式 设置 为 只 能 从 下 拉 列 表 中 选择 而 不 能 输入 的 形式 。 此 外 ， 还 将 “ 密 
码 ” 文 本 框 中 输入 的 字符 指定 为 以 * 号 显示 。 
“确定 ”按钮 (名 为 cndOk) 的 Click 事件 过 程 : 用 于 验证 用 户 在 “密码 ”文本 框 中 输 
入 的 密码 ， 是 否 与 在 “用 户 名 ”下 拉 列 表 中 选择 的 用 户 名 匹配 。 如 果 匹 配 则 登录 成 功 ， 
否则 在 输 错 3 次 密码 后 将 退出 Excel。 
“取消 ”按钮 (名 为 cmdCancel) 的 Click 事件 过 程 : 用 于 关闭 “用 户 登录 ”对 话 框 并 返 
可 欢迎 屏幕 。 


























































































































Private Sub UserForm Initialize() 


Dim strAddress As String, lngLastRow As Long 

lngLastRow = Worksheets ("用 户 名 和 密码 ") .Cells (Worksheets ("用 户 名 和 密码 ") .Rows .Count, 
1) .End (x1UP) .Row 

strAddress = "A2:" & Worksheets ("用 户 名 和 密码 ") .Cells (lngLastRow, 1) .Address (0, 0) 


CboUserName .RowSource = "用 户 名 和 密码 !" & strAddress 


cboUserName.Style = fmStyleDropDownList 
txtPassword.PasswordChar = "*" 


End Sub 


Private Sub cmdOk Click() 
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Dim strUserName Rs String, strPassword Rs String 
Dim intCount As Integer 
strUserName = cboUserName.Text 
strPassword = Worksheets ("用 户 名 和 密码 ") .Columns ("A:A") .Find (What:=strUserName, 
SearchOrder:=xlByColumns) .Offset (0, 1) .Value 
If UCase (txtPassword.Text) = UCase(strPassword) Then 
Unload frmLogin 
Unload frmGreeting 
Application.Visible = True 
Else 
If txtPassword = "" Then 
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MsgBox "没有 输入 密码 ! " 
Else 
MsgBox "密码 不 正确 ， 请 重新 输入 ! " 
intCount = intCount + 1 
txtPassword.Text = "" 
txtPassword.SetFocus 
If intCount = 3 Then 
MsgBox "对 不 起 ， 尝 试 次 数 过 多 ， 登 录 失 败 ! " 
Application.Quit 
End If 
End If 
End,- Tf 
End Sub 


Private Sub cmdCancel Click() 
frmLogin.Hide 
End Sub 


23.2.2 ”开发 添加 员工 资料 模块 


添加 员工 资料 模块 主要 提供 新 增 员 工资 料 数据 的 功能 ， 在 5 个 文本 框 中 输入 员工 的 资料 ， 
然后 单 击 “ 添 加 ”按钮 将 新 增 数据 输入 到 员工 资料 表 中 现 有 数据 的 下 一 行 。“ 添 加 员工 资料 ” 
对 话 框 的 界面 设计 如 图 23-6 所 示 。 


















































图 23-6 “添加 员工 资料 ”对 话 框 





在 “添加 员工 资料 ”对 话 框 的 用 户 窗 体 模块 中 包含 以 下 几 部 分 代码 : 

口 用 户 窗 体 (名 为 fmAdd) 的 Initialize 事件 过 程 : 用 于 将 焦点 置 于 编号 文本 框 中 。 

口 “ 添 加 ”按钮 (名 为 cmdAdd) 的 Click 事件 过 程 : 用 于 检查 5 个 文本 框 是 否 都 填 入 内 容 ， 
如 果 信 息 完整 ， 则 将 所 有 数据 输入 到 员工 资料 表 中 最 后 一 行 数据 的 下 一 行 。 

口 “取消 ”按钮 (名 为 cmdCancel) 的 Click 事件 过 程 : 用 于 关闭 “添加 员工 资料 ”对 话 框 。 

Private Sub UserForm Initialize() 


txtNumber .SetFocus 
End Sub 























Private Sub cmdAdd Click() 
Dim ctl As Control 
For Each ctl In frmAdd.Controls 
If TYPeName (ct1) = "TextBox" Then 
DEO VL = -The 
MsgBox "信息 不 完整 ! " 
Exit Sub 
End If 
End If 
Next ctl 
Sheet1.Cel1ls (GetLastRow + 1，1) .Value = txtNumber.Text 
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Sheet1.Cells (GetLastRow, 2). 
Sheetl.Cells (GetLastRow, 3). 
Sheetl.Cells (GetLastRow, 4). 
Sheet1.Cel1s (GetLastRow, 5). 
For Each ctl In frmAdd.Controls 
IE TypeName (ct1) 
Ctl. Text sm 
End If 
Next ctl 
txtNumber.SetFocus 
End Sub 


Value = txtName. 


"TextBox" Then 


Private Sub cmdCancel Click() 
Unload frmAdd 
End Sub 


23.2.3 ”开发 修改 员工 资料 模块 


修改 员工 资料 模块 主要 提供 修改 员工 资料 的 功能 ， 
修改 除了 编号 以 外 的 其 他 4 个 文本 框 中 的 内 容 ， 然 后 单 


从 编号 下 拉 列 表 


Text 


Value = txtSex.Text 
Value = txtAge.Text 
Value = txtDepartment.Text 








bh 选择 员工 编号 ， 然 后 





工资 料 表 中 该 员工 的 原始 资料 。“ 修 改 员 工资 料 


和 “修改 ”按钮 将 修改 后 的 数据 蔡 换 员 


”对 话 框 的 界面 设计 如 图 23-7 所 示 。 


























图 23-7 


“修改 员工 资料 ” 





人 入 











口 





号 添加 到 组 合 框 中 ， 寺 





料 表 中 A 列 除 标题 行 以 外 的 所 有 数据 的 单元 格 地 
组 合 框 (名 为 cboNumber) 的 Change 事件 过 程 : 
时 ， 其 他 4 个 文本 框 可 以 显示 与 该 员工 编号 对 
4 个 文本 框 的 Change 事件 过 程 ， 用 于 








口 





口 
口 





的 值 赋值 给 指定 的 行 ， 该 行 就 是 要 修改 的 员 了 





Dim lngFoundRow Rs Long, avarCellValues As Vari. 


Private Sub UserForm Initialize() 
cboNumber .RowSource = GetNumberListAddress 
cboNumber.Style = fmStyleDropDownList 

End Sub 


Private Sub cboNumber Change () 
On Error Resume Next 
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GetNumberListAddress 函数 是 一 个 在 标准 模块 中 创建 的 Function 过 程 , 用: 


“修改 ”按钮 (名 为 cmdModify) 的 Click 事件 过 程 : 用 于 将 包含 修改 后 的 数据 的 数组 
[资料 所 在 的 行 。 
口 “ 取 消 ” 按 钮 (名 为 cmdCancel) 的 Click 事件 过 程 : 月 


对 话 框 


E“ 修 改 员工 资料 ”对 话 框 的 用 户 窗 体 模块 中 包含 以 下 几 部 分 代码 : 
日 户 窗 体 (名 为 fmModify) 的 Initialize 事件 过 程 : 用 于 将 员工 资料 表 中 A 列 的 员 了 
# 将 组 合 框 的 样式 设置 为 不 支持 输入 的 了 


[ 编 
下 拉 列 表 。 
于 获取 员工 资 











址 。 


用 于 从 下 拉 列 表 中 选择 一 个 员工 编号 





应 的 员工 资料 。 
FF 将 修改 后 的 内 容 赋值 给 数组 





的 指定 元 素 。 


bb 

















于 关闭 “修改 员工 资料 ”对 话 框 。 


ant 
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lngFoundRow = Sheetl1 .Columns ("A:A") .Find (What :=cboNumber.Text, SearchOrder:= 
xlByColumns) .Row 
avarCellValues = Sheet1.Range (Sheetl1.Cells (lngFoundRow, 1), Sheetl.Cells (lngFoundRow, 
5)) .Value 
txtName.Text = avarCellValues (1, 2) 
txtSex.Text = avarCellValues (1, 3) 
txtAge.Text = avarCellValues (1, 4) 
txtDepartment.Text = avarCellValues (1, 5) 
End Sub 


Private Sub txtName Change () 
avarCellValues (1，2) = txtName .Text 
End Sub 


Private Sub txtSex Change() 
avarCellValues (1, 3) = txtSex.Text 
End Sub 


Private Sub txtAge Change() 
avarCellValues(1, 4) = txtAge.Text 
End Sub 


Private Sub txtDepartment Change() 
avarCellValues(1, 5) = txtDepartment .Text 
End Sub 


Private Sub cmdModify Click() 
Sheet1.Range (Sheet1.Cells (lngFoundRow, 1), Sheetl.Cells (lngFoundRow, 5)) .Value = 
avarCellValues 

End Sub 


Private Sub cmdCancel Click() 
Unload frmModify 
End Sub 


23.2.4 开发 备份 员工 资料 模块 


备份 员工 资料 模块 主要 提供 将 员工 资料 全 部 或 部 分 内 容 导 出 为 文本 文件 以 进行 备份 的 功 
能 , 通过 在 文本 框 中 输入 首 行 行 号 和 尾行 行 号 , 或 者 单 击 数值 调节 钮 设置 首 行 行 号 和 尾行 行 号 ， 
然后 将 由 首 行 行 号 和 尾行 行 号 构成 的 数据 区 域 导出 为 文本 文件 。“ 备 份 员工 资料 ”对 话 框 的 界 
面 设计 如 图 23-8 所 示 。 












































备份 员工 资料 [= 
首 行 行 号 : 
尾行 行 号 : 习 
Sh 取消 
图 23-8 “备份 员工 资料 ”对 话 框 























在 “备份 员工 资料 ”对 话 框 的 用 户 窗 体 模块 中 包含 以 下 几 部 分 代码 : 
口 用 户 窗 体 〈 名 为 fmExport) 的 Initialize 事件 过 程 : 用 于 将 两 个 文本 框 中 的 值 设置 为 两 
个 数值 调节 钮 的 最 小 值 。 
































JR 
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口 两 个 数值 调节 钮 的 Change 事件 过 程 : 当 分 别 单 击 两 个 数值 调节 钮 时 ， 两 个 文本 框 中 分 


别 显示 它们 的 当前 值 。 

口 “ 导 出 ”按钮 (名 为 cmdExport) 的 Click 事件 过 程 : 
资料 导出 为 文本 文件 。 

口 “ 取 消 ” 按 钮 (名 为 cmdCancel) 的 Click 事件 过 程 : 


Private Sub UserForm Initialize() 
txtFirstRow.Text = spnFirstRow.Min 
txtLastRow.Text = spnLastRow.Min 

End Sub 


jn 





Private Sub spnFirstRow Change () 
txtFirstRow.Text = spnFirstRow.Value 
End Sub 


Private Sub spnLastRow Change () 
txtLastRow.Text = spnLastRow.Value 
End Sub 


Private Sub cmdExport Click() 
Dim lngFirstRow As Long, lngLastRow As Long 
Dim avarExport As Variant, lngIndex As Long 


Dim strFileName As String, strDataLine As Stri 
Dim intFileNumber As Integer 


strFileName = ThisWorkbook.Path & "\ 员 工资 料 备份 
intFileNumber = FreeFile 
Open strFileName For Output As #intFileNumber 


lngFirstRow = txtFirstRow.Text 
lngLastRow = txtLastRow.Text 




















将 员工 资料 表 中 指定 范围 内 的 员 





























ng 


txt" 


于 关闭 “备份 员工 资料 ”对 话 框 。 


avarExport = Sheetl.Range (Sheetl.Cells (lngFirstRow, 1), Cells(lngLastRow, 5)) .Value 


For lngIndex = LBound (avarExport, 1) To UBound 
strDataLine = avarExport (lngIndex, 1) & 
strDataLine 


(avarExport, 1) 


strDataLine & avarExport (lngIndex, 2) & ";" 


strDataLine = strDataLine & avarExport (lngIndex, 3) & "7 


strDataLine 


strDataLine & avarExport (lngIndex, 4) & ";" 


strDataLine = strDataLine & avarExport (lngIndex, 5 


Print #intFileNumber, strDataLine 
Next lngIndex 
Close #intFileNumber 
End Sub 


Private Sub cmdCancel Click() 


Unload frmExport 
End Sub 


23.2.5 ”开发 删除 员工 资料 模块 


删除 员工 资料 模块 主要 提供 删除 员工 资料 的 功能 ， 从 编号 下 拉 列 表 中 选择 员工 编号 ， 然 后 








单 击 “ 删 除 ” 按钮 删除 该 编号 的 员工 的 所 有 资料 “删除 员 了 

















所 示 。 
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[资料 ”对 话 框 的 界面 设计 如 


医 
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删除 员工 资料 区 下 














取消 








图 23-9 “删除 员工 资料 ”对 话 框 
在 “删除 员工 资料 ”对 话 框 的 用 户 窗 体 模块 中 包含 以 下 几 部 分 代码 : 


























口 用 户 窗 体 〈 名 为 fmDelete) 的 Initialize 事件 过 程 : 用 于 将 员工 资料 表 中 A 列 的 员工 编 
号 添加 到 组 合 框 中 ， 并 将 组 合 框 的 样式 设置 为 不 支持 输入 的 下 拉 列 表 。 还 将 “删除 员工 
资料 ”对 话 框 中 的 所 有 文本 框 锁 定 ， 以 禁止 编辑 其 中 内 容 。 

口 组 合 框 (名 为 cboNumber) 的 Change 事件 过 程 : 用 于 从 下 拉 列 表 中 选择 一 个 员工 编号 
时 ， 其 他 4 个 文本 框 可 以 显示 与 该 员工 编号 对 应 的 员工 资料 。 

口 “ 删 除 ” 按 钮 〈 名 为 cmdDelete) 的 Click 事件 过 程 : 用 于 将 指定 的 行 删除 ， 该 行 就 是 要 
删除 的 员工 资料 所 在 的 行 。 
口 “ 取 消 ” 按 钮 (名 为 cmdCancel) 的 Click 事件 过 程 : 用 于 关闭 “删除 员工 资料 ”对 话 框 。 


Dim lngFoundRow As Long, avarCellValues As Variant 

































































Private Sub UserForm Initialize() 
Dim ctl Rs Control 
CboNumber .RowSource = GetNumberListAddress 
cboNumber .Style = fmStyleDropDownList 
For Each ctl In frmDelete.Controls 


If TypeName (ct1) = "TextBox" Then 
ctl.Locked = True 
End If 
Next ctl 
End Sub 


Private Sub cboNumber Change() 
On Error Resume Next 
lngFoundRow = Sheetl.Columns ("A:A") .Find (What:=cboNumber.Text, SearchOrder:= 
xlByColumns) .Row 
avarCellValues = Sheetl.Range (Sheetl.Cells (lngFoundRow, 1), Sheetl.Cells 
(lngFoundRow, 5) ) .Value 
txtName.Text = avarCellValues (1, 2) 
txtSex.Text = avarCellValues (1, 3) 
txtAge.Text = avarCellValues (1, 4) 
txtDepartment .Text = avarCellValues (1, 5) 
End Sub 


Private Sub cmdDelete Click() 
Sheet1.Rows (lngFoundRow) .Delete 
End Sub 


Private Sub cmdCancel Click() 


Unload frmDelete 
End Sub 
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23.2.6 ”定制 功能 区 界面 
最 后 需要 定制 功能 区 界面 ， 将 本 全 





Le 


的 人 事 管理 系统 包含 的 功能 以 命令 的 形式 添加 到 功能 




































































区 中 ， 这 样 用 户 可 以 通过 单 击 功能 区 中 的 按钮 来 使 用 人 事 管理 系统 中 的 功能 ， 以 便于 进行 人 事 
管理 工作 。 为 本 例 人 事 管理 系统 定制 功能 区 界面 后 的 效果 如 图 23-10 所 示 。 
= 案例 23-2 - Excel 登录 国 一 口 
A 

时 四 四 吧 

添加 员 修改 员 备份 员 删除 员 

工资 料 工资 料 工资 料 工资 料 
人 事 管理 工具 ~ 

p21 ~ 天 v 
A B C D E F 6 H ] 下 

1 | 编号 姓名 性 别 年 龄 部 门 

六 1 曹 艾 男 37 销售 部 

3 2 朱 萍 男 39 财务 部 

4 3 赖 美 男 32 信息 部 

5 4 朱 甫 女 38 客服 部 

6 5 侯 斌 女 27 市 场 部 

7 6 罗 文 男 43 销售 部 

8 7 汪 辉 女 20 客服 部 

9 8 范 超 男 39 工程 部 

10 9 唐 如 男 24 工程 部 

11 10 金 甫 女 29 客服 部 

12 

13 

由 4 » 
就 络 名 贺 四 -一 一 一 | 一 一 一 + 100% 








图 23-10 ”定制 功能 区 界面 


关于 定制 功能 区 的 内 容 已 在 第 15 章 进 行 了 详细 说 明 ， 这 里 仅 给 出 定制 本 例 功能 区 界面 的 
RibbonX 代码 ， 如 下 所 示 : 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon startFromScratch="true"> 
<tabs> 
<tab id="rxHRTab"” label=" 人 事 管理 "> 
<group id="rxHRGroup"” label=" 人 事 管理 工具 "> 
<button id="rxAddButton" label=" 添 加 员工 资料 " size="large" imageMso= 
"RecordsAddFromOutlook"” onAction=" 添 加 员工 资料 "” /> 
<button id="rxModifyButton" label=" 修 改 员 工资 料 " size="large" 
imageMso="MailMergeRecipientsEditList" onAction=" 修 改 员工 资料 " /> 
<button id="rxExportButton" label=" 备 份 员 工资 料 " size="large" 
imageMso="RecordsSaveAsOutlookContact" onRction=" 备 份 员工 资料 ” /> 
<button id="rxDeleteButton"” labe1L=" 删 除 员工 资料 ” size="large" 
imageMso="RecordsDeleteRecord" onAction=" 删 除 员工 资料 " /> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 
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VBA 函数 与 功能 如 附 表 A-1 所 示 。 
附 表 A-1 ”VBA 函数 与 功能 











































































































函数 功 能 
Abs 返回 一 个 数 的 绝对 值 
Array 返回 一 个 包含 数组 的 变量 
Asc 将 字符 串 中 的 第 一 个 字符 转换 为 其 ASCII 值 
Atn 返回 一 个 数 的 正切 值 
CallByName 执行 一 个 对 象 的 方法 ， 或 设置 或 返回 一 个 对 象 的 属性 
CBool 将 表达 式 转换 为 Boolean 数据 类 型 
CByte 将 表达 式 转换 为 Byte 数据 类 型 
CCur 将 表达 式 转换 为 Currency 数据 类 型 
CDate 将 表达 式 转换 为 Date 数据 类 型 
CDbl 将 表达 式 转换 为 Double 数据 类 型 
CDec 将 表达 式 转换 为 Decimal 数据 类 型 
Choose 选择 并 返回 参数 列表 中 的 某 个 值 
Chr 将 字符 代码 转换 为 与 其 对 应 的 字符 串 
CInt 将 表达 式 转换 为 nteger 数据 类 型 
CLng 将 表达 式 转换 为 Long 数据 类 型 
Cos 返回 一 个 数 的 余弦 值 
CreateObject 创建 并 返回 一 个 OLE 自动 化 对 象 
CSng 将 表达 式 转换 为 Single 数据 类 型 
CStr 将 表达 式 转换 为 String 数据 类 型 
CurDir 返回 当前 的 路 径 
CVar 将 表达 式 转换 为 Variant 数据 类 型 
CVDate 将 表达 式 转 换 为 Variant 数据 类 型 的 Date， 并 非 是 真正 的 Date 数据 类 型 ， 不 建议 使 
CVErr 返回 对 应 于 错误 编号 的 用 户 定义 错误 值 
Date 返回 当前 的 系统 日 期 
DateAdd 为 某 个 日 期 添加 时 间 间 隔 
DateDiff 返回 两 个 日 期 的 时 间 间 隔 
DatePart 返回 日 期 的 指定 时 间 部 分 

















DateSerial 





根据 给 定 的 表示 年 、 月 、 日 的 数字 ， 返 








加 





对 应 的 日 期 
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续 表 
函 数 功 能 
DateValue 将 字符 串 转换 为 日 期 
Day 返回 指定 日 期 中 的 天 
DDB 返回 一 笔 资 产 在 一 段 时 间 内 的 折旧 
Dir 返回 与 模式 匹配 的 文件 或 文件 夹 的 名 称 
DoEvents 转让 控制 权 以 便 让 操作 系统 处 理 其 他 任务 
Environ 返回 一 个 操作 系统 环境 的 字符 串 
EOF 如 果 到 达 文 本 文件 的 末尾 则 返回 True 
Error 返回 对 应 于 错误 编号 的 错误 消息 
Exp 返回 自然 对 数 底 (e) 的 某 次 方 
FileAttr 返回 文本 文件 的 文件 模式 
FileDateTime 返回 创建 文件 或 最 后 一 次 修改 文件 时 的 日 期 和 时 间 
FileLen 返回 文件 中 的 字 节 数 
Filter 返回 指定 筛选 条 件 下 的 一 个 字符 串 数组 的 子 集 
Fix 返回 一 个 数 的 整数 部 分 
Format 以 指定 的 格式 显示 给 定 的 表达 式 
FormatCurrency 返回 用 系统 货币 符号 格式 化 后 的 表达 式 
FormatDateTime | 返回 格式 化 为 日 期 或 时 间 的 表达 式 
FormatNumber 返回 格式 化 为 数值 的 表达 式 
FormatPercent 返回 格式 化 为 百分数 的 表达 式 
FreeFile 返回 用 于 打开 文本 文件 的 下 一 个 可 用 的 文件 号 
FV 返回 年 金 终 值 
GetAllSettings 返回 Windows 注册 表 中 与 应 用 程序 相关 的 所 有 设置 项 及 其 对 应 值 
GetAttr 返回 文件 或 文件 夹 的 属性 信息 
GetObject 返回 文件 中 的 OLE 自动 化 对 象 
GetSetting 返回 Windows 注册 表 中 应 用 程序 特定 项 的 设置 
Hex 将 十 进 制 数 转换 为 十 六 进 制 数 
Hour 返回 时 间 中 的 小 时 
IIf 根据 表达 式 的 真 假 返 回 对 应 的 部 分 
Input 返回 顺序 文本 文件 中 指定 个 数 的 字符 
InStr 返回 一 个 字符 串 在 另 一 个 字符 串 中 第 一 次 出 现 的 位 置 
InStrRev 从 字符 串 的 末尾 算 起 ， 返 回 一 个 字符 串 在 另 一 个 字符 串 中 第 一 次 出 现 的 位 置 
Int 返回 一 个 数 的 整数 部 分 
IPmt 返回 在 一 段 时 间 内 对 年 金 所 支付 的 利息 值 
IRR 返回 一 系列 周期 性 现金 流 的 内 部 利率 
IsArray 当 变 量 为 数组 时 返回 True 
IsDate 当 变 量 为 日 期 时 返回 True 
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续 表 
函数 功 能 
IsEmpty 当 变 量 未 被 初始 化 时 返回 True 
IsError 当 变 量 为 错误 值 时 返回 True 
IsMissing 如 果 没 有 向 过 程 传递 可 选 参 数 则 返回 True 
IsNull 当 变 量 含 有 Null 值 时 返回 True 
IsNumeric 当 变 量 是 一 个 数值 时 返回 True 
IsObject 当 变 量 引 用 了 一 个 OLE 自动 化 对 象 时 返回 True 
Join 将 包含 在 数组 中 的 多 个 字符 串 连接 起 来 
LBound 返回 数组 的 下 限 
LCase 将 英文 字母 转换 为 小 写 
Left 返回 字符 串 左 侧 指定 数量 的 字符 
Len 返回 字符 串 的 字符 数量 
Loc 返回 当前 文本 文件 的 读 / 写 位 置 
LOF 返回 打开 的 文本 文件 的 字 节 数 
Log 返回 一 个 数 的 自然 对 数 
LTrim 返回 没有 前 导 空 格 的 字符 串 
Mid 从 一 个 字符 串 的 指定 位 置 开始 提取 指定 数量 的 字符 
Minute 返回 时 间 中 的 分 钟 
MIRR 返回 一 系列 修改 过 的 周期 性 现金 流 的 内 部 利率 
Month 返回 日 期 中 的 月 份 
MonthName 返回 指定 月 份 的 字符 串 形式 
MsgBox 显示 模 态 消息 对 话 框 ， 返 回 一 个 Integer 数值 告诉 用 户 单 击 了 哪个 按钮 
Now 返回 当前 的 系统 日 期 和 时 间 
NPer 返回 年 金 总 期 数 
NPV 返回 投资 净 现 值 
Oct 将 十 进 制 数 转换 为 八进制 数 
Partition 返回 代表 值 写 入 的 单元 格 区 域 的 字符 串 
Pmt 返回 年 金 支 付 额 
PPmt 返回 年 金 的 本 金 偿付 额 
PV 返回 年 金 现 值 
QBColor 返回 红 / 绿 / 蓝 (RGB) 颜色 码 
Rate 返回 每 一 期 的 年 金利 率 
Replace 返回 一 个 字符 串 ， 该 字符 串 中 指定 的 子 字符 串 被 蔡 换 成 另 一 个 子 字符 串 
RGB 返回 代表 RGB 颜色 值 的 数值 ， 每 个 颜色 分 量 的 取 值 范围 都 是 0 一 255 
Right 返回 字符 串 右 侧 指定 数量 的 字符 
Rnd 返回 0~1 之 间 的 某 个 随机 数 
Round 返回 四 含 五 入 后 的 数值 
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续 表 
函数 功 能 
RTrim 返回 没有 尾随 空格 的 字符 串 
Second 返回 时 间 中 的 秒 数 
Seek 返回 文本 文件 中 当前 的 读 / 写 位 置 
Sgn 返回 代表 数值 正 负 的 整数 
Shell 运行 可 执行 的 程序 ， 如 果 成 功 则 返回 该 程序 的 任务 ID 
Sin 返回 一 个 数 的 正弦 值 
SLN 返回 一 期 里 一 项 资产 的 直线 折旧 
Space 返回 包含 指定 空格 数 的 字符 串 
Spc 对 要 打印 的 文件 进行 输出 定位 
Split 返回 一 个 下 标 从 零 开 始 的 一 维 数组 ， 它 包含 指定 数目 的 子 字符 串 
Sqr 返回 一 个 数 的 平方 根 
Str 返回 一 个 数值 的 字符 串 形 式 
StrComp 返回 代表 两 个 字符 串 比 较 结果 的 值 
StrConv 返回 按 指定 类 型 转换 后 的 字符 串 
String 返回 指定 长 度 的 重复 字符 
StrReverse 返回 顺序 方向 的 字符 串 
Switch 计算 一 组 Boolean 表达 式 的 值 ， 返 回 与 第 一 个 为 True 的 表达 式 关联 的 值 
SYD 返回 某 项 资产 在 一 指定 期 间 用 年 数 总 计 法 计算 的 折旧 
Tab 对 要 打印 的 文件 进行 输出 定位 
Tan 返回 一 个 数 的 正切 值 
Time 返回 当前 的 系统 时 间 
Timer 返回 从 午夜 开始 到 现在 所 经 过 的 秒 数 
TimeSerial 根据 给 定 的 表示 时 、 分 、 秒 的 数字 ， 返 回 对 应 的 时 间 
TimeValue 将 字符 串 转换 为 时 间 
Trim 返回 不 包含 前 导 空格 和 尾随 空格 的 字符 串 
TypeName 返回 代表 变量 数据 类 型 的 字符 串 
UBound 返回 数组 的 上 限 
UCase 将 英文 字母 转换 为 大 写 
Val 返回 包含 于 字符 串 内 的 数字 。 在 它 不 能 识别 为 数字 的 第 一 个 字符 上 停止 读 入 字符 串 
VarType 返回 代表 变量 子 类 型 的 数值 
Weekday 返回 代表 星期 几 的 数值 
WeekdayName 返回 代表 星期 几 的 字符 串 
Year 返回 日 期 中 的 年 份 
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附录 B VBA 语句 速 查 


VBA 语句 与 功能 如 附 表 B-1 所 示 。 


附 表 B-1 VBA 语句 与 功能 































































语 名 功 能 
AppActivate 激活 一 个 应 用 程序 窗口 
Beep 通过 计算 机 喇叭 发 出 声音 
Call 将 控制 权 转移 到 另 一 个 过 程 
ChDir 改变 当前 目录 
ChDrive 改变 当前 驱动 器 
Close 关闭 一 个 文本 文件 
Const 声明 一 个 常量 
Date 设置 当前 系统 日 期 
Declare 声明 对 动态 链接 库 DLL 中 外 部 过 程 的 引用 
DefBool 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Boolean 
DefByte 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Byte 
DefCur 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Cur 
DefDate 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Date 
DefDec 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Dec 
DefDbl 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Dbl 
DefInt 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 nt 
DefLng 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Lng 
DefObj 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Obj 
DefSng 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Sng 
DefStr 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Str 
DefVar 将 指定 字母 开头 的 变量 的 默认 数据 类 型 设置 为 Var 
DeleteSetting 在 Windows 注册 表 中 ， 从 应 用 程序 项 目 中 删除 区 域 或 注册 表 项 设置 
Dim 声明 变量 及 其 数据 类 型 
Do-Loop 当 条 件 为 True 时 ， 或 直到 条 件 变 为 True 时 ， 重 复 执行 指定 的 代码 
End 退出 指定 的 过 程 
Enum 声明 枚 举 类 型 



































模拟 错误 的 发 生 


重新 初始 化 大 小 固定 的 数组 的 元 素 ， 以 及 释放 动态 数组 的 存储 空间 
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续 表 
语 名 功 能 
Event 声明 一 个 用 户 定义 的 事件 
Exit Do 退出 一 个 Do-Loop 循环 
Exit For 退出 一 个 For-Next 循环 





Exit Function 


退出 一 个 函数 过 程 














Exit Property 退出 一 个 属性 过 程 
Exit Sub 退出 一 个 子 过 程 
FileCopy 复制 一 个 文件 





For Each-Next 


对 一 个 数组 或 集合 中 的 每 个 元 素 重 复 执行 指定 的 代码 



























































For-Next 对 指定 的 代码 循环 执行 指定 的 次 数 
Function 声明 一 个 函数 过 程 

Get 从 文本 文件 中 读 取 数据 
GoSub-Return 从 一 个 过 程 跳 转 到 另 一 个 过 程 并 执行 代码 ， 执 行 后 返回 到 之 前 的 过 程 
GoTo 跳 转 到 指定 地 代码 行 

IfEThen-Else 按 条 件 执行 代码 

Implements 指定 将 在 类 模块 中 实现 的 接口 或 类 
Input# 从 顺序 文本 文件 中 读 取 数据 

Kill 从 磁盘 中 删除 文件 

Let 为 变量 或 属性 赋值 

Line Input# 从 顺序 文本 文件 中 读 取 一 行 数据 
Load 将 对 象 加 载 到 内 存 中 ， 但 不 显示 该 对 象 
Lock,Unlock 对 访问 一 个 文本 文件 进行 控制 
LSet 将 字符 串 变 量 中 的 字符 串 左 对 齐 
Mid 使 用 其 他 字符 蔡 换 字符 串 中 的 字符 
MkDir 创建 一 个 新 的 文件 夹 

Name 重 命 名 一 个 文件 或 文件 夹 

On Error 启动 错误 处 理 程序 

On-GoSub 根据 条 件 跳 转 到 指定 的 代码 行 
On-GoTo 根据 条 件 跳 转 到 指定 的 代码 行 
Open 打开 一 个 文本 文件 

Option Base 声明 数组 的 默认 下 限 

Option Compare 声明 字符 串 的 默认 比较 方式 
Option Explicit 强制 显 式 声明 模块 中 的 所 有 变量 
Option Private 指明 当前 模块 是 私有 的 

Print# 向 顺序 文本 文件 中 写 入 数据 
Private 声明 模块 级 的 私有 变量 

Property Get 声明 一 个 获取 属性 值 的 过 程 
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续 表 
语 名 功 能 
Property Let 声明 一 个 给 属性 赋值 的 过 程 
Property Set 声明 一 个 设置 对 象 引用 的 过 程 
Public 声明 一 个 公共 变量 
Put 将 一 个 变量 中 的 数据 写 入 文本 文件 中 
RaiseEvent 引发 一 个 用 户 定义 的 事件 
Randomize 初始 化 随机 数 生成 器 
ReDim 修改 动态 数组 的 维度 
Rem 对 代码 添加 注释 
Reset 关闭 所 有 打开 的 文本 文件 
Resume 在 错误 处 理 程序 结束 后 ， 恢 复原 有 的 运行 
RmDir 删除 一 个 空 文件 夹 
RSet 将 字符 串 变量 中 的 字符 串 右 对 齐 
SaveSetting 在 Windows 注册 表 中 保存 或 创建 应 用 程序 记录 
Seek 设置 文本 文件 中 下 一 个 读 / 写 操作 的 位 置 


Select Case 





根据 表达 式 的 值 ， 有 条 件 地 执行 代码 











SendKeys 发 送 按键 到 活动 窗口 中 

Set 将 对 象 引用 赋值 给 一 个 变量 或 属性 

SetAttr 修改 一 个 文件 的 属性 信息 

Static 声明 静态 变量 ， 在 程序 运行 期 间 始终 保存 该 变量 的 值 
Stop 暂停 程序 的 执行 

Sub 声明 一 个 子 过 程 

Time 设置 系统 时 间 

Type 定义 一 个 自 定义 数据 类 型 

Unload 从 内 存 中 删除 一 个 对 象 

While-Wend 当 条 件 为 True 时 ， 重 复 执行 指定 的 代码 

Width# 设置 文本 文件 的 输出 行 宽度 

With 在 一 个 对 象 上 执行 一 系列 代码 ， 主 要 用 于 设置 对 象 的 多 个 属性 和 方法 
Write# 向 顺序 文本 文件 中 写 入 数据 
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附录 C VBA 错误 代码 


VBA 错误 代码 及 消息 如 附 表 C-1 所 示 。 


附 表 C-1 VBA 错误 代码 及 消息 



















































































错误 代码 消 息 
3 无 GoSub 返回 
5 无 效 的 过 程 调 用 或 参数 
6 溢出 
7 内 存 溢 出 
9 下 标 越界 
10 该 数组 被 固定 或 暂时 锁定 
11 除数 为 零 
13 类 型 不 匹配 
14 滋 出 串 空间 
16 表达 式 太 复杂 
17 不 能 执行 所 需 的 操作 
18 出 现 用 户 中 断 
20 无 错误 恢复 
28 溢出 堆栈 空间 
35 子 过 程 或 函数 未 定义 
47 DLL 应 用 程序 客户 太 多 
48 加 载 DLL 错误 
49 DLL 调用 约定 错误 
51 内 部 错误 
52 文件 名 或 文件 号 错误 
53 文件 未 找到 
54 文件 模式 错误 
55 文件 已 打开 
57 设备 IO 错误 
58 文件 已 存在 
59 记录 长 度 错误 
61 磁盘 已 满 
62 输入 超出 文件 尾 
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续 表 

错误 代码 消息 

63 记录 号 错误 

67 文件 太 多 

68 设备 不 可 用 

70 拒绝 的 权限 

71 磁盘 未 准备 好 

74 不 能 更 名 为 不 同 的 驱动 器 

75 路 径 /文件 访问 错误 

76 路 径 未 找到 

91 对 象 变量 或 With 块 变量 未 设置 

92 For 循环 未 初始 化 

93 无 效 的 模式 串 

94 无 效 使 用 Null 

96 由 于 对 象 已 经 激活 了 事件 接收 器 支持 的 最 大 数目 的 事件 ， 不 能 吸收 对 象 的 事件 

97 不 能 调用 对 象 的 友 元 函数 ， 该 对 象 不 是 所 定义 类 的 一 个 实例 

98 属性 或 方法 调用 不 能 包括 对 私有 对 象 的 引用 ， 不 论 是 作为 参数 还 是 作为 返回 值 

321 无 效 文件 格式 

322 不 能 创建 必要 的 临时 文件 

325 资源 文件 中 格式 无 效 

380 无 效 属性 值 

381 无 效 的 属性 数组 索引 

382 运行 时 不 支持 Set 

383 《只 读 属 性 ) 不 支持 Set 

385 需要 属性 数组 索引 

387 Set 不 允许 

393 运行 时 不 支持 Get 

394 (只 写 属性 ) 不 支持 Get 

422 属性 没有 找到 

423 属性 或 方法 未 找到 

424 要 求 对 象 

429 ActiveX 部 件 不 能 创建 对 象 

430 类 不 支持 自动 化 Automation〉 或 不 支持 期 待 的 接口 

432 自动 化 〈Automation) 操作 时 文件 名 或 类 名 未 找到 

438 对 象 不 支持 该 属性 或 方法 

440 自动 化 Automation ) 错误 

442 远程 进程 到 类 型 库 或 对 象 库 的 连接 丢失 。 单 击 对 话 框 中 的 “确定 ”按钮 取消 引用 

443 Automation 对 象 无 缺 省 值 
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续 表 

错误 代码 消息 

445 对 象 不 支持 该 动作 

446 对 象 不 支持 命名 参数 

447 对 象 不 支持 当前 的 本 地 设置 

448 未 找到 命名 参数 

449 参数 不 可 选 

450 错误 的 参数 号 或 无 效 的 属性 赋值 

451 property let 过 程 未 定义 ，property get 过 程 未 返回 对 象 

452 无 效 的 序号 

453 指定 的 DLL 函数 未 找到 

454 代码 资源 未 找到 

455 代码 资源 锁定 错误 

457 该 关键 字 已 经 与 该 集合 的 一 个 元 素 相关 联 

458 变量 使 用 了 一 个 Visual Basic 不 支持 的 自动 化 (Automation〉 类 型 

459 对 象 或 类 不 支持 的 事件 集 

460 无 效 的 剪贴 板 格式 

461 方法 和 数据 成 员 未 找到 

462 远程 服务 器 不 存在 或 不 可 用 

463 类 未 在 本 地 机 器 上 注册 

481 无 效 的 图 片 

482 打印 机 错误 

735 不 能 将 文件 保存 到 TEMP 

744 要 搜索 的 文本 没有 找到 

746 替换 文本 太 长 

1004 应 用 程序 定义 或 对 象 定义 错误 
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